API tools faq
paste
Advertisement
Guest User

D3CraftingTool V1.1.3

a guest
Jun 1st, 2013
276
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 86.56 KB | None | 0 0
raw download clone embed print report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=images\iconneu.ico
  3. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  4. #include <ButtonConstants.au3>
  5. #include <ComboConstants.au3>
  6. #include <EditConstants.au3>
  7. #include <GUIConstantsEx.au3>
  8. #include <StaticConstants.au3>
  9. #include <TabConstants.au3>
  10. #include <WindowsConstants.au3>
  11. #Region ### START Koda GUI section ### Form=D:\Eigene Dateien\AutoCrafter\AutoGemCrafter.kxf
  12. ;Start
  13. $StartGUI = GUICreate("D3 Crafting Tool V 1.1.3", 300,200,300,100)
  14. FileInstall("D:\Eigene Dateien\AutoCrafter\images\favicon\favicon.ico", @TempDir & "\favicon.ico")
  15. FileInstall("D:\Eigene Dateien\AutoCrafter\V1.1\images\de.jpg", @TempDir & "\de.jpg")
  16. FileInstall("D:\Eigene Dateien\AutoCrafter\V1.1\images\en.jpg", @TempDir & "\en.jpg")
  17. GUISetIcon(@TempDir & "/iconneu.ico", -1)
  18. $enPic = GUICtrlCreatePic(@TempDir & "\en.jpg", 55, 50, 46, 33)
  19. $dePic = GUICtrlCreatePic(@TempDir & "\de.jpg", 193, 50, 47, 33)
  20. $enButton = GUICtrlCreateButton("English Version", 30, 100, 95, 25, $WS_GROUP)
  21. $deButton = GUICtrlCreateButton("Deutsche Version", 168, 100, 95, 25, $WS_GROUP)
  22. GUISetState(@SW_SHOW)
  23.  
  24. ;GUI enGB
  25. $D3CraftigTool_en = GUICreate("D3 Craftig Tool V 1.1.3", 466, 295, 252, 136)
  26. FileInstall("D:\Eigene Dateien\AutoCrafter\images\Screenshot011.jpg", @TempDir & "\Screenshot011.jpg")
  27. FileInstall("D:\Eigene Dateien\AutoCrafter\images\Screenshot012.jpg", @TempDir & "\Screenshot012.jpg")
  28. FileInstall("D:\Eigene Dateien\AutoCrafter\images\favicon\favicon.ico", @TempDir & "\favicon.ico")
  29. GUISetIcon(@TempDir & "/iconneu.ico", -1)
  30. $Tab1 = GUICtrlCreateTab(0, 0, 466, 295)
  31. $Introductions = GUICtrlCreateTabItem("How to start")
  32. $Label2 = GUICtrlCreateLabel("Open your Diablo 3 window and go to the Artisan where you want to craft.", 8, 32, 422, 17)
  33. $Label3 = GUICtrlCreateLabel("Open the shop and place your mouse over the required fields and press the Hotkey to", 8, 48, 448, 17)
  34. $Label4 = GUICtrlCreateLabel("get the coordinates of the requiered fields. Here is an example on how you should", 8, 64, 439, 17)
  35. $Label5 = GUICtrlCreateLabel("place your mouse:", 8, 80, 90, 17)
  36. $Pic1 = GUICtrlCreatePic(@TempDir & "\Screenshot011.jpg", 8, 96, 297, 49)
  37. $Pic2 = GUICtrlCreatePic(@TempDir & "\Screenshot012.jpg", 8, 144, 305, 57)
  38. $Label6 = GUICtrlCreateLabel("After pressing the Hotkey a window will pop up with the coordinates. Enter all the requiered", 8, 208, 450, 17)
  39. $Label7 = GUICtrlCreateLabel("data into the fields and click the 'save' button. This will save the data into a .ini file.", 8, 224, 432, 17)
  40. $Label8 = GUICtrlCreateLabel("Check the 'Explanation' tab to get more important informations!", 8, 240, 458, 17)
  41. $Label9 = GUICtrlCreateLabel("- Enjoy!", 8, 256, 426, 17)
  42. $Explanation = GUICtrlCreateTabItem("Explanation")
  43. $Label20 = GUICtrlCreateLabel("First Gem:", 16, 40, 99, 17)
  44. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  45. GUICtrlSetColor(-1, 0xFF0000)
  46. $Label21 = GUICtrlCreateLabel("The first gem you want to craft.", 95, 40, 250, 17)
  47. $Label22 = GUICtrlCreateLabel("E.g: you have mass Flawless Square's and want a", 95, 55, 300, 17)
  48. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  49. $Label23 = GUICtrlCreateLabel("Perfect Square, so PS would be 'The First Gem'", 95, 70, 300, 17)
  50. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  51. $Label24 = GUICtrlCreateLabel("Higher Gem:", 16, 95, 99, 17)
  52. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  53. GUICtrlSetColor(-1, 0xFF0000)
  54. $Label25 = GUICtrlCreateLabel("The next gem quality after first gem.", 95, 95, 250, 17)
  55. $Label26 = GUICtrlCreateLabel("E.g: Your first gem is a Perfect Square,", 95, 110, 300, 17)
  56. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  57. $Label27 = GUICtrlCreateLabel("so your 'Higher Gem' would Radiant Square.", 95, 125, 300, 17)
  58. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  59. $Label28 = GUICtrlCreateLabel("Gem Quality:", 16, 150, 99, 17)
  60. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  61. GUICtrlSetColor(-1, 0xFF0000)
  62. $Label29 = GUICtrlCreateLabel("Select the quality.", 95, 150, 250, 17)
  63. $Label30 = GUICtrlCreateLabel("If final gem = starting gem, enter the same quality ofc.", 95, 165, 330, 17)
  64. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  65. $Label31 = GUICtrlCreateLabel("Amount:", 16, 190, 99, 17)
  66. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  67. GUICtrlSetColor(-1, 0xFF0000)
  68. $Label32 = GUICtrlCreateLabel("Enter the amount of your final gem.", 95, 190, 250, 17)
  69. $HotKeys = GUICtrlCreateTabItem("HotKeys")
  70. $gC = GUICtrlCreateLabel("Get Coordinates:", 16, 40, 99, 17)
  71. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  72. $start = GUICtrlCreateLabel("Start:", 16, 64, 35, 17)
  73. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  74. $stop = GUICtrlCreateLabel("Stop:", 16, 88, 34, 17)
  75. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  76. $gCHK = GUICtrlCreateLabel("Ctrl + G", 120, 40, 40, 17)
  77. $startHK = GUICtrlCreateLabel("Ctrl + P", 120, 64, 40, 17)
  78. $stopHK = GUICtrlCreateLabel("Ctrl + E", 120, 88, 40, 17)
  79. $GemTool = GUICtrlCreateTabItem("Jeweler")
  80. $StartingGem = GUICtrlCreateLabel("First Gem", 48, 32, 93, 20)
  81. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  82. GUICtrlSetColor(-1, 0xFF0000)
  83. $HigherGem = GUICtrlCreateLabel("Next Higher Gem", 48, 112, 121, 20)
  84. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  85. GUICtrlSetColor(-1, 0xFF0000)
  86. $SGXCoords = GUICtrlCreateLabel("X-Coordinate:", 8, 56, 81, 17)
  87. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  88. $SGInputX = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","SGXC",""), 96, 56, 73, 21)
  89. $SGYCoords = GUICtrlCreateLabel("Y-Coordinate:", 8, 80, 81, 17)
  90. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  91. $SGInputY = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","SGYC",""), 97, 80, 71, 21)
  92. $HGXCoords = GUICtrlCreateLabel("X-Coordinate:", 8, 136, 81, 17)
  93. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  94. $HGInputX = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","HGXC",""), 96, 136, 73, 21)
  95. $HGYCoords = GUICtrlCreateLabel("Y-Coordinate:", 8, 160, 81, 17)
  96. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  97. $HGInputY = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","HGYC",""), 96, 160, 73, 21)
  98. $SaveEN = GUICtrlCreateButton("Save", 176, 272, 81, 17)
  99. $SGQuality = GUICtrlCreateLabel("First Gem Quality:", 224, 56, 124, 17)
  100. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  101. $FinalGem = GUICtrlCreateLabel("Final Gem Quality:", 224, 96, 107, 17)
  102. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  103. $SGSelect = GUICtrlCreateCombo("Select", 352, 56, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  104. GUICtrlSetData(-1, "Perfect Square|Radiant Square|Star|Flawless Star|Perfect Star|Radiant Star|Marquise")
  105. $FGSelect = GUICtrlCreateCombo("Select", 352, 96, 89, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  106. GUICtrlSetData(-1, "Perfect Square|Radiant Square|Star|Flawless Star|Perfect Star|Radiant Star|Marquise")
  107. $FGAmount = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","Amount",""), 352, 128, 73, 21)
  108. $Label1 = GUICtrlCreateLabel("Craft Button", 48, 192, 83, 20)
  109. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  110. GUICtrlSetColor(-1, 0xFF0000)
  111. $CBXCoords = GUICtrlCreateLabel("X-Coodinate:", 8, 216, 77, 17)
  112. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  113. $CBYCoord = GUICtrlCreateLabel("Y-Coordinate:", 8, 240, 81, 17)
  114. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  115. $CBInputX = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","CBXC",""), 96, 216, 73, 21)
  116. $CBInputY = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","CBYC",""), 96, 240, 73, 21)
  117.  
  118. GUICtrlCreateTabItem("")
  119. GUISetState(@SW_HIDE)
  120.  
  121. ;GUI deDE
  122. $D3CraftigTool_de = GUICreate("D3 Craftig Tool V 1.1.3", 466, 295, 252, 136)
  123. FileInstall("D:\Eigene Dateien\AutoCrafter\images\Screenshot011.jpg", @TempDir & "\Screenshot011.jpg")
  124. FileInstall("D:\Eigene Dateien\AutoCrafter\images\Screenshot012.jpg", @TempDir & "\Screenshot012.jpg")
  125. FileInstall("D:\Eigene Dateien\AutoCrafter\images\favicon\favicon.ico", @TempDir & "\favicon.ico")
  126. GUISetIcon(@TempDir & "/iconneu.ico", -1)
  127. $Tab1 = GUICtrlCreateTab(0, 0, 466, 295)
  128. $Introductions = GUICtrlCreateTabItem("How to start")
  129. $Label2 = GUICtrlCreateLabel("Öffne dein Diablo Fenster und klicke den Handwerker an, bei dem du craften möchtest.", 8, 32, 422, 17)
  130. $Label3 = GUICtrlCreateLabel("Öffne den Shop des Handwerkers und platziere deine Maus über den benötigten Feldern.", 8, 48, 448, 17)
  131. $Label4 = GUICtrlCreateLabel("Drücke den Hotkey um die Koordinaten zu erhalten. Hier ein Beispiel wie du deine", 8, 64, 439, 17)
  132. $Label5 = GUICtrlCreateLabel("Maus platzieren solltest:", 8, 80, 150, 17)
  133. $Pic1 = GUICtrlCreatePic(@TempDir & "\Screenshot011.jpg", 8, 96, 297, 49)
  134. $Pic2 = GUICtrlCreatePic(@TempDir & "\Screenshot012.jpg", 8, 144, 305, 57)
  135. $Label6 = GUICtrlCreateLabel("Nach dem Drücken des Hotkeys wird ein Fenster mit den Koordinaten erscheinen. Trage", 8, 208, 450, 17)
  136. $Label7 = GUICtrlCreateLabel("die Daten in die Felder ein. Sobald alle Daten eingetragen sind, drücke den Save Button.", 8, 224, 432, 17)
  137. $Label8 = GUICtrlCreateLabel("Im 'Explanation' Tab sind weitere wichtige Informationen!", 8, 240, 458, 17)
  138. $Label9 = GUICtrlCreateLabel("- Enjoy!", 8, 256, 426, 17)
  139. $Explanation = GUICtrlCreateTabItem("Explanation")
  140. $Label20 = GUICtrlCreateLabel("First Gem:", 16, 40, 99, 17)
  141. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  142. GUICtrlSetColor(-1, 0xFF0000)
  143. $Label21 = GUICtrlCreateLabel("Der erste zu craftende Stein.", 95, 40, 250, 17)
  144. $Label22 = GUICtrlCreateLabel("Bsp: du hast massig Makellose Quadratische Gems", 95, 55, 300, 17)
  145. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  146. $Label23 = GUICtrlCreateLabel("somit wäre Perfekt Quadratisch der 'The First Gem'", 95, 70, 300, 17)
  147. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  148. $Label24 = GUICtrlCreateLabel("Higher Gem:", 16, 95, 99, 17)
  149. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  150. GUICtrlSetColor(-1, 0xFF0000)
  151. $Label25 = GUICtrlCreateLabel("Die nächste Stufe nach 'The First Gem'", 95, 95, 250, 17)
  152. $Label26 = GUICtrlCreateLabel("Bsp: 'First Gem' ist ein Perfekt Quadratisch,", 95, 110, 300, 17)
  153. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  154. $Label27 = GUICtrlCreateLabel("somit ist 'Higher Gem' ein Glänzend Quadratisch.", 95, 125, 300, 17)
  155. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  156. $Label28 = GUICtrlCreateLabel("Gem Quality:", 16, 150, 99, 17)
  157. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  158. GUICtrlSetColor(-1, 0xFF0000)
  159. $Label29 = GUICtrlCreateLabel("Wähle die Qualität deiner Steine aus.", 95, 150, 250, 17)
  160. $Label30 = GUICtrlCreateLabel("", 95, 165, 330, 17)
  161. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  162. $Label31 = GUICtrlCreateLabel("Amount:", 16, 190, 99, 17)
  163. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  164. GUICtrlSetColor(-1, 0xFF0000)
  165. $Label32 = GUICtrlCreateLabel("Anzahl des letzten Steines.", 95, 190, 250, 17)
  166. $HotKeys = GUICtrlCreateTabItem("HotKeys")
  167. $gC = GUICtrlCreateLabel("Get Coordinates:", 16, 40, 99, 17)
  168. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  169. $start = GUICtrlCreateLabel("Start:", 16, 64, 35, 17)
  170. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  171. $stop = GUICtrlCreateLabel("Stop:", 16, 88, 34, 17)
  172. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  173. $gCHK = GUICtrlCreateLabel("Ctrl + G", 120, 40, 40, 17)
  174. $startHK = GUICtrlCreateLabel("Ctrl + P", 120, 64, 40, 17)
  175. $stopHK = GUICtrlCreateLabel("Ctrl + E", 120, 88, 40, 17)
  176. $GemTool = GUICtrlCreateTabItem("Jeweler")
  177. $StartingGem = GUICtrlCreateLabel("First Gem", 48, 32, 93, 20)
  178. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  179. GUICtrlSetColor(-1, 0xFF0000)
  180. $HigherGem = GUICtrlCreateLabel("Next Higher Gem", 48, 112, 121, 20)
  181. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  182. GUICtrlSetColor(-1, 0xFF0000)
  183. $SGXCoords = GUICtrlCreateLabel("X-Coordinate:", 8, 56, 81, 17)
  184. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  185. $SGInputXDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","SGXC",""), 96, 56, 73, 21)
  186. $SGYCoords = GUICtrlCreateLabel("Y-Coordinate:", 8, 80, 81, 17)
  187. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  188. $SGInputYDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","SGYC",""), 97, 80, 71, 21)
  189. $HGXCoords = GUICtrlCreateLabel("X-Coordinate:", 8, 136, 81, 17)
  190. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  191. $HGInputXDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","HGXC",""), 96, 136, 73, 21)
  192. $HGYCoords = GUICtrlCreateLabel("Y-Coordinate:", 8, 160, 81, 17)
  193. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  194. $HGInputYDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","HGYC",""), 96, 160, 73, 21)
  195. $SaveDE = GUICtrlCreateButton("Save", 176, 272, 81, 17)
  196. $SGQuality = GUICtrlCreateLabel("First Gem Quality:", 224, 56, 124, 17)
  197. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  198. $FinalGem = GUICtrlCreateLabel("Final Gem Quality:", 224, 96, 107, 17)
  199. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  200. $SGSelectDE = GUICtrlCreateCombo("Select", 330, 56, 133, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  201. GUICtrlSetData(-1, "Perfekt Quadratisch|Glänzend Quadratisch|Sternförmig|Makellos Sternförmig|Perfekt Sternförmig|Glänzend Sternförmig|Marquise")
  202. $FGSelectDE = GUICtrlCreateCombo("Select", 330, 96, 133, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  203. GUICtrlSetData(-1, "Perfekt Quadratisch|Glänzend Quadratisch|Sternförmig|Makellos Sternförmig|Perfekt Sternförmig|Glänzend Sternförmig|Marquise")
  204. $FGAmountDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","Amount",""), 352, 128, 73, 21)
  205. $Label1 = GUICtrlCreateLabel("Craft Button", 48, 192, 83, 20)
  206. GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
  207. GUICtrlSetColor(-1, 0xFF0000)
  208. $CBXCoords = GUICtrlCreateLabel("X-Coodinate:", 8, 216, 77, 17)
  209. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  210. $CBYCoord = GUICtrlCreateLabel("Y-Coordinate:", 8, 240, 81, 17)
  211. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  212. $CBInputXDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","CBXC",""), 96, 216, 73, 21)
  213. $CBInputYDE = GUICtrlCreateInput(IniRead(@scriptdir & "\settings.ini","data","CBYC",""), 96, 240, 73, 21)
  214.  
  215. GUICtrlCreateTabItem("")
  216. GUISetState(@SW_HIDE)
  217. #EndRegion ### END Koda GUI section ###
  218.  
  219. HotKeySet("^e", "_Stop")
  220. HotKeySet("^g", "_GetCoords")
  221. HotKeySet("^p", "_Start")
  222.  
  223. While 1
  224.     $nMsg = GUIGetMsg()
  225.     Switch $nMsg
  226.         Case $GUI_EVENT_CLOSE
  227.             Exit
  228.  
  229.         Case $Tab1
  230.  
  231.         Case $enButton
  232.             GUISetState(@SW_HIDE, $StartGUI)
  233.             GUISetState(@SW_SHOW, $D3CraftigTool_en)
  234.  
  235.         Case $deButton
  236.             GUISetState(@SW_HIDE, $StartGUI)
  237.             GUISetState(@SW_SHOW, $D3CraftigTool_de)
  238.  
  239.  
  240.         Case $SaveEN
  241.             ;Starting Gem
  242.             IniWrite(@scriptdir & "\settings.ini","data","SGXC",GuiCtrlRead($SGInputX ))
  243.             IniWrite(@scriptdir & "\settings.ini","data","SGYC",GuiCtrlRead($SGInputY ))
  244.  
  245.             ;Higher Gem
  246.             IniWrite(@scriptdir & "\settings.ini","data","HGXC",GuiCtrlRead($HGInputX ))
  247.             IniWrite(@scriptdir & "\settings.ini","data","HGYC",GuiCtrlRead($HGInputY ))
  248.  
  249.             ;Crafting Button
  250.             IniWrite(@scriptdir & "\settings.ini","data","CBXC",GuiCtrlRead($CBInputX ))
  251.             IniWrite(@scriptdir & "\settings.ini","data","CBYC",GuiCtrlRead($CBInputY ))
  252.  
  253.             ;Amount
  254.             IniWrite(@scriptdir & "\settings.ini","data","Amount",GuiCtrlRead($FGAmount ))
  255.  
  256.             MsgBox(0, "Warning!", "I take no responsibility for any bans etc.!")
  257.  
  258.         Case $SaveDE
  259.             ;Starting Gem
  260.             IniWrite(@scriptdir & "\settings.ini","data","SGXC",GuiCtrlRead($SGInputXDE ))
  261.             IniWrite(@scriptdir & "\settings.ini","data","SGYC",GuiCtrlRead($SGInputYDE ))
  262.  
  263.             ;Higher Gem
  264.             IniWrite(@scriptdir & "\settings.ini","data","HGXC",GuiCtrlRead($HGInputXDE ))
  265.             IniWrite(@scriptdir & "\settings.ini","data","HGYC",GuiCtrlRead($HGInputYDE ))
  266.  
  267.             ;Crafting Button
  268.             IniWrite(@scriptdir & "\settings.ini","data","CBXC",GuiCtrlRead($CBInputXDE ))
  269.             IniWrite(@scriptdir & "\settings.ini","data","CBYC",GuiCtrlRead($CBInputYDE ))
  270.  
  271.             ;Amount
  272.             IniWrite(@scriptdir & "\settings.ini","data","Amount",GuiCtrlRead($FGAmountDE ))
  273.  
  274.             MsgBox(0, "Warning!", "I take no responsibility for any bans etc.!")
  275.  
  276.     EndSwitch
  277.  
  278.     ;MsgBox(0, "Warning!", "I take no responsibility for any bans etc.!")
  279.  
  280. WEnd
  281.  
  282. Func _Stop()
  283.     Exit
  284. EndFunc
  285.  
  286. Func _GetCoords()
  287.      $pos = MouseGetPos()
  288.     MsgBox(0, "Mouse X, Y:", "X: " & $pos[0] & "," & "Y: " &$pos[1])
  289. EndFunc
  290.  
  291. Func _Start()
  292.  
  293.     ;$x = 0
  294.  
  295.     ;get the distance between the gem fields
  296.     $ySG = IniRead(@scriptdir & "\settings.ini","data","SGYC","")   ;1.
  297.     $yHG = IniRead(@scriptdir & "\settings.ini","data","HGYC","")   ;2.
  298.     $distance = $yHG - $ySG
  299.  
  300.     $y3 = $yHG+$distance                                            ;3.
  301.     $y4 = $yHG+$distance+$distance                                  ;4.
  302.     $y5 = $yHG+$distance+$distance+$distance                        ;5.
  303.     $y6 = $yHG+$distance+$distance+$distance+$distance              ;6.
  304.     $y7 = $yHG+$distance+$distance+$distance+$distance+$distance
  305.  
  306.     ;Loading all coords
  307.     $xSG = IniRead(@scriptdir & "\settings.ini","data","SGXC","")
  308.     $xHG = IniRead(@scriptdir & "\settings.ini","data","HGXC","")
  309.  
  310.  
  311.     ;Loading coords of the 'Craftig Button'
  312.     $CBXC = IniRead(@scriptdir & "\settings.ini","data","CBXC","")
  313.     $CBYC = IniRead(@scriptdir & "\settings.ini","data","CBYC","")
  314.  
  315.     ;Amount of gems you want to craft
  316.     $amount = IniRead(@scriptdir & "\settings.ini","data","Amount","")
  317.  
  318.     ;Error
  319.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Perfect Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  320.  
  321.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Perfect Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  322.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Radiant Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  323.  
  324.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Perfect Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  325.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Radiant Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  326.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Star" Then Return MsgBox(0,"Error","I can't downcraft!")
  327.  
  328.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Perfect Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  329.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Radiant Square" Then Return MsgBox(0,"Error","I can't downcraft!")
  330.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Star" Then Return MsgBox(0,"Error","I can't downcraft!")
  331.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Flawless Star" Then Return MsgBox(0,"Error","I can't downcraft!")
  332.  
  333.     If GUICtrlRead($SGSelect) == "Glänzend Quadratisch" And GUICtrlRead($FGSelect) == "Perfekt Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  334.  
  335.     If GUICtrlRead($SGSelect) == "Sternförmig" And GUICtrlRead($FGSelect) == "Perfekt Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  336.     If GUICtrlRead($SGSelect) == "Sternförmig" And GUICtrlRead($FGSelect) == "Glänzend Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  337.  
  338.     If GUICtrlRead($SGSelect) == "Makellos Sternförmig" And GUICtrlRead($FGSelect) == "Perfekt Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  339.     If GUICtrlRead($SGSelect) == "Makellos Sternförmig" And GUICtrlRead($FGSelect) == "Glänzend Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  340.     If GUICtrlRead($SGSelect) == "Makellos Sternförmig" And GUICtrlRead($FGSelect) == "Sternförmig" Then Return MsgBox(0,"Error","I can't downcraft!")
  341.  
  342.     If GUICtrlRead($SGSelect) == "Perfekt Sternförmig" And GUICtrlRead($FGSelect) == "Perfekt Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  343.     If GUICtrlRead($SGSelect) == "Perfekt Sternförmig" And GUICtrlRead($FGSelect) == "Glänzend Quadratisch" Then Return MsgBox(0,"Error","I can't downcraft!")
  344.     If GUICtrlRead($SGSelect) == "Perfekt Sternförmig" And GUICtrlRead($FGSelect) == "Sternförmig" Then Return MsgBox(0,"Error","I can't downcraft!")
  345.     If GUICtrlRead($SGSelect) == "Perfekt Sternförmig" And GUICtrlRead($FGSelect) == "Makellos Sternförmig" Then Return MsgBox(0,"Error","I can't downcraft!")
  346.  
  347.     ;Craftig - Perfect Square to -xx
  348.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Perfect Square" Then
  349.         MouseMove($xSG, $ySG, 1)
  350.             Sleep(500)
  351.         MouseClick("LEFT", $xSG, $ySG)
  352.             Sleep(500)
  353.  
  354.         MouseMove($CBXC, $CBYC, 1)
  355.             Sleep(500)
  356.  
  357.             While 1
  358.                 Local $x = 0
  359.                 Do
  360.                 MouseMove($CBXC, $CBYC, 1)
  361.                 Sleep(500)
  362.                 MouseClick("left", $CBXC, $CBYC)
  363.                 Sleep(2500)
  364.                 $x = $x+1
  365.             Until $x = $amount
  366.             If $x = $amount Then ExitLoop
  367.         WEnd
  368.         Return
  369.         EndIf
  370.  
  371.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Radiant Square" Then
  372.  
  373.         MouseMove($xSG, $ySG, 1)
  374.             Sleep(500)
  375.         MouseClick("LEFT", $xSG, $ySG)
  376.             Sleep(500)
  377.  
  378.         MouseMove($CBXC, $CBYC, 1)
  379.             Sleep(500)
  380.  
  381.  
  382.             While 1
  383.                 Local $i = 0
  384.                 Do
  385.                 MouseMove($CBXC, $CBYC, 1)
  386.                 Sleep(500)
  387.                 MouseClick("left", $CBXC, $CBYC)
  388.                 Sleep(2500)
  389.                 $i = $i+1
  390.                 Until $i = 3*$amount
  391.             If $i = 3*$amount Then ExitLoop
  392.         WEnd
  393.  
  394.         MouseMove($xHG, $yHG,1)
  395.             Sleep(500)
  396.         MouseClick("left", $xHG, $yHG)
  397.             Sleep(500)
  398.  
  399.         MouseMove($CBXC, $CBYC, 1)
  400.             Sleep(500)
  401.  
  402.             While 1
  403.                 Local $i = 0
  404.                 Do
  405.                 MouseMove($CBXC, $CBYC, 1)
  406.                 Sleep(500)
  407.                 MouseClick("left", $CBXC, $CBYC)
  408.                 Sleep(2500)
  409.                 $i = $i+1
  410.                 Until $i = $amount
  411.             If $i = $amount Then ExitLoop
  412.  
  413.         WEnd
  414.         Return
  415.         EndIf
  416.  
  417.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Star" Then
  418.         MouseMove($xSG, $ySG, 1)
  419.             Sleep(500)
  420.         MouseClick("LEFT", $xSG, $ySG)
  421.             Sleep(500)
  422.  
  423.         MouseMove($CBXC, $CBYC, 1)
  424.             Sleep(500)
  425.  
  426.             While 1
  427.                 Local $x = 0
  428.                 Do
  429.                 MouseMove($CBXC, $CBYC, 1)
  430.                 Sleep(500)
  431.                 MouseClick("left", $CBXC, $CBYC)
  432.                 Sleep(2500)
  433.                 $x = $x+1
  434.             Until $x = 9*$amount
  435.             If $x = 9*$amount Then ExitLoop
  436.         WEnd
  437.  
  438.         MouseMove($xHG, $yHG,1)
  439.             Sleep(500)
  440.         MouseClick("left", $xHG, $yHG)
  441.             Sleep(500)
  442.  
  443.         MouseMove($CBXC, $CBYC, 1)
  444.             Sleep(500)
  445.  
  446.             While 1
  447.                 Local $x = 0
  448.                 Do
  449.                 MouseMove($CBXC, $CBYC, 1)
  450.                 Sleep(500)
  451.                 MouseClick("left", $CBXC, $CBYC)
  452.                 Sleep(2500)
  453.                 $x = $x+1
  454.             Until $x = 3*$amount
  455.             If $x = 3*$amount Then ExitLoop
  456.         WEnd
  457.  
  458.         MouseMove($xHG, $y3,1)
  459.             Sleep(500)
  460.         MouseClick("left", $xHG, $y3)
  461.             Sleep(500)
  462.  
  463.         MouseMove($CBXC, $CBYC, 1)
  464.             Sleep(500)
  465.  
  466.             While 1
  467.                 Local $x = 0
  468.                 Do
  469.                 MouseMove($CBXC, $CBYC, 1)
  470.                 Sleep(500)
  471.                 MouseClick("left", $CBXC, $CBYC)
  472.                 Sleep(2500)
  473.                 $x = $x+1
  474.             Until $x = $amount
  475.             If $x = $amount Then ExitLoop
  476.         WEnd
  477.         Return
  478.         EndIf
  479.  
  480.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Flawless Star" Then
  481.         MouseMove($xSG, $ySG, 1)
  482.             Sleep(500)
  483.         MouseClick("LEFT", $xSG, $ySG)
  484.             Sleep(500)
  485.  
  486.         MouseMove($CBXC, $CBYC, 1)
  487.             Sleep(500)
  488.  
  489.             While 1
  490.                 Local $x = 0
  491.                 Do
  492.                 MouseMove($CBXC, $CBYC, 1)
  493.                 Sleep(500)
  494.                 MouseClick("left", $CBXC, $CBYC)
  495.                 Sleep(2500)
  496.                 $x = $x+1
  497.             Until $x = 27*$amount
  498.             If $x = 27*$amount Then ExitLoop
  499.         WEnd
  500.  
  501.         MouseMove($xHG, $yHG,1)
  502.             Sleep(500)
  503.         MouseClick("left", $xHG, $yHG)
  504.             Sleep(500)
  505.  
  506.         MouseMove($CBXC, $CBYC, 1)
  507.             Sleep(500)
  508.  
  509.             While 1
  510.                 Local $x = 0
  511.                 Do
  512.                 MouseMove($CBXC, $CBYC, 1)
  513.                 Sleep(500)
  514.                 MouseClick("left", $CBXC, $CBYC)
  515.                 Sleep(2500)
  516.                 $x = $x+1
  517.             Until $x = 9*$amount
  518.             If $x = 9*$amount Then ExitLoop
  519.         WEnd
  520.  
  521.         MouseMove($xHG, $y3,1)
  522.             Sleep(500)
  523.         MouseClick("left", $xHG, $y3)
  524.             Sleep(500)
  525.  
  526.         MouseMove($CBXC, $CBYC, 1)
  527.             Sleep(500)
  528.  
  529.             While 1
  530.                 Local $x = 0
  531.                 Do
  532.                 MouseMove($CBXC, $CBYC, 1)
  533.                 Sleep(500)
  534.                 MouseClick("left", $CBXC, $CBYC)
  535.                 Sleep(2500)
  536.                 $x = $x+1
  537.             Until $x = 3*$amount
  538.             If $x = 3*$amount Then ExitLoop
  539.         WEnd
  540.  
  541.         MouseMove($xHG, $y4,1)
  542.             Sleep(500)
  543.         MouseClick("left", $xHG, $y4)
  544.             Sleep(500)
  545.  
  546.         MouseMove($CBXC, $CBYC, 1)
  547.             Sleep(500)
  548.  
  549.             While 1
  550.                 Local $x = 0
  551.                 Do
  552.                 MouseMove($CBXC, $CBYC, 1)
  553.                 Sleep(500)
  554.                 MouseClick("left", $CBXC, $CBYC)
  555.                 Sleep(2500)
  556.                 $x = $x+1
  557.             Until $x = $amount
  558.             If $x = $amount Then ExitLoop
  559.         WEnd
  560.         Return
  561.         EndIf
  562.  
  563.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Perfect Star" Then
  564.         MouseMove($xSG, $ySG, 1)
  565.             Sleep(500)
  566.         MouseClick("LEFT", $xSG, $ySG)
  567.             Sleep(500)
  568.  
  569.         MouseMove($CBXC, $CBYC, 1)
  570.             Sleep(500)
  571.  
  572.             While 1
  573.                 Local $x = 0
  574.                 Do
  575.                 MouseMove($CBXC, $CBYC, 1)
  576.                 Sleep(500)
  577.                 MouseClick("left", $CBXC, $CBYC)
  578.                 Sleep(2500)
  579.                 $x = $x+1
  580.             Until $x = 81*$amount
  581.             If $x = 81*$amount Then ExitLoop
  582.         WEnd
  583.  
  584.         MouseMove($xHG, $yHG,1)
  585.             Sleep(500)
  586.         MouseClick("left", $xHG, $yHG)
  587.             Sleep(500)
  588.  
  589.         MouseMove($CBXC, $CBYC, 1)
  590.             Sleep(500)
  591.  
  592.             While 1
  593.                 Local $x = 0
  594.                 Do
  595.                 MouseMove($CBXC, $CBYC, 1)
  596.                 Sleep(500)
  597.                 MouseClick("left", $CBXC, $CBYC)
  598.                 Sleep(2500)
  599.                 $x = $x+1
  600.             Until $x = 27*$amount
  601.             If $x = 27*$amount Then ExitLoop
  602.         WEnd
  603.  
  604.         MouseMove($xHG, $y3,1)
  605.             Sleep(500)
  606.         MouseClick("left", $xHG, $y3)
  607.             Sleep(500)
  608.  
  609.         MouseMove($CBXC, $CBYC, 1)
  610.             Sleep(500)
  611.  
  612.             While 1
  613.                 Local $x = 0
  614.                 Do
  615.                 MouseMove($CBXC, $CBYC, 1)
  616.                 Sleep(500)
  617.                 MouseClick("left", $CBXC, $CBYC)
  618.                 Sleep(2500)
  619.                 $x = $x+1
  620.             Until $x = 9*$amount
  621.             If $x = 9*$amount Then ExitLoop
  622.         WEnd
  623.  
  624.         MouseMove($xHG, $y4,1)
  625.             Sleep(500)
  626.         MouseClick("left", $xHG, $y4)
  627.             Sleep(500)
  628.  
  629.         MouseMove($CBXC, $CBYC, 1)
  630.             Sleep(500)
  631.  
  632.             While 1
  633.                 Local $x = 0
  634.                 Do
  635.                 MouseMove($CBXC, $CBYC, 1)
  636.                 Sleep(500)
  637.                 MouseClick("left", $CBXC, $CBYC)
  638.                 Sleep(2500)
  639.                 $x = $x+1
  640.             Until $x = 3*$amount
  641.             If $x = 3*$amount Then ExitLoop
  642.         WEnd
  643.  
  644.         MouseMove($xHG, $y5,1)
  645.             Sleep(500)
  646.         MouseClick("left", $xHG, $y5)
  647.             Sleep(500)
  648.  
  649.         MouseMove($CBXC, $CBYC, 1)
  650.             Sleep(500)
  651.  
  652.             While 1
  653.                 Local $x = 0
  654.                 Do
  655.                 MouseMove($CBXC, $CBYC, 1)
  656.                 Sleep(500)
  657.                 MouseClick("left", $CBXC, $CBYC)
  658.                 Sleep(2500)
  659.                 $x = $x+1
  660.             Until $x = $amount
  661.             If $x = $amount Then ExitLoop
  662.         WEnd
  663.         Return
  664.         EndIf
  665.  
  666.     If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  667.         MouseMove($xSG, $ySG, 1)
  668.             Sleep(500)
  669.         MouseClick("LEFT", $xSG, $ySG)
  670.             Sleep(500)
  671.  
  672.         MouseMove($CBXC, $CBYC, 1)
  673.             Sleep(500)
  674.  
  675.             While 1
  676.                 Local $x = 0
  677.                 Do
  678.                 MouseMove($CBXC, $CBYC, 1)
  679.                 Sleep(500)
  680.                 MouseClick("left", $CBXC, $CBYC)
  681.                 Sleep(2500)
  682.                 $x = $x+1
  683.             Until $x = 243*$amount
  684.             If $x = 243*$amount Then ExitLoop
  685.         WEnd
  686.  
  687.         MouseMove($xHG, $yHG,1)
  688.             Sleep(500)
  689.         MouseClick("left", $xHG, $yHG)
  690.             Sleep(500)
  691.  
  692.         MouseMove($CBXC, $CBYC, 1)
  693.             Sleep(500)
  694.  
  695.             While 1
  696.                 Local $x = 0
  697.                 Do
  698.                 MouseMove($CBXC, $CBYC, 1)
  699.                 Sleep(500)
  700.                 MouseClick("left", $CBXC, $CBYC)
  701.                 Sleep(2500)
  702.                 $x = $x+1
  703.             Until $x = 81*$amount
  704.             If $x = 81*$amount Then ExitLoop
  705.         WEnd
  706.  
  707.         MouseMove($xHG, $y3,1)
  708.             Sleep(500)
  709.         MouseClick("left", $xHG, $y3)
  710.             Sleep(500)
  711.  
  712.         MouseMove($CBXC, $CBYC, 1)
  713.             Sleep(500)
  714.  
  715.             While 1
  716.                 Local $x = 0
  717.                 Do
  718.                 MouseMove($CBXC, $CBYC, 1)
  719.                 Sleep(500)
  720.                 MouseClick("left", $CBXC, $CBYC)
  721.                 Sleep(2500)
  722.                 $x = $x+1
  723.             Until $x = 27*$amount
  724.             If $x = 27*$amount Then ExitLoop
  725.         WEnd
  726.  
  727.         MouseMove($xHG, $y4,1)
  728.             Sleep(500)
  729.         MouseClick("left", $xHG, $y4)
  730.             Sleep(500)
  731.  
  732.         MouseMove($CBXC, $CBYC, 1)
  733.             Sleep(500)
  734.  
  735.             While 1
  736.                 Local $x = 0
  737.                 Do
  738.                 MouseMove($CBXC, $CBYC, 1)
  739.                 Sleep(500)
  740.                 MouseClick("left", $CBXC, $CBYC)
  741.                 Sleep(2500)
  742.                 $x = $x+1
  743.             Until $x = 9*$amount
  744.             If $x = 9*$amount Then ExitLoop
  745.         WEnd
  746.  
  747.         MouseMove($xHG, $y5,1)
  748.             Sleep(500)
  749.         MouseClick("left", $xHG, $y5)
  750.             Sleep(500)
  751.  
  752.         MouseMove($CBXC, $CBYC, 1)
  753.             Sleep(500)
  754.  
  755.             While 1
  756.                 Local $x = 0
  757.                 Do
  758.                 MouseMove($CBXC, $CBYC, 1)
  759.                 Sleep(500)
  760.                 MouseClick("left", $CBXC, $CBYC)
  761.                 Sleep(2500)
  762.                 $x = $x+1
  763.             Until $x = 3*$amount
  764.             If $x = 3*$amount Then ExitLoop
  765.             WEnd
  766.  
  767.         MouseMove($xHG, $y6,1)
  768.             Sleep(500)
  769.         MouseClick("left", $xHG, $y6)
  770.             Sleep(500)
  771.  
  772.         MouseMove($CBXC, $CBYC, 1)
  773.             Sleep(500)
  774.  
  775.             While 1
  776.                 Local $x = 0
  777.                 Do
  778.                 MouseMove($CBXC, $CBYC, 1)
  779.                 Sleep(500)
  780.                 MouseClick("left", $CBXC, $CBYC)
  781.                 Sleep(2500)
  782.                 $x = $x+1
  783.             Until $x = $amount
  784.             If $x = $amount Then ExitLoop
  785.         WEnd
  786.         Return
  787.      EndIf
  788.  
  789.      If GUICtrlRead($SGSelect) == "Perfect Square" And GUICtrlRead($FGSelect) == "Marquise" Then
  790.         MouseMove($xSG, $ySG, 1)
  791.             Sleep(500)
  792.         MouseClick("LEFT", $xSG, $ySG)
  793.             Sleep(500)
  794.  
  795.         MouseMove($CBXC, $CBYC, 1)
  796.             Sleep(500)
  797.  
  798.             While 1
  799.                 Local $x = 0
  800.                 Do
  801.                 MouseMove($CBXC, $CBYC, 1)
  802.                 Sleep(500)
  803.                 MouseClick("left", $CBXC, $CBYC)
  804.                 Sleep(2500)
  805.                 $x = $x+1
  806.             Until $x = 729*$amount
  807.             If $x = 729*$amount Then ExitLoop
  808.         WEnd
  809.  
  810.         MouseMove($xHG, $yHG,1)
  811.             Sleep(500)
  812.         MouseClick("left", $xHG, $yHG)
  813.             Sleep(500)
  814.  
  815.         MouseMove($CBXC, $CBYC, 1)
  816.             Sleep(500)
  817.  
  818.             While 1
  819.                 Local $x = 0
  820.                 Do
  821.                 MouseMove($CBXC, $CBYC, 1)
  822.                 Sleep(500)
  823.                 MouseClick("left", $CBXC, $CBYC)
  824.                 Sleep(2500)
  825.                 $x = $x+1
  826.             Until $x = 243*$amount
  827.             If $x = 243*$amount Then ExitLoop
  828.         WEnd
  829.  
  830.         MouseMove($xHG, $y3,1)
  831.             Sleep(500)
  832.         MouseClick("left", $xHG, $y3)
  833.             Sleep(500)
  834.  
  835.         MouseMove($CBXC, $CBYC, 1)
  836.             Sleep(500)
  837.  
  838.             While 1
  839.                 Local $x = 0
  840.                 Do
  841.                 MouseMove($CBXC, $CBYC, 1)
  842.                 Sleep(500)
  843.                 MouseClick("left", $CBXC, $CBYC)
  844.                 Sleep(2500)
  845.                 $x = $x+1
  846.             Until $x = 81*$amount
  847.             If $x = 81*$amount Then ExitLoop
  848.         WEnd
  849.  
  850.         MouseMove($xHG, $y4,1)
  851.             Sleep(500)
  852.         MouseClick("left", $xHG, $y4)
  853.             Sleep(500)
  854.  
  855.         MouseMove($CBXC, $CBYC, 1)
  856.             Sleep(500)
  857.  
  858.             While 1
  859.                 Local $x = 0
  860.                 Do
  861.                 MouseMove($CBXC, $CBYC, 1)
  862.                 Sleep(500)
  863.                 MouseClick("left", $CBXC, $CBYC)
  864.                 Sleep(2500)
  865.                 $x = $x+1
  866.             Until $x = 27*$amount
  867.             If $x = 27*$amount Then ExitLoop
  868.         WEnd
  869.  
  870.         MouseMove($xHG, $y5,1)
  871.             Sleep(500)
  872.         MouseClick("left", $xHG, $y5)
  873.             Sleep(500)
  874.  
  875.         MouseMove($CBXC, $CBYC, 1)
  876.             Sleep(500)
  877.  
  878.             While 1
  879.                 Local $x = 0
  880.                 Do
  881.                 MouseMove($CBXC, $CBYC, 1)
  882.                 Sleep(500)
  883.                 MouseClick("left", $CBXC, $CBYC)
  884.                 Sleep(2500)
  885.                 $x = $x+1
  886.             Until $x = 9*$amount
  887.             If $x = 9*$amount Then ExitLoop
  888.             WEnd
  889.  
  890.         MouseMove($xHG, $y6,1)
  891.             Sleep(500)
  892.         MouseClick("left", $xHG, $y6)
  893.             Sleep(500)
  894.  
  895.         MouseMove($CBXC, $CBYC, 1)
  896.             Sleep(500)
  897.  
  898.             While 1
  899.                 Local $x = 0
  900.                 Do
  901.                 MouseMove($CBXC, $CBYC, 1)
  902.                 Sleep(500)
  903.                 MouseClick("left", $CBXC, $CBYC)
  904.                 Sleep(2500)
  905.                 $x = $x+1
  906.             Until $x = 3*$amount
  907.             If $x = 3*$amount Then ExitLoop
  908.         WEnd
  909.  
  910.         MouseMove($xHG, $y7,1)
  911.             Sleep(500)
  912.         MouseClick("left", $xHG, $y7)
  913.             Sleep(500)
  914.  
  915.         MouseMove($CBXC, $CBYC, 1)
  916.             Sleep(500)
  917.  
  918.             While 1
  919.                 Local $x = 0
  920.                 Do
  921.                 MouseMove($CBXC, $CBYC, 1)
  922.                 Sleep(500)
  923.                 MouseClick("left", $CBXC, $CBYC)
  924.                 Sleep(2500)
  925.                 $x = $x+1
  926.             Until $x = $amount
  927.             If $x = $amount Then ExitLoop
  928.         WEnd
  929.         Return
  930.      EndIf
  931.  
  932.     ;Craftig - Radiant Square to -xx
  933.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Radiant Square" Then
  934.         MouseMove($xSG, $ySG, 1)
  935.             Sleep(500)
  936.         MouseClick("LEFT", $xSG, $ySG)
  937.             Sleep(500)
  938.  
  939.         MouseMove($CBXC, $CBYC, 1)
  940.             Sleep(500)
  941.  
  942.             While 1
  943.                 Local $x = 0
  944.                 Do
  945.                 MouseMove($CBXC, $CBYC, 1)
  946.                 Sleep(500)
  947.                 MouseClick("left", $CBXC, $CBYC)
  948.                 Sleep(2500)
  949.                 $x = $x+1
  950.             Until $x = $amount
  951.             If $x = $amount Then ExitLoop
  952.         WEnd
  953.         Return
  954.         EndIf
  955.  
  956.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Star" Then
  957.         MouseMove($xSG, $ySG, 1)
  958.             Sleep(500)
  959.         MouseClick("LEFT", $xSG, $ySG)
  960.             Sleep(500)
  961.  
  962.         MouseMove($CBXC, $CBYC, 1)
  963.             Sleep(500)
  964.  
  965.             While 1
  966.                 Local $x = 0
  967.                 Do
  968.                 MouseMove($CBXC, $CBYC, 1)
  969.                 Sleep(500)
  970.                 MouseClick("left", $CBXC, $CBYC)
  971.                 Sleep(2500)
  972.                 $x = $x+1
  973.             Until $x = 3*$amount
  974.             If $x = 3*$amount Then ExitLoop
  975.         WEnd
  976.  
  977.         MouseMove($xHG, $yHG,1)
  978.             Sleep(500)
  979.         MouseClick("left", $xHG, $yHG)
  980.             Sleep(500)
  981.  
  982.         MouseMove($CBXC, $CBYC, 1)
  983.             Sleep(500)
  984.  
  985.             While 1
  986.                 Local $x = 0
  987.                 Do
  988.                 MouseMove($CBXC, $CBYC, 1)
  989.                 Sleep(500)
  990.                 MouseClick("left", $CBXC, $CBYC)
  991.                 Sleep(2500)
  992.                 $x = $x+1
  993.             Until $x = $amount
  994.             If $x = $amount Then ExitLoop
  995.         WEnd
  996.         Return
  997.     EndIf
  998.  
  999.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Flawless Star" Then
  1000.         MouseMove($xSG, $ySG, 1)
  1001.             Sleep(500)
  1002.         MouseClick("LEFT", $xSG, $ySG)
  1003.             Sleep(500)
  1004.  
  1005.         MouseMove($CBXC, $CBYC, 1)
  1006.             Sleep(500)
  1007.  
  1008.             While 1
  1009.                 Local $x = 0
  1010.                 Do
  1011.                 MouseMove($CBXC, $CBYC, 1)
  1012.                 Sleep(500)
  1013.                 MouseClick("left", $CBXC, $CBYC)
  1014.                 Sleep(2500)
  1015.                 $x = $x+1
  1016.             Until $x = 9*$amount
  1017.             If $x = 9*$amount Then ExitLoop
  1018.         WEnd
  1019.  
  1020.         MouseMove($xHG, $yHG,1)
  1021.             Sleep(500)
  1022.         MouseClick("left", $xHG, $yHG)
  1023.             Sleep(500)
  1024.  
  1025.         MouseMove($CBXC, $CBYC, 1)
  1026.             Sleep(500)
  1027.  
  1028.             While 1
  1029.                 Local $x = 0
  1030.                 Do
  1031.                 MouseMove($CBXC, $CBYC, 1)
  1032.                 Sleep(500)
  1033.                 MouseClick("left", $CBXC, $CBYC)
  1034.                 Sleep(2500)
  1035.                 $x = $x+1
  1036.             Until $x = 3*$amount
  1037.             If $x = 3*$amount Then ExitLoop
  1038.         WEnd
  1039.  
  1040.         MouseMove($xHG, $y3,1)
  1041.             Sleep(500)
  1042.         MouseClick("left", $xHG, $y3)
  1043.             Sleep(500)
  1044.  
  1045.         MouseMove($CBXC, $CBYC, 1)
  1046.             Sleep(500)
  1047.  
  1048.             While 1
  1049.                 Local $x = 0
  1050.                 Do
  1051.                 MouseMove($CBXC, $CBYC, 1)
  1052.                 Sleep(500)
  1053.                 MouseClick("left", $CBXC, $CBYC)
  1054.                 Sleep(2500)
  1055.                 $x = $x+1
  1056.             Until $x = $amount
  1057.             If $x = $amount Then ExitLoop
  1058.         WEnd
  1059.         Return
  1060.         EndIf
  1061.  
  1062.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Perfect Star" Then
  1063.         MouseMove($xSG, $ySG, 1)
  1064.             Sleep(500)
  1065.         MouseClick("LEFT", $xSG, $ySG)
  1066.             Sleep(500)
  1067.  
  1068.         MouseMove($CBXC, $CBYC, 1)
  1069.             Sleep(500)
  1070.  
  1071.             While 1
  1072.                 Local $x = 0
  1073.                 Do
  1074.                 MouseMove($CBXC, $CBYC, 1)
  1075.                 Sleep(500)
  1076.                 MouseClick("left", $CBXC, $CBYC)
  1077.                 Sleep(2500)
  1078.                 $x = $x+1
  1079.             Until $x = 27*$amount
  1080.             If $x = 27*$amount Then ExitLoop
  1081.         WEnd
  1082.  
  1083.         MouseMove($xHG, $yHG,1)
  1084.             Sleep(500)
  1085.         MouseClick("left", $xHG, $yHG)
  1086.             Sleep(500)
  1087.  
  1088.         MouseMove($CBXC, $CBYC, 1)
  1089.             Sleep(500)
  1090.  
  1091.             While 1
  1092.                 Local $x = 0
  1093.                 Do
  1094.                 MouseMove($CBXC, $CBYC, 1)
  1095.                 Sleep(500)
  1096.                 MouseClick("left", $CBXC, $CBYC)
  1097.                 Sleep(2500)
  1098.                 $x = $x+1
  1099.             Until $x = 9*$amount
  1100.             If $x = 9*$amount Then ExitLoop
  1101.         WEnd
  1102.  
  1103.         MouseMove($xHG, $y3,1)
  1104.             Sleep(500)
  1105.         MouseClick("left", $xHG, $y3)
  1106.             Sleep(500)
  1107.  
  1108.         MouseMove($CBXC, $CBYC, 1)
  1109.             Sleep(500)
  1110.  
  1111.             While 1
  1112.                 Local $x = 0
  1113.                 Do
  1114.                 MouseMove($CBXC, $CBYC, 1)
  1115.                 Sleep(500)
  1116.                 MouseClick("left", $CBXC, $CBYC)
  1117.                 Sleep(2500)
  1118.                 $x = $x+1
  1119.             Until $x = 3*$amount
  1120.             If $x = 3*$amount Then ExitLoop
  1121.         WEnd
  1122.  
  1123.         MouseMove($xHG, $y4,1)
  1124.             Sleep(500)
  1125.         MouseClick("left", $xHG, $y4)
  1126.             Sleep(500)
  1127.  
  1128.         MouseMove($CBXC, $CBYC, 1)
  1129.             Sleep(500)
  1130.  
  1131.             While 1
  1132.                 Local $x = 0
  1133.                 Do
  1134.                 MouseMove($CBXC, $CBYC, 1)
  1135.                 Sleep(500)
  1136.                 MouseClick("left", $CBXC, $CBYC)
  1137.                 Sleep(2500)
  1138.                 $x = $x+1
  1139.             Until $x = $amount
  1140.             If $x = $amount Then ExitLoop
  1141.         WEnd
  1142.         Return
  1143.         EndIf
  1144.  
  1145.     If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  1146.         MouseMove($xSG, $ySG, 1)
  1147.             Sleep(500)
  1148.         MouseClick("LEFT", $xSG, $ySG)
  1149.             Sleep(500)
  1150.  
  1151.         MouseMove($CBXC, $CBYC, 1)
  1152.             Sleep(500)
  1153.  
  1154.             While 1
  1155.                 Local $x = 0
  1156.                 Do
  1157.                 MouseMove($CBXC, $CBYC, 1)
  1158.                 Sleep(500)
  1159.                 MouseClick("left", $CBXC, $CBYC)
  1160.                 Sleep(2500)
  1161.                 $x = $x+1
  1162.             Until $x = 81*$amount
  1163.             If $x = 81*$amount Then ExitLoop
  1164.         WEnd
  1165.  
  1166.         MouseMove($xHG, $yHG,1)
  1167.             Sleep(500)
  1168.         MouseClick("left", $xHG, $yHG)
  1169.             Sleep(500)
  1170.  
  1171.         MouseMove($CBXC, $CBYC, 1)
  1172.             Sleep(500)
  1173.  
  1174.             While 1
  1175.                 Local $x = 0
  1176.                 Do
  1177.                 MouseMove($CBXC, $CBYC, 1)
  1178.                 Sleep(500)
  1179.                 MouseClick("left", $CBXC, $CBYC)
  1180.                 Sleep(2500)
  1181.                 $x = $x+1
  1182.             Until $x = 27*$amount
  1183.             If $x = 27*$amount Then ExitLoop
  1184.         WEnd
  1185.  
  1186.         MouseMove($xHG, $y3,1)
  1187.             Sleep(500)
  1188.         MouseClick("left", $xHG, $y3)
  1189.             Sleep(500)
  1190.  
  1191.         MouseMove($CBXC, $CBYC, 1)
  1192.             Sleep(500)
  1193.  
  1194.             While 1
  1195.                 Local $x = 0
  1196.                 Do
  1197.                 MouseMove($CBXC, $CBYC, 1)
  1198.                 Sleep(500)
  1199.                 MouseClick("left", $CBXC, $CBYC)
  1200.                 Sleep(2500)
  1201.                 $x = $x+1
  1202.             Until $x = 9*$amount
  1203.             If $x = 9*$amount Then ExitLoop
  1204.         WEnd
  1205.  
  1206.         MouseMove($xHG, $y4,1)
  1207.             Sleep(500)
  1208.         MouseClick("left", $xHG, $y4)
  1209.             Sleep(500)
  1210.  
  1211.         MouseMove($CBXC, $CBYC, 1)
  1212.             Sleep(500)
  1213.  
  1214.             While 1
  1215.                 Local $x = 0
  1216.                 Do
  1217.                 MouseMove($CBXC, $CBYC, 1)
  1218.                 Sleep(500)
  1219.                 MouseClick("left", $CBXC, $CBYC)
  1220.                 Sleep(2500)
  1221.                 $x = $x+1
  1222.             Until $x = 3*$amount
  1223.             If $x = 3*$amount Then ExitLoop
  1224.         WEnd
  1225.  
  1226.         MouseMove($xHG, $y5,1)
  1227.             Sleep(500)
  1228.         MouseClick("left", $xHG, $y5)
  1229.             Sleep(500)
  1230.  
  1231.         MouseMove($CBXC, $CBYC, 1)
  1232.             Sleep(500)
  1233.  
  1234.             While 1
  1235.                 Local $x = 0
  1236.                 Do
  1237.                 MouseMove($CBXC, $CBYC, 1)
  1238.                 Sleep(500)
  1239.                 MouseClick("left", $CBXC, $CBYC)
  1240.                 Sleep(2500)
  1241.                 $x = $x+1
  1242.             Until $x = $amount
  1243.             If $x = $amount Then ExitLoop
  1244.         WEnd
  1245.         Return
  1246.      EndIf
  1247.  
  1248.      If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Marquise" Then
  1249.         MouseMove($xSG, $ySG, 1)
  1250.             Sleep(500)
  1251.         MouseClick("LEFT", $xSG, $ySG)
  1252.             Sleep(500)
  1253.  
  1254.         MouseMove($CBXC, $CBYC, 1)
  1255.             Sleep(500)
  1256.  
  1257.             While 1
  1258.                 Local $x = 0
  1259.                 Do
  1260.                 MouseMove($CBXC, $CBYC, 1)
  1261.                 Sleep(500)
  1262.                 MouseClick("left", $CBXC, $CBYC)
  1263.                 Sleep(2500)
  1264.                 $x = $x+1
  1265.             Until $x = 243*$amount
  1266.             If $x = 243*$amount Then ExitLoop
  1267.         WEnd
  1268.  
  1269.         MouseMove($xHG, $yHG,1)
  1270.             Sleep(500)
  1271.         MouseClick("left", $xHG, $yHG)
  1272.             Sleep(500)
  1273.  
  1274.         MouseMove($CBXC, $CBYC, 1)
  1275.             Sleep(500)
  1276.  
  1277.             While 1
  1278.                 Local $x = 0
  1279.                 Do
  1280.                 MouseMove($CBXC, $CBYC, 1)
  1281.                 Sleep(500)
  1282.                 MouseClick("left", $CBXC, $CBYC)
  1283.                 Sleep(2500)
  1284.                 $x = $x+1
  1285.             Until $x = 81*$amount
  1286.             If $x = 81*$amount Then ExitLoop
  1287.         WEnd
  1288.  
  1289.         MouseMove($xHG, $y3,1)
  1290.             Sleep(500)
  1291.         MouseClick("left", $xHG, $y3)
  1292.             Sleep(500)
  1293.  
  1294.         MouseMove($CBXC, $CBYC, 1)
  1295.             Sleep(500)
  1296.  
  1297.             While 1
  1298.                 Local $x = 0
  1299.                 Do
  1300.                 MouseMove($CBXC, $CBYC, 1)
  1301.                 Sleep(500)
  1302.                 MouseClick("left", $CBXC, $CBYC)
  1303.                 Sleep(2500)
  1304.                 $x = $x+1
  1305.             Until $x = 27*$amount
  1306.             If $x = 27*$amount Then ExitLoop
  1307.         WEnd
  1308.  
  1309.         MouseMove($xHG, $y4,1)
  1310.             Sleep(500)
  1311.         MouseClick("left", $xHG, $y4)
  1312.             Sleep(500)
  1313.  
  1314.         MouseMove($CBXC, $CBYC, 1)
  1315.             Sleep(500)
  1316.  
  1317.             While 1
  1318.                 Local $x = 0
  1319.                 Do
  1320.                 MouseMove($CBXC, $CBYC, 1)
  1321.                 Sleep(500)
  1322.                 MouseClick("left", $CBXC, $CBYC)
  1323.                 Sleep(2500)
  1324.                 $x = $x+1
  1325.             Until $x = 9*$amount
  1326.             If $x = 9*$amount Then ExitLoop
  1327.         WEnd
  1328.  
  1329.         MouseMove($xHG, $y5,1)
  1330.             Sleep(500)
  1331.         MouseClick("left", $xHG, $y5)
  1332.             Sleep(500)
  1333.  
  1334.         MouseMove($CBXC, $CBYC, 1)
  1335.             Sleep(500)
  1336.  
  1337.             While 1
  1338.                 Local $x = 0
  1339.                 Do
  1340.                 MouseMove($CBXC, $CBYC, 1)
  1341.                 Sleep(500)
  1342.                 MouseClick("left", $CBXC, $CBYC)
  1343.                 Sleep(2500)
  1344.                 $x = $x+1
  1345.             Until $x = 3*$amount
  1346.             If $x = 3*$amount Then ExitLoop
  1347.             WEnd
  1348.  
  1349.         MouseMove($xHG, $y6,1)
  1350.             Sleep(500)
  1351.         MouseClick("left", $xHG, $y6)
  1352.             Sleep(500)
  1353.  
  1354.         MouseMove($CBXC, $CBYC, 1)
  1355.             Sleep(500)
  1356.  
  1357.             While 1
  1358.                 Local $x = 0
  1359.                 Do
  1360.                 MouseMove($CBXC, $CBYC, 1)
  1361.                 Sleep(500)
  1362.                 MouseClick("left", $CBXC, $CBYC)
  1363.                 Sleep(2500)
  1364.                 $x = $x+1
  1365.             Until $x = $amount
  1366.             If $x = $amount Then ExitLoop
  1367.         WEnd
  1368.         Return
  1369.      EndIf
  1370.  
  1371.  
  1372.     ;Crafting - Star to -xx
  1373.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Star" Then
  1374.         MouseMove($xSG, $ySG, 1)
  1375.             Sleep(500)
  1376.         MouseClick("LEFT", $xSG, $ySG)
  1377.             Sleep(500)
  1378.  
  1379.         MouseMove($CBXC, $CBYC, 1)
  1380.             Sleep(500)
  1381.  
  1382.             While 1
  1383.                 Local $x = 0
  1384.                 Do
  1385.                 MouseMove($CBXC, $CBYC, 1)
  1386.                 Sleep(500)
  1387.                 MouseClick("left", $CBXC, $CBYC)
  1388.                 Sleep(2500)
  1389.                 $x = $x+1
  1390.             Until $x = $amount
  1391.             If $x = $amount Then ExitLoop
  1392.         WEnd
  1393.         Return
  1394.         EndIf
  1395.  
  1396.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Flawless Star" Then
  1397.         MouseMove($xSG, $ySG, 1)
  1398.             Sleep(500)
  1399.         MouseClick("LEFT", $xSG, $ySG)
  1400.             Sleep(500)
  1401.  
  1402.         MouseMove($CBXC, $CBYC, 1)
  1403.             Sleep(500)
  1404.  
  1405.             While 1
  1406.                 Local $x = 0
  1407.                 Do
  1408.                 MouseMove($CBXC, $CBYC, 1)
  1409.                 Sleep(500)
  1410.                 MouseClick("left", $CBXC, $CBYC)
  1411.                 Sleep(2500)
  1412.                 $x = $x+1
  1413.             Until $x = 3*$amount
  1414.             If $x = 3*$amount Then ExitLoop
  1415.         WEnd
  1416.  
  1417.         MouseMove($xHG, $yHG,1)
  1418.             Sleep(500)
  1419.         MouseClick("left", $xHG, $yHG)
  1420.             Sleep(500)
  1421.  
  1422.         MouseMove($CBXC, $CBYC, 1)
  1423.             Sleep(500)
  1424.  
  1425.             While 1
  1426.                 Local $x = 0
  1427.                 Do
  1428.                 MouseMove($CBXC, $CBYC, 1)
  1429.                 Sleep(500)
  1430.                 MouseClick("left", $CBXC, $CBYC)
  1431.                 Sleep(2500)
  1432.                 $x = $x+1
  1433.             Until $x = $amount
  1434.             If $x = $amount Then ExitLoop
  1435.         WEnd
  1436.         Return
  1437.     EndIf
  1438.  
  1439.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Perfect Star" Then
  1440.         MouseMove($xSG, $ySG, 1)
  1441.             Sleep(500)
  1442.         MouseClick("LEFT", $xSG, $ySG)
  1443.             Sleep(500)
  1444.  
  1445.         MouseMove($CBXC, $CBYC, 1)
  1446.             Sleep(500)
  1447.  
  1448.             While 1
  1449.                 Local $x = 0
  1450.                 Do
  1451.                 MouseMove($CBXC, $CBYC, 1)
  1452.                 Sleep(500)
  1453.                 MouseClick("left", $CBXC, $CBYC)
  1454.                 Sleep(2500)
  1455.                 $x = $x+1
  1456.             Until $x = 9*$amount
  1457.             If $x = 9*$amount Then ExitLoop
  1458.         WEnd
  1459.  
  1460.         MouseMove($xHG, $yHG,1)
  1461.             Sleep(500)
  1462.         MouseClick("left", $xHG, $yHG)
  1463.             Sleep(500)
  1464.  
  1465.         MouseMove($CBXC, $CBYC, 1)
  1466.             Sleep(500)
  1467.  
  1468.             While 1
  1469.                 Local $x = 0
  1470.                 Do
  1471.                 MouseMove($CBXC, $CBYC, 1)
  1472.                 Sleep(500)
  1473.                 MouseClick("left", $CBXC, $CBYC)
  1474.                 Sleep(2500)
  1475.                 $x = $x+1
  1476.             Until $x = 3*$amount
  1477.             If $x = 3*$amount Then ExitLoop
  1478.         WEnd
  1479.  
  1480.         MouseMove($xHG, $y3,1)
  1481.             Sleep(500)
  1482.         MouseClick("left", $xHG, $y3)
  1483.             Sleep(500)
  1484.  
  1485.         MouseMove($CBXC, $CBYC, 1)
  1486.             Sleep(500)
  1487.  
  1488.             While 1
  1489.                 Local $x = 0
  1490.                 Do
  1491.                 MouseMove($CBXC, $CBYC, 1)
  1492.                 Sleep(500)
  1493.                 MouseClick("left", $CBXC, $CBYC)
  1494.                 Sleep(2500)
  1495.                 $x = $x+1
  1496.             Until $x = $amount
  1497.             If $x = $amount Then ExitLoop
  1498.         WEnd
  1499.         Return
  1500.         EndIf
  1501.  
  1502.     If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  1503.         MouseMove($xSG, $ySG, 1)
  1504.             Sleep(500)
  1505.         MouseClick("LEFT", $xSG, $ySG)
  1506.             Sleep(500)
  1507.  
  1508.         MouseMove($CBXC, $CBYC, 1)
  1509.             Sleep(500)
  1510.  
  1511.             While 1
  1512.                 Local $x = 0
  1513.                 Do
  1514.                 MouseMove($CBXC, $CBYC, 1)
  1515.                 Sleep(500)
  1516.                 MouseClick("left", $CBXC, $CBYC)
  1517.                 Sleep(2500)
  1518.                 $x = $x+1
  1519.             Until $x = 27*$amount
  1520.             If $x = 27*$amount Then ExitLoop
  1521.         WEnd
  1522.  
  1523.         MouseMove($xHG, $yHG,1)
  1524.             Sleep(500)
  1525.         MouseClick("left", $xHG, $yHG)
  1526.             Sleep(500)
  1527.  
  1528.         MouseMove($CBXC, $CBYC, 1)
  1529.             Sleep(500)
  1530.  
  1531.             While 1
  1532.                 Local $x = 0
  1533.                 Do
  1534.                 MouseMove($CBXC, $CBYC, 1)
  1535.                 Sleep(500)
  1536.                 MouseClick("left", $CBXC, $CBYC)
  1537.                 Sleep(2500)
  1538.                 $x = $x+1
  1539.             Until $x = 9*$amount
  1540.             If $x = 9*$amount Then ExitLoop
  1541.         WEnd
  1542.  
  1543.         MouseMove($xHG, $y3,1)
  1544.             Sleep(500)
  1545.         MouseClick("left", $xHG, $y3)
  1546.             Sleep(500)
  1547.  
  1548.         MouseMove($CBXC, $CBYC, 1)
  1549.             Sleep(500)
  1550.  
  1551.             While 1
  1552.                 Local $x = 0
  1553.                 Do
  1554.                 MouseMove($CBXC, $CBYC, 1)
  1555.                 Sleep(500)
  1556.                 MouseClick("left", $CBXC, $CBYC)
  1557.                 Sleep(2500)
  1558.                 $x = $x+1
  1559.             Until $x = 3*$amount
  1560.             If $x = 3*$amount Then ExitLoop
  1561.         WEnd
  1562.  
  1563.         MouseMove($xHG, $y4,1)
  1564.             Sleep(500)
  1565.         MouseClick("left", $xHG, $y4)
  1566.             Sleep(500)
  1567.  
  1568.         MouseMove($CBXC, $CBYC, 1)
  1569.             Sleep(500)
  1570.  
  1571.             While 1
  1572.                 Local $x = 0
  1573.                 Do
  1574.                 MouseMove($CBXC, $CBYC, 1)
  1575.                 Sleep(500)
  1576.                 MouseClick("left", $CBXC, $CBYC)
  1577.                 Sleep(2500)
  1578.                 $x = $x+1
  1579.             Until $x = $amount
  1580.             If $x = $amount Then ExitLoop
  1581.         WEnd
  1582.         Return
  1583.      EndIf
  1584.  
  1585.      If GUICtrlRead($SGSelect) == "Star" And GUICtrlRead($FGSelect) == "Marquise" Then
  1586.         MouseMove($xSG, $ySG, 1)
  1587.             Sleep(500)
  1588.         MouseClick("LEFT", $xSG, $ySG)
  1589.             Sleep(500)
  1590.  
  1591.         MouseMove($CBXC, $CBYC, 1)
  1592.             Sleep(500)
  1593.  
  1594.             While 1
  1595.                 Local $x = 0
  1596.                 Do
  1597.                 MouseMove($CBXC, $CBYC, 1)
  1598.                 Sleep(500)
  1599.                 MouseClick("left", $CBXC, $CBYC)
  1600.                 Sleep(2500)
  1601.                 $x = $x+1
  1602.             Until $x = 81*$amount
  1603.             If $x = 81*$amount Then ExitLoop
  1604.         WEnd
  1605.  
  1606.         MouseMove($xHG, $yHG,1)
  1607.             Sleep(500)
  1608.         MouseClick("left", $xHG, $yHG)
  1609.             Sleep(500)
  1610.  
  1611.         MouseMove($CBXC, $CBYC, 1)
  1612.             Sleep(500)
  1613.  
  1614.             While 1
  1615.                 Local $x = 0
  1616.                 Do
  1617.                 MouseMove($CBXC, $CBYC, 1)
  1618.                 Sleep(500)
  1619.                 MouseClick("left", $CBXC, $CBYC)
  1620.                 Sleep(2500)
  1621.                 $x = $x+1
  1622.             Until $x = 27*$amount
  1623.             If $x = 27*$amount Then ExitLoop
  1624.         WEnd
  1625.  
  1626.         MouseMove($xHG, $y3,1)
  1627.             Sleep(500)
  1628.         MouseClick("left", $xHG, $y3)
  1629.             Sleep(500)
  1630.  
  1631.         MouseMove($CBXC, $CBYC, 1)
  1632.             Sleep(500)
  1633.  
  1634.             While 1
  1635.                 Local $x = 0
  1636.                 Do
  1637.                 MouseMove($CBXC, $CBYC, 1)
  1638.                 Sleep(500)
  1639.                 MouseClick("left", $CBXC, $CBYC)
  1640.                 Sleep(2500)
  1641.                 $x = $x+1
  1642.             Until $x = 9*$amount
  1643.             If $x = 9*$amount Then ExitLoop
  1644.         WEnd
  1645.  
  1646.         MouseMove($xHG, $y4,1)
  1647.             Sleep(500)
  1648.         MouseClick("left", $xHG, $y4)
  1649.             Sleep(500)
  1650.  
  1651.         MouseMove($CBXC, $CBYC, 1)
  1652.             Sleep(500)
  1653.  
  1654.             While 1
  1655.                 Local $x = 0
  1656.                 Do
  1657.                 MouseMove($CBXC, $CBYC, 1)
  1658.                 Sleep(500)
  1659.                 MouseClick("left", $CBXC, $CBYC)
  1660.                 Sleep(2500)
  1661.                 $x = $x+1
  1662.             Until $x = 3*$amount
  1663.             If $x = 3*$amount Then ExitLoop
  1664.         WEnd
  1665.  
  1666.         MouseMove($xHG, $y5,1)
  1667.             Sleep(500)
  1668.         MouseClick("left", $xHG, $y5)
  1669.             Sleep(500)
  1670.  
  1671.         MouseMove($CBXC, $CBYC, 1)
  1672.             Sleep(500)
  1673.  
  1674.             While 1
  1675.                 Local $x = 0
  1676.                 Do
  1677.                 MouseMove($CBXC, $CBYC, 1)
  1678.                 Sleep(500)
  1679.                 MouseClick("left", $CBXC, $CBYC)
  1680.                 Sleep(2500)
  1681.                 $x = $x+1
  1682.             Until $x = $amount
  1683.             If $x = $amount Then ExitLoop
  1684.         WEnd
  1685.         Return
  1686.         EndIf
  1687.  
  1688.     ;Crafting - Flawless Star to -xx
  1689.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Flawless Star" Then
  1690.         MouseMove($xSG, $ySG, 1)
  1691.             Sleep(500)
  1692.         MouseClick("LEFT", $xSG, $ySG)
  1693.             Sleep(500)
  1694.  
  1695.         MouseMove($CBXC, $CBYC, 1)
  1696.             Sleep(500)
  1697.  
  1698.             While 1
  1699.                 Local $x = 0
  1700.                 Do
  1701.                 MouseMove($CBXC, $CBYC, 1)
  1702.                 Sleep(500)
  1703.                 MouseClick("left", $CBXC, $CBYC)
  1704.                 Sleep(2500)
  1705.                 $x = $x+1
  1706.             Until $x = $amount
  1707.             If $x = $amount Then ExitLoop
  1708.         WEnd
  1709.         Return
  1710.         EndIf
  1711.  
  1712.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Perfect Star" Then
  1713.         MouseMove($xSG, $ySG, 1)
  1714.             Sleep(500)
  1715.         MouseClick("LEFT", $xSG, $ySG)
  1716.             Sleep(500)
  1717.  
  1718.         MouseMove($CBXC, $CBYC, 1)
  1719.             Sleep(500)
  1720.  
  1721.             While 1
  1722.                 Local $x = 0
  1723.                 Do
  1724.                 MouseMove($CBXC, $CBYC, 1)
  1725.                 Sleep(500)
  1726.                 MouseClick("left", $CBXC, $CBYC)
  1727.                 Sleep(2500)
  1728.                 $x = $x+1
  1729.             Until $x = 3*$amount
  1730.             If $x = 3*$amount Then ExitLoop
  1731.         WEnd
  1732.  
  1733.         MouseMove($xHG, $yHG,1)
  1734.             Sleep(500)
  1735.         MouseClick("left", $xHG, $yHG)
  1736.             Sleep(500)
  1737.  
  1738.         MouseMove($CBXC, $CBYC, 1)
  1739.             Sleep(500)
  1740.  
  1741.             While 1
  1742.                 Local $x = 0
  1743.                 Do
  1744.                 MouseMove($CBXC, $CBYC, 1)
  1745.                 Sleep(500)
  1746.                 MouseClick("left", $CBXC, $CBYC)
  1747.                 Sleep(2500)
  1748.                 $x = $x+1
  1749.             Until $x = $amount
  1750.             If $x = $amount Then ExitLoop
  1751.         WEnd
  1752.         Return
  1753.     EndIf
  1754.  
  1755.     If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  1756.         MouseMove($xSG, $ySG, 1)
  1757.             Sleep(500)
  1758.         MouseClick("LEFT", $xSG, $ySG)
  1759.             Sleep(500)
  1760.  
  1761.         MouseMove($CBXC, $CBYC, 1)
  1762.             Sleep(500)
  1763.  
  1764.             While 1
  1765.                 Local $x = 0
  1766.                 Do
  1767.                 MouseMove($CBXC, $CBYC, 1)
  1768.                 Sleep(500)
  1769.                 MouseClick("left", $CBXC, $CBYC)
  1770.                 Sleep(2500)
  1771.                 $x = $x+1
  1772.             Until $x = 9*$amount
  1773.             If $x = 9*$amount Then ExitLoop
  1774.         WEnd
  1775.  
  1776.         MouseMove($xHG, $yHG,1)
  1777.             Sleep(500)
  1778.         MouseClick("left", $xHG, $yHG)
  1779.             Sleep(500)
  1780.  
  1781.         MouseMove($CBXC, $CBYC, 1)
  1782.             Sleep(500)
  1783.  
  1784.             While 1
  1785.                 Local $x = 0
  1786.                 Do
  1787.                 MouseMove($CBXC, $CBYC, 1)
  1788.                 Sleep(500)
  1789.                 MouseClick("left", $CBXC, $CBYC)
  1790.                 Sleep(2500)
  1791.                 $x = $x+1
  1792.             Until $x = 3*$amount
  1793.             If $x = 3*$amount Then ExitLoop
  1794.         WEnd
  1795.  
  1796.         MouseMove($xHG, $y3,1)
  1797.             Sleep(500)
  1798.         MouseClick("left", $xHG, $y3)
  1799.             Sleep(500)
  1800.  
  1801.         MouseMove($CBXC, $CBYC, 1)
  1802.             Sleep(500)
  1803.  
  1804.             While 1
  1805.                 Local $x = 0
  1806.                 Do
  1807.                 MouseMove($CBXC, $CBYC, 1)
  1808.                 Sleep(500)
  1809.                 MouseClick("left", $CBXC, $CBYC)
  1810.                 Sleep(2500)
  1811.                 $x = $x+1
  1812.             Until $x = $amount
  1813.             If $x = $amount Then ExitLoop
  1814.         WEnd
  1815.         Return
  1816.      EndIf
  1817.  
  1818.      If GUICtrlRead($SGSelect) == "Flawless Star" And GUICtrlRead($FGSelect) == "Marquise" Then
  1819.         MouseMove($xSG, $ySG, 1)
  1820.             Sleep(500)
  1821.         MouseClick("LEFT", $xSG, $ySG)
  1822.             Sleep(500)
  1823.  
  1824.         MouseMove($CBXC, $CBYC, 1)
  1825.             Sleep(500)
  1826.  
  1827.             While 1
  1828.                 Local $x = 0
  1829.                 Do
  1830.                 MouseMove($CBXC, $CBYC, 1)
  1831.                 Sleep(500)
  1832.                 MouseClick("left", $CBXC, $CBYC)
  1833.                 Sleep(2500)
  1834.                 $x = $x+1
  1835.             Until $x = 27*$amount
  1836.             If $x = 27*$amount Then ExitLoop
  1837.         WEnd
  1838.  
  1839.         MouseMove($xHG, $yHG,1)
  1840.             Sleep(500)
  1841.         MouseClick("left", $xHG, $yHG)
  1842.             Sleep(500)
  1843.  
  1844.         MouseMove($CBXC, $CBYC, 1)
  1845.             Sleep(500)
  1846.  
  1847.             While 1
  1848.                 Local $x = 0
  1849.                 Do
  1850.                 MouseMove($CBXC, $CBYC, 1)
  1851.                 Sleep(500)
  1852.                 MouseClick("left", $CBXC, $CBYC)
  1853.                 Sleep(2500)
  1854.                 $x = $x+1
  1855.             Until $x = 9*$amount
  1856.             If $x = 9*$amount Then ExitLoop
  1857.         WEnd
  1858.  
  1859.         MouseMove($xHG, $y3,1)
  1860.             Sleep(500)
  1861.         MouseClick("left", $xHG, $y3)
  1862.             Sleep(500)
  1863.  
  1864.         MouseMove($CBXC, $CBYC, 1)
  1865.             Sleep(500)
  1866.  
  1867.             While 1
  1868.                 Local $x = 0
  1869.                 Do
  1870.                 MouseMove($CBXC, $CBYC, 1)
  1871.                 Sleep(500)
  1872.                 MouseClick("left", $CBXC, $CBYC)
  1873.                 Sleep(2500)
  1874.                 $x = $x+1
  1875.             Until $x = 3*$amount
  1876.             If $x = 3*$amount Then ExitLoop
  1877.         WEnd
  1878.  
  1879.         MouseMove($xHG, $y4,1)
  1880.             Sleep(500)
  1881.         MouseClick("left", $xHG, $y4)
  1882.             Sleep(500)
  1883.  
  1884.         MouseMove($CBXC, $CBYC, 1)
  1885.             Sleep(500)
  1886.  
  1887.             While 1
  1888.                 Local $x = 0
  1889.                 Do
  1890.                 MouseMove($CBXC, $CBYC, 1)
  1891.                 Sleep(500)
  1892.                 MouseClick("left", $CBXC, $CBYC)
  1893.                 Sleep(2500)
  1894.                 $x = $x+1
  1895.             Until $x = $amount
  1896.             If $x = $amount Then ExitLoop
  1897.         WEnd
  1898.         Return
  1899.         EndIf
  1900.  
  1901.     ;Crafting - Perfect Star to -xx
  1902.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Perfect Star" Then
  1903.         MouseMove($xSG, $ySG, 1)
  1904.             Sleep(500)
  1905.         MouseClick("LEFT", $xSG, $ySG)
  1906.             Sleep(500)
  1907.  
  1908.         MouseMove($CBXC, $CBYC, 1)
  1909.             Sleep(500)
  1910.  
  1911.             While 1
  1912.                 Local $x = 0
  1913.                 Do
  1914.                 MouseMove($CBXC, $CBYC, 1)
  1915.                 Sleep(500)
  1916.                 MouseClick("left", $CBXC, $CBYC)
  1917.                 Sleep(2500)
  1918.                 $x = $x+1
  1919.             Until $x = $amount
  1920.             If $x = $amount Then ExitLoop
  1921.         WEnd
  1922.         Return
  1923.         EndIf
  1924.  
  1925.     If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  1926.         MouseMove($xSG, $ySG, 1)
  1927.             Sleep(500)
  1928.         MouseClick("LEFT", $xSG, $ySG)
  1929.             Sleep(500)
  1930.  
  1931.         MouseMove($CBXC, $CBYC, 1)
  1932.             Sleep(500)
  1933.  
  1934.             While 1
  1935.                 Local $x = 0
  1936.                 Do
  1937.                 MouseMove($CBXC, $CBYC, 1)
  1938.                 Sleep(500)
  1939.                 MouseClick("left", $CBXC, $CBYC)
  1940.                 Sleep(2500)
  1941.                 $x = $x+1
  1942.             Until $x = 3*$amount
  1943.             If $x = 3*$amount Then ExitLoop
  1944.         WEnd
  1945.  
  1946.         MouseMove($xHG, $yHG,1)
  1947.             Sleep(500)
  1948.         MouseClick("left", $xHG, $yHG)
  1949.             Sleep(500)
  1950.  
  1951.         MouseMove($CBXC, $CBYC, 1)
  1952.             Sleep(500)
  1953.  
  1954.             While 1
  1955.                 Local $x = 0
  1956.                 Do
  1957.                 MouseMove($CBXC, $CBYC, 1)
  1958.                 Sleep(500)
  1959.                 MouseClick("left", $CBXC, $CBYC)
  1960.                 Sleep(2500)
  1961.                 $x = $x+1
  1962.             Until $x = $amount
  1963.             If $x = $amount Then ExitLoop
  1964.         WEnd
  1965.         Return
  1966.      EndIf
  1967.  
  1968.      If GUICtrlRead($SGSelect) == "Perfect Star" And GUICtrlRead($FGSelect) == "Marquise" Then
  1969.         MouseMove($xSG, $ySG, 1)
  1970.             Sleep(500)
  1971.         MouseClick("LEFT", $xSG, $ySG)
  1972.             Sleep(500)
  1973.  
  1974.         MouseMove($CBXC, $CBYC, 1)
  1975.             Sleep(500)
  1976.  
  1977.             While 1
  1978.                 Local $x = 0
  1979.                 Do
  1980.                 MouseMove($CBXC, $CBYC, 1)
  1981.                 Sleep(500)
  1982.                 MouseClick("left", $CBXC, $CBYC)
  1983.                 Sleep(2500)
  1984.                 $x = $x+1
  1985.             Until $x = 9*$amount
  1986.             If $x = 9*$amount Then ExitLoop
  1987.         WEnd
  1988.  
  1989.         MouseMove($xHG, $yHG,1)
  1990.             Sleep(500)
  1991.         MouseClick("left", $xHG, $yHG)
  1992.             Sleep(500)
  1993.  
  1994.         MouseMove($CBXC, $CBYC, 1)
  1995.             Sleep(500)
  1996.  
  1997.             While 1
  1998.                 Local $x = 0
  1999.                 Do
  2000.                 MouseMove($CBXC, $CBYC, 1)
  2001.                 Sleep(500)
  2002.                 MouseClick("left", $CBXC, $CBYC)
  2003.                 Sleep(2500)
  2004.                 $x = $x+1
  2005.             Until $x = 3*$amount
  2006.             If $x = 3*$amount Then ExitLoop
  2007.         WEnd
  2008.  
  2009.         MouseMove($xHG, $y3,1)
  2010.             Sleep(500)
  2011.         MouseClick("left", $xHG, $y3)
  2012.             Sleep(500)
  2013.  
  2014.         MouseMove($CBXC, $CBYC, 1)
  2015.             Sleep(500)
  2016.  
  2017.             While 1
  2018.                 Local $x = 0
  2019.                 Do
  2020.                 MouseMove($CBXC, $CBYC, 1)
  2021.                 Sleep(500)
  2022.                 MouseClick("left", $CBXC, $CBYC)
  2023.                 Sleep(2500)
  2024.                 $x = $x+1
  2025.             Until $x = $amount
  2026.             If $x = $amount Then ExitLoop
  2027.         WEnd
  2028.         Return
  2029.         EndIf
  2030.  
  2031.     ;Craftig - Radiant Star to -xx
  2032.     If GUICtrlRead($SGSelect) == "Radiant Star" And GUICtrlRead($FGSelect) == "Radiant Star" Then
  2033.         MouseMove($xSG, $ySG, 1)
  2034.             Sleep(500)
  2035.         MouseClick("LEFT", $xSG, $ySG)
  2036.             Sleep(500)
  2037.  
  2038.         MouseMove($CBXC, $CBYC, 1)
  2039.             Sleep(500)
  2040.  
  2041.             While 1
  2042.                 Local $x = 0
  2043.                 Do
  2044.                 MouseMove($CBXC, $CBYC, 1)
  2045.                 Sleep(500)
  2046.                 MouseClick("left", $CBXC, $CBYC)
  2047.                 Sleep(2500)
  2048.                 $x = $x+1
  2049.             Until $x = $amount
  2050.             If $x = $amount Then ExitLoop
  2051.         WEnd
  2052.         Return
  2053.      EndIf
  2054.  
  2055.      If GUICtrlRead($SGSelect) == "Radiant Square" And GUICtrlRead($FGSelect) == "Marquise" Then
  2056.  
  2057.         MouseMove($xSG, $ySG, 1)
  2058.             Sleep(500)
  2059.         MouseClick("LEFT", $xSG, $ySG)
  2060.             Sleep(500)
  2061.  
  2062.         MouseMove($CBXC, $CBYC, 1)
  2063.             Sleep(500)
  2064.  
  2065.  
  2066.             While 1
  2067.                 Local $i = 0
  2068.                 Do
  2069.                 MouseMove($CBXC, $CBYC, 1)
  2070.                 Sleep(500)
  2071.                 MouseClick("left", $CBXC, $CBYC)
  2072.                 Sleep(2500)
  2073.                 $i = $i+1
  2074.                 Until $i = 3*$amount
  2075.             If $i = 3*$amount Then ExitLoop
  2076.         WEnd
  2077.  
  2078.         MouseMove($xHG, $yHG,1)
  2079.             Sleep(500)
  2080.         MouseClick("left", $xHG, $yHG)
  2081.             Sleep(500)
  2082.  
  2083.         MouseMove($CBXC, $CBYC, 1)
  2084.             Sleep(500)
  2085.  
  2086.             While 1
  2087.                 Local $i = 0
  2088.                 Do
  2089.                 MouseMove($CBXC, $CBYC, 1)
  2090.                 Sleep(500)
  2091.                 MouseClick("left", $CBXC, $CBYC)
  2092.                 Sleep(2500)
  2093.                 $i = $i+1
  2094.                 Until $i = $amount
  2095.             If $i = $amount Then ExitLoop
  2096.  
  2097.         WEnd
  2098.         Return
  2099.     EndIf
  2100.  
  2101.  
  2102.     ;Craftig - Perfekt Quadratisch to -xx
  2103.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Perfekt Quadratisch" Then
  2104.         MouseMove($xSG, $ySG, 1)
  2105.             Sleep(500)
  2106.         MouseClick("LEFT", $xSG, $ySG)
  2107.             Sleep(500)
  2108.  
  2109.         MouseMove($CBXC, $CBYC, 1)
  2110.             Sleep(500)
  2111.  
  2112.             While 1
  2113.                 Local $x = 0
  2114.                 Do
  2115.                 MouseMove($CBXC, $CBYC, 1)
  2116.                 Sleep(500)
  2117.                 MouseClick("left", $CBXC, $CBYC)
  2118.                 Sleep(2500)
  2119.                 $x = $x+1
  2120.             Until $x = $amount
  2121.             If $x = $amount Then ExitLoop
  2122.         WEnd
  2123.         Return
  2124.         EndIf
  2125.  
  2126.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Glänzend Quadratisch" Then
  2127.  
  2128.         MouseMove($xSG, $ySG, 1)
  2129.             Sleep(500)
  2130.         MouseClick("LEFT", $xSG, $ySG)
  2131.             Sleep(500)
  2132.  
  2133.         MouseMove($CBXC, $CBYC, 1)
  2134.             Sleep(500)
  2135.  
  2136.  
  2137.             While 1
  2138.                 Local $i = 0
  2139.                 Do
  2140.                 MouseMove($CBXC, $CBYC, 1)
  2141.                 Sleep(500)
  2142.                 MouseClick("left", $CBXC, $CBYC)
  2143.                 Sleep(2500)
  2144.                 $i = $i+1
  2145.                 Until $i = 3*$amount
  2146.             If $i = 3*$amount Then ExitLoop
  2147.         WEnd
  2148.  
  2149.         MouseMove($xHG, $yHG,1)
  2150.             Sleep(500)
  2151.         MouseClick("left", $xHG, $yHG)
  2152.             Sleep(500)
  2153.  
  2154.         MouseMove($CBXC, $CBYC, 1)
  2155.             Sleep(500)
  2156.  
  2157.             While 1
  2158.                 Local $i = 0
  2159.                 Do
  2160.                 MouseMove($CBXC, $CBYC, 1)
  2161.                 Sleep(500)
  2162.                 MouseClick("left", $CBXC, $CBYC)
  2163.                 Sleep(2500)
  2164.                 $i = $i+1
  2165.                 Until $i = $amount
  2166.             If $i = $amount Then ExitLoop
  2167.  
  2168.         WEnd
  2169.         Return
  2170.  
  2171.         EndIf
  2172.  
  2173.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Sternförmig" Then
  2174.         MouseMove($xSG, $ySG, 1)
  2175.             Sleep(500)
  2176.         MouseClick("LEFT", $xSG, $ySG)
  2177.             Sleep(500)
  2178.  
  2179.         MouseMove($CBXC, $CBYC, 1)
  2180.             Sleep(500)
  2181.  
  2182.             While 1
  2183.                 Local $x = 0
  2184.                 Do
  2185.                 MouseMove($CBXC, $CBYC, 1)
  2186.                 Sleep(500)
  2187.                 MouseClick("left", $CBXC, $CBYC)
  2188.                 Sleep(2500)
  2189.                 $x = $x+1
  2190.             Until $x = 9*$amount
  2191.             If $x = 9*$amount Then ExitLoop
  2192.         WEnd
  2193.  
  2194.         MouseMove($xHG, $yHG,1)
  2195.             Sleep(500)
  2196.         MouseClick("left", $xHG, $yHG)
  2197.             Sleep(500)
  2198.  
  2199.         MouseMove($CBXC, $CBYC, 1)
  2200.             Sleep(500)
  2201.  
  2202.             While 1
  2203.                 Local $x = 0
  2204.                 Do
  2205.                 MouseMove($CBXC, $CBYC, 1)
  2206.                 Sleep(500)
  2207.                 MouseClick("left", $CBXC, $CBYC)
  2208.                 Sleep(2500)
  2209.                 $x = $x+1
  2210.             Until $x = 3*$amount
  2211.             If $x = 3*$amount Then ExitLoop
  2212.         WEnd
  2213.  
  2214.         MouseMove($xHG, $y3,1)
  2215.             Sleep(500)
  2216.         MouseClick("left", $xHG, $y3)
  2217.             Sleep(500)
  2218.  
  2219.         MouseMove($CBXC, $CBYC, 1)
  2220.             Sleep(500)
  2221.  
  2222.             While 1
  2223.                 Local $x = 0
  2224.                 Do
  2225.                 MouseMove($CBXC, $CBYC, 1)
  2226.                 Sleep(500)
  2227.                 MouseClick("left", $CBXC, $CBYC)
  2228.                 Sleep(2500)
  2229.                 $x = $x+1
  2230.             Until $x = $amount
  2231.             If $x = $amount Then ExitLoop
  2232.         WEnd
  2233.         Return
  2234.  
  2235.  
  2236.         EndIf
  2237.  
  2238.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Makellos Sternförmig" Then
  2239.         MouseMove($xSG, $ySG, 1)
  2240.             Sleep(500)
  2241.         MouseClick("LEFT", $xSG, $ySG)
  2242.             Sleep(500)
  2243.  
  2244.         MouseMove($CBXC, $CBYC, 1)
  2245.             Sleep(500)
  2246.  
  2247.             While 1
  2248.                 Local $x = 0
  2249.                 Do
  2250.                 MouseMove($CBXC, $CBYC, 1)
  2251.                 Sleep(500)
  2252.                 MouseClick("left", $CBXC, $CBYC)
  2253.                 Sleep(2500)
  2254.                 $x = $x+1
  2255.             Until $x = 27*$amount
  2256.             If $x = 27*$amount Then ExitLoop
  2257.         WEnd
  2258.  
  2259.         MouseMove($xHG, $yHG,1)
  2260.             Sleep(500)
  2261.         MouseClick("left", $xHG, $yHG)
  2262.             Sleep(500)
  2263.  
  2264.         MouseMove($CBXC, $CBYC, 1)
  2265.             Sleep(500)
  2266.  
  2267.             While 1
  2268.                 Local $x = 0
  2269.                 Do
  2270.                 MouseMove($CBXC, $CBYC, 1)
  2271.                 Sleep(500)
  2272.                 MouseClick("left", $CBXC, $CBYC)
  2273.                 Sleep(2500)
  2274.                 $x = $x+1
  2275.             Until $x = 9*$amount
  2276.             If $x = 9*$amount Then ExitLoop
  2277.         WEnd
  2278.  
  2279.         MouseMove($xHG, $y3,1)
  2280.             Sleep(500)
  2281.         MouseClick("left", $xHG, $y3)
  2282.             Sleep(500)
  2283.  
  2284.         MouseMove($CBXC, $CBYC, 1)
  2285.             Sleep(500)
  2286.  
  2287.             While 1
  2288.                 Local $x = 0
  2289.                 Do
  2290.                 MouseMove($CBXC, $CBYC, 1)
  2291.                 Sleep(500)
  2292.                 MouseClick("left", $CBXC, $CBYC)
  2293.                 Sleep(2500)
  2294.                 $x = $x+1
  2295.             Until $x = 3*$amount
  2296.             If $x = 3*$amount Then ExitLoop
  2297.         WEnd
  2298.  
  2299.         MouseMove($xHG, $y4,1)
  2300.             Sleep(500)
  2301.         MouseClick("left", $xHG, $y4)
  2302.             Sleep(500)
  2303.  
  2304.         MouseMove($CBXC, $CBYC, 1)
  2305.             Sleep(500)
  2306.  
  2307.             While 1
  2308.                 Local $x = 0
  2309.                 Do
  2310.                 MouseMove($CBXC, $CBYC, 1)
  2311.                 Sleep(500)
  2312.                 MouseClick("left", $CBXC, $CBYC)
  2313.                 Sleep(2500)
  2314.                 $x = $x+1
  2315.             Until $x = $amount
  2316.             If $x = $amount Then ExitLoop
  2317.         WEnd
  2318.         Return
  2319.  
  2320.  
  2321.         EndIf
  2322.  
  2323.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Perfekt Sternförmig" Then
  2324.         MouseMove($xSG, $ySG, 1)
  2325.             Sleep(500)
  2326.         MouseClick("LEFT", $xSG, $ySG)
  2327.             Sleep(500)
  2328.  
  2329.         MouseMove($CBXC, $CBYC, 1)
  2330.             Sleep(500)
  2331.  
  2332.             While 1
  2333.                 Local $x = 0
  2334.                 Do
  2335.                 MouseMove($CBXC, $CBYC, 1)
  2336.                 Sleep(500)
  2337.                 MouseClick("left", $CBXC, $CBYC)
  2338.                 Sleep(2500)
  2339.                 $x = $x+1
  2340.             Until $x = 81*$amount
  2341.             If $x = 81*$amount Then ExitLoop
  2342.         WEnd
  2343.  
  2344.         MouseMove($xHG, $yHG,1)
  2345.             Sleep(500)
  2346.         MouseClick("left", $xHG, $yHG)
  2347.             Sleep(500)
  2348.  
  2349.         MouseMove($CBXC, $CBYC, 1)
  2350.             Sleep(500)
  2351.  
  2352.             While 1
  2353.                 Local $x = 0
  2354.                 Do
  2355.                 MouseMove($CBXC, $CBYC, 1)
  2356.                 Sleep(500)
  2357.                 MouseClick("left", $CBXC, $CBYC)
  2358.                 Sleep(2500)
  2359.                 $x = $x+1
  2360.             Until $x = 27*$amount
  2361.             If $x = 27*$amount Then ExitLoop
  2362.         WEnd
  2363.  
  2364.         MouseMove($xHG, $y3,1)
  2365.             Sleep(500)
  2366.         MouseClick("left", $xHG, $y3)
  2367.             Sleep(500)
  2368.  
  2369.         MouseMove($CBXC, $CBYC, 1)
  2370.             Sleep(500)
  2371.  
  2372.             While 1
  2373.                 Local $x = 0
  2374.                 Do
  2375.                 MouseMove($CBXC, $CBYC, 1)
  2376.                 Sleep(500)
  2377.                 MouseClick("left", $CBXC, $CBYC)
  2378.                 Sleep(2500)
  2379.                 $x = $x+1
  2380.             Until $x = 9*$amount
  2381.             If $x = 9*$amount Then ExitLoop
  2382.         WEnd
  2383.  
  2384.         MouseMove($xHG, $y4,1)
  2385.             Sleep(500)
  2386.         MouseClick("left", $xHG, $y4)
  2387.             Sleep(500)
  2388.  
  2389.         MouseMove($CBXC, $CBYC, 1)
  2390.             Sleep(500)
  2391.  
  2392.             While 1
  2393.                 Local $x = 0
  2394.                 Do
  2395.                 MouseMove($CBXC, $CBYC, 1)
  2396.                 Sleep(500)
  2397.                 MouseClick("left", $CBXC, $CBYC)
  2398.                 Sleep(2500)
  2399.                 $x = $x+1
  2400.             Until $x = 3*$amount
  2401.             If $x = 3*$amount Then ExitLoop
  2402.         WEnd
  2403.  
  2404.         MouseMove($xHG, $y5,1)
  2405.             Sleep(500)
  2406.         MouseClick("left", $xHG, $y5)
  2407.             Sleep(500)
  2408.  
  2409.         MouseMove($CBXC, $CBYC, 1)
  2410.             Sleep(500)
  2411.  
  2412.             While 1
  2413.                 Local $x = 0
  2414.                 Do
  2415.                 MouseMove($CBXC, $CBYC, 1)
  2416.                 Sleep(500)
  2417.                 MouseClick("left", $CBXC, $CBYC)
  2418.                 Sleep(2500)
  2419.                 $x = $x+1
  2420.             Until $x = $amount
  2421.             If $x = $amount Then ExitLoop
  2422.         WEnd
  2423.         Return
  2424.         EndIf
  2425.  
  2426.     If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  2427.         MouseMove($xSG, $ySG, 1)
  2428.             Sleep(500)
  2429.         MouseClick("LEFT", $xSG, $ySG)
  2430.             Sleep(500)
  2431.  
  2432.         MouseMove($CBXC, $CBYC, 1)
  2433.             Sleep(500)
  2434.  
  2435.             While 1
  2436.                 Local $x = 0
  2437.                 Do
  2438.                 MouseMove($CBXC, $CBYC, 1)
  2439.                 Sleep(500)
  2440.                 MouseClick("left", $CBXC, $CBYC)
  2441.                 Sleep(2500)
  2442.                 $x = $x+1
  2443.             Until $x = 243*$amount
  2444.             If $x = 243*$amount Then ExitLoop
  2445.         WEnd
  2446.  
  2447.         MouseMove($xHG, $yHG,1)
  2448.             Sleep(500)
  2449.         MouseClick("left", $xHG, $yHG)
  2450.             Sleep(500)
  2451.  
  2452.         MouseMove($CBXC, $CBYC, 1)
  2453.             Sleep(500)
  2454.  
  2455.             While 1
  2456.                 Local $x = 0
  2457.                 Do
  2458.                 MouseMove($CBXC, $CBYC, 1)
  2459.                 Sleep(500)
  2460.                 MouseClick("left", $CBXC, $CBYC)
  2461.                 Sleep(2500)
  2462.                 $x = $x+1
  2463.             Until $x = 81*$amount
  2464.             If $x = 81*$amount Then ExitLoop
  2465.         WEnd
  2466.  
  2467.         MouseMove($xHG, $y3,1)
  2468.             Sleep(500)
  2469.         MouseClick("left", $xHG, $y3)
  2470.             Sleep(500)
  2471.  
  2472.         MouseMove($CBXC, $CBYC, 1)
  2473.             Sleep(500)
  2474.  
  2475.             While 1
  2476.                 Local $x = 0
  2477.                 Do
  2478.                 MouseMove($CBXC, $CBYC, 1)
  2479.                 Sleep(500)
  2480.                 MouseClick("left", $CBXC, $CBYC)
  2481.                 Sleep(2500)
  2482.                 $x = $x+1
  2483.             Until $x = 27*$amount
  2484.             If $x = 27*$amount Then ExitLoop
  2485.         WEnd
  2486.  
  2487.         MouseMove($xHG, $y4,1)
  2488.             Sleep(500)
  2489.         MouseClick("left", $xHG, $y4)
  2490.             Sleep(500)
  2491.  
  2492.         MouseMove($CBXC, $CBYC, 1)
  2493.             Sleep(500)
  2494.  
  2495.             While 1
  2496.                 Local $x = 0
  2497.                 Do
  2498.                 MouseMove($CBXC, $CBYC, 1)
  2499.                 Sleep(500)
  2500.                 MouseClick("left", $CBXC, $CBYC)
  2501.                 Sleep(2500)
  2502.                 $x = $x+1
  2503.             Until $x = 9*$amount
  2504.             If $x = 9*$amount Then ExitLoop
  2505.         WEnd
  2506.  
  2507.         MouseMove($xHG, $y5,1)
  2508.             Sleep(500)
  2509.         MouseClick("left", $xHG, $y5)
  2510.             Sleep(500)
  2511.  
  2512.         MouseMove($CBXC, $CBYC, 1)
  2513.             Sleep(500)
  2514.  
  2515.             While 1
  2516.                 Local $x = 0
  2517.                 Do
  2518.                 MouseMove($CBXC, $CBYC, 1)
  2519.                 Sleep(500)
  2520.                 MouseClick("left", $CBXC, $CBYC)
  2521.                 Sleep(2500)
  2522.                 $x = $x+1
  2523.             Until $x = 3*$amount
  2524.             If $x = 3*$amount Then ExitLoop
  2525.             WEnd
  2526.  
  2527.         MouseMove($xHG, $y6,1)
  2528.             Sleep(500)
  2529.         MouseClick("left", $xHG, $y6)
  2530.             Sleep(500)
  2531.  
  2532.         MouseMove($CBXC, $CBYC, 1)
  2533.             Sleep(500)
  2534.  
  2535.             While 1
  2536.                 Local $x = 0
  2537.                 Do
  2538.                 MouseMove($CBXC, $CBYC, 1)
  2539.                 Sleep(500)
  2540.                 MouseClick("left", $CBXC, $CBYC)
  2541.                 Sleep(2500)
  2542.                 $x = $x+1
  2543.             Until $x = $amount
  2544.             If $x = $amount Then ExitLoop
  2545.         WEnd
  2546.         Return
  2547.      EndIf
  2548.  
  2549.      If GUICtrlRead($SGSelectDE) == "Perfekt Quadratisch" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  2550.         MouseMove($xSG, $ySG, 1)
  2551.             Sleep(500)
  2552.         MouseClick("LEFT", $xSG, $ySG)
  2553.             Sleep(500)
  2554.  
  2555.         MouseMove($CBXC, $CBYC, 1)
  2556.             Sleep(500)
  2557.  
  2558.             While 1
  2559.                 Local $x = 0
  2560.                 Do
  2561.                 MouseMove($CBXC, $CBYC, 1)
  2562.                 Sleep(500)
  2563.                 MouseClick("left", $CBXC, $CBYC)
  2564.                 Sleep(2500)
  2565.                 $x = $x+1
  2566.             Until $x = 729*$amount
  2567.             If $x = 729*$amount Then ExitLoop
  2568.         WEnd
  2569.  
  2570.         MouseMove($xHG, $yHG,1)
  2571.             Sleep(500)
  2572.         MouseClick("left", $xHG, $yHG)
  2573.             Sleep(500)
  2574.  
  2575.         MouseMove($CBXC, $CBYC, 1)
  2576.             Sleep(500)
  2577.  
  2578.             While 1
  2579.                 Local $x = 0
  2580.                 Do
  2581.                 MouseMove($CBXC, $CBYC, 1)
  2582.                 Sleep(500)
  2583.                 MouseClick("left", $CBXC, $CBYC)
  2584.                 Sleep(2500)
  2585.                 $x = $x+1
  2586.             Until $x = 243*$amount
  2587.             If $x = 243*$amount Then ExitLoop
  2588.         WEnd
  2589.  
  2590.         MouseMove($xHG, $y3,1)
  2591.             Sleep(500)
  2592.         MouseClick("left", $xHG, $y3)
  2593.             Sleep(500)
  2594.  
  2595.         MouseMove($CBXC, $CBYC, 1)
  2596.             Sleep(500)
  2597.  
  2598.             While 1
  2599.                 Local $x = 0
  2600.                 Do
  2601.                 MouseMove($CBXC, $CBYC, 1)
  2602.                 Sleep(500)
  2603.                 MouseClick("left", $CBXC, $CBYC)
  2604.                 Sleep(2500)
  2605.                 $x = $x+1
  2606.             Until $x = 81*$amount
  2607.             If $x = 81*$amount Then ExitLoop
  2608.         WEnd
  2609.  
  2610.         MouseMove($xHG, $y4,1)
  2611.             Sleep(500)
  2612.         MouseClick("left", $xHG, $y4)
  2613.             Sleep(500)
  2614.  
  2615.         MouseMove($CBXC, $CBYC, 1)
  2616.             Sleep(500)
  2617.  
  2618.             While 1
  2619.                 Local $x = 0
  2620.                 Do
  2621.                 MouseMove($CBXC, $CBYC, 1)
  2622.                 Sleep(500)
  2623.                 MouseClick("left", $CBXC, $CBYC)
  2624.                 Sleep(2500)
  2625.                 $x = $x+1
  2626.             Until $x = 27*$amount
  2627.             If $x = 27*$amount Then ExitLoop
  2628.         WEnd
  2629.  
  2630.         MouseMove($xHG, $y5,1)
  2631.             Sleep(500)
  2632.         MouseClick("left", $xHG, $y5)
  2633.             Sleep(500)
  2634.  
  2635.         MouseMove($CBXC, $CBYC, 1)
  2636.             Sleep(500)
  2637.  
  2638.             While 1
  2639.                 Local $x = 0
  2640.                 Do
  2641.                 MouseMove($CBXC, $CBYC, 1)
  2642.                 Sleep(500)
  2643.                 MouseClick("left", $CBXC, $CBYC)
  2644.                 Sleep(2500)
  2645.                 $x = $x+1
  2646.             Until $x = 9*$amount
  2647.             If $x = 9*$amount Then ExitLoop
  2648.             WEnd
  2649.  
  2650.         MouseMove($xHG, $y6,1)
  2651.             Sleep(500)
  2652.         MouseClick("left", $xHG, $y6)
  2653.             Sleep(500)
  2654.  
  2655.         MouseMove($CBXC, $CBYC, 1)
  2656.             Sleep(500)
  2657.  
  2658.             While 1
  2659.                 Local $x = 0
  2660.                 Do
  2661.                 MouseMove($CBXC, $CBYC, 1)
  2662.                 Sleep(500)
  2663.                 MouseClick("left", $CBXC, $CBYC)
  2664.                 Sleep(2500)
  2665.                 $x = $x+1
  2666.             Until $x = 3*$amount
  2667.             If $x = 3*$amount Then ExitLoop
  2668.         WEnd
  2669.  
  2670.         MouseMove($xHG, $y7,1)
  2671.             Sleep(500)
  2672.         MouseClick("left", $xHG, $y7)
  2673.             Sleep(500)
  2674.  
  2675.         MouseMove($CBXC, $CBYC, 1)
  2676.             Sleep(500)
  2677.  
  2678.             While 1
  2679.                 Local $x = 0
  2680.                 Do
  2681.                 MouseMove($CBXC, $CBYC, 1)
  2682.                 Sleep(500)
  2683.                 MouseClick("left", $CBXC, $CBYC)
  2684.                 Sleep(2500)
  2685.                 $x = $x+1
  2686.             Until $x = $amount
  2687.             If $x = $amount Then ExitLoop
  2688.         WEnd
  2689.         Return
  2690.      EndIf
  2691.  
  2692.     ;Craftig - Glänzend Quadratisch to -xx
  2693.     If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Glänzend Quadratisch" Then
  2694.         MouseMove($xSG, $ySG, 1)
  2695.             Sleep(500)
  2696.         MouseClick("LEFT", $xSG, $ySG)
  2697.             Sleep(500)
  2698.  
  2699.         MouseMove($CBXC, $CBYC, 1)
  2700.             Sleep(500)
  2701.  
  2702.             While 1
  2703.                 Local $x = 0
  2704.                 Do
  2705.                 MouseMove($CBXC, $CBYC, 1)
  2706.                 Sleep(500)
  2707.                 MouseClick("left", $CBXC, $CBYC)
  2708.                 Sleep(2500)
  2709.                 $x = $x+1
  2710.             Until $x = $amount
  2711.             If $x = $amount Then ExitLoop
  2712.         WEnd
  2713.         Return
  2714.         EndIf
  2715.  
  2716.     If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Sternförmig" Then
  2717.         MouseMove($xSG, $ySG, 1)
  2718.             Sleep(500)
  2719.         MouseClick("LEFT", $xSG, $ySG)
  2720.             Sleep(500)
  2721.  
  2722.         MouseMove($CBXC, $CBYC, 1)
  2723.             Sleep(500)
  2724.  
  2725.             While 1
  2726.                 Local $x = 0
  2727.                 Do
  2728.                 MouseMove($CBXC, $CBYC, 1)
  2729.                 Sleep(500)
  2730.                 MouseClick("left", $CBXC, $CBYC)
  2731.                 Sleep(2500)
  2732.                 $x = $x+1
  2733.             Until $x = 3*$amount
  2734.             If $x = 3*$amount Then ExitLoop
  2735.         WEnd
  2736.  
  2737.         MouseMove($xHG, $yHG,1)
  2738.             Sleep(500)
  2739.         MouseClick("left", $xHG, $yHG)
  2740.             Sleep(500)
  2741.  
  2742.         MouseMove($CBXC, $CBYC, 1)
  2743.             Sleep(500)
  2744.  
  2745.             While 1
  2746.                 Local $x = 0
  2747.                 Do
  2748.                 MouseMove($CBXC, $CBYC, 1)
  2749.                 Sleep(500)
  2750.                 MouseClick("left", $CBXC, $CBYC)
  2751.                 Sleep(2500)
  2752.                 $x = $x+1
  2753.             Until $x = $amount
  2754.             If $x = $amount Then ExitLoop
  2755.         WEnd
  2756.         Return
  2757.     EndIf
  2758.  
  2759.     If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Makellos Sternförmig" Then
  2760.         MouseMove($xSG, $ySG, 1)
  2761.             Sleep(500)
  2762.         MouseClick("LEFT", $xSG, $ySG)
  2763.             Sleep(500)
  2764.  
  2765.         MouseMove($CBXC, $CBYC, 1)
  2766.             Sleep(500)
  2767.  
  2768.             While 1
  2769.                 Local $x = 0
  2770.                 Do
  2771.                 MouseMove($CBXC, $CBYC, 1)
  2772.                 Sleep(500)
  2773.                 MouseClick("left", $CBXC, $CBYC)
  2774.                 Sleep(2500)
  2775.                 $x = $x+1
  2776.             Until $x = 9*$amount
  2777.             If $x = 9*$amount Then ExitLoop
  2778.         WEnd
  2779.  
  2780.         MouseMove($xHG, $yHG,1)
  2781.             Sleep(500)
  2782.         MouseClick("left", $xHG, $yHG)
  2783.             Sleep(500)
  2784.  
  2785.         MouseMove($CBXC, $CBYC, 1)
  2786.             Sleep(500)
  2787.  
  2788.             While 1
  2789.                 Local $x = 0
  2790.                 Do
  2791.                 MouseMove($CBXC, $CBYC, 1)
  2792.                 Sleep(500)
  2793.                 MouseClick("left", $CBXC, $CBYC)
  2794.                 Sleep(2500)
  2795.                 $x = $x+1
  2796.             Until $x = 3*$amount
  2797.             If $x = 3*$amount Then ExitLoop
  2798.         WEnd
  2799.  
  2800.         MouseMove($xHG, $y3,1)
  2801.             Sleep(500)
  2802.         MouseClick("left", $xHG, $y3)
  2803.             Sleep(500)
  2804.  
  2805.         MouseMove($CBXC, $CBYC, 1)
  2806.             Sleep(500)
  2807.  
  2808.             While 1
  2809.                 Local $x = 0
  2810.                 Do
  2811.                 MouseMove($CBXC, $CBYC, 1)
  2812.                 Sleep(500)
  2813.                 MouseClick("left", $CBXC, $CBYC)
  2814.                 Sleep(2500)
  2815.                 $x = $x+1
  2816.             Until $x = $amount
  2817.             If $x = $amount Then ExitLoop
  2818.         WEnd
  2819.         Return
  2820.         EndIf
  2821.  
  2822.     If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Perfekt Sternförmig" Then
  2823.         MouseMove($xSG, $ySG, 1)
  2824.             Sleep(500)
  2825.         MouseClick("LEFT", $xSG, $ySG)
  2826.             Sleep(500)
  2827.  
  2828.         MouseMove($CBXC, $CBYC, 1)
  2829.             Sleep(500)
  2830.  
  2831.             While 1
  2832.                 Local $x = 0
  2833.                 Do
  2834.                 MouseMove($CBXC, $CBYC, 1)
  2835.                 Sleep(500)
  2836.                 MouseClick("left", $CBXC, $CBYC)
  2837.                 Sleep(2500)
  2838.                 $x = $x+1
  2839.             Until $x = 27*$amount
  2840.             If $x = 27*$amount Then ExitLoop
  2841.         WEnd
  2842.  
  2843.         MouseMove($xHG, $yHG,1)
  2844.             Sleep(500)
  2845.         MouseClick("left", $xHG, $yHG)
  2846.             Sleep(500)
  2847.  
  2848.         MouseMove($CBXC, $CBYC, 1)
  2849.             Sleep(500)
  2850.  
  2851.             While 1
  2852.                 Local $x = 0
  2853.                 Do
  2854.                 MouseMove($CBXC, $CBYC, 1)
  2855.                 Sleep(500)
  2856.                 MouseClick("left", $CBXC, $CBYC)
  2857.                 Sleep(2500)
  2858.                 $x = $x+1
  2859.             Until $x = 9*$amount
  2860.             If $x = 9*$amount Then ExitLoop
  2861.         WEnd
  2862.  
  2863.         MouseMove($xHG, $y3,1)
  2864.             Sleep(500)
  2865.         MouseClick("left", $xHG, $y3)
  2866.             Sleep(500)
  2867.  
  2868.         MouseMove($CBXC, $CBYC, 1)
  2869.             Sleep(500)
  2870.  
  2871.             While 1
  2872.                 Local $x = 0
  2873.                 Do
  2874.                 MouseMove($CBXC, $CBYC, 1)
  2875.                 Sleep(500)
  2876.                 MouseClick("left", $CBXC, $CBYC)
  2877.                 Sleep(2500)
  2878.                 $x = $x+1
  2879.             Until $x = 3*$amount
  2880.             If $x = 3*$amount Then ExitLoop
  2881.         WEnd
  2882.  
  2883.         MouseMove($xHG, $y4,1)
  2884.             Sleep(500)
  2885.         MouseClick("left", $xHG, $y4)
  2886.             Sleep(500)
  2887.  
  2888.         MouseMove($CBXC, $CBYC, 1)
  2889.             Sleep(500)
  2890.  
  2891.             While 1
  2892.                 Local $x = 0
  2893.                 Do
  2894.                 MouseMove($CBXC, $CBYC, 1)
  2895.                 Sleep(500)
  2896.                 MouseClick("left", $CBXC, $CBYC)
  2897.                 Sleep(2500)
  2898.                 $x = $x+1
  2899.             Until $x = $amount
  2900.             If $x = $amount Then ExitLoop
  2901.         WEnd
  2902.         Return
  2903.         EndIf
  2904.  
  2905.     If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  2906.         MouseMove($xSG, $ySG, 1)
  2907.             Sleep(500)
  2908.         MouseClick("LEFT", $xSG, $ySG)
  2909.             Sleep(500)
  2910.  
  2911.         MouseMove($CBXC, $CBYC, 1)
  2912.             Sleep(500)
  2913.  
  2914.             While 1
  2915.                 Local $x = 0
  2916.                 Do
  2917.                 MouseMove($CBXC, $CBYC, 1)
  2918.                 Sleep(500)
  2919.                 MouseClick("left", $CBXC, $CBYC)
  2920.                 Sleep(2500)
  2921.                 $x = $x+1
  2922.             Until $x = 81*$amount
  2923.             If $x = 81*$amount Then ExitLoop
  2924.         WEnd
  2925.  
  2926.         MouseMove($xHG, $yHG,1)
  2927.             Sleep(500)
  2928.         MouseClick("left", $xHG, $yHG)
  2929.             Sleep(500)
  2930.  
  2931.         MouseMove($CBXC, $CBYC, 1)
  2932.             Sleep(500)
  2933.  
  2934.             While 1
  2935.                 Local $x = 0
  2936.                 Do
  2937.                 MouseMove($CBXC, $CBYC, 1)
  2938.                 Sleep(500)
  2939.                 MouseClick("left", $CBXC, $CBYC)
  2940.                 Sleep(2500)
  2941.                 $x = $x+1
  2942.             Until $x = 27*$amount
  2943.             If $x = 27*$amount Then ExitLoop
  2944.         WEnd
  2945.  
  2946.         MouseMove($xHG, $y3,1)
  2947.             Sleep(500)
  2948.         MouseClick("left", $xHG, $y3)
  2949.             Sleep(500)
  2950.  
  2951.         MouseMove($CBXC, $CBYC, 1)
  2952.             Sleep(500)
  2953.  
  2954.             While 1
  2955.                 Local $x = 0
  2956.                 Do
  2957.                 MouseMove($CBXC, $CBYC, 1)
  2958.                 Sleep(500)
  2959.                 MouseClick("left", $CBXC, $CBYC)
  2960.                 Sleep(2500)
  2961.                 $x = $x+1
  2962.             Until $x = 9*$amount
  2963.             If $x = 9*$amount Then ExitLoop
  2964.         WEnd
  2965.  
  2966.         MouseMove($xHG, $y4,1)
  2967.             Sleep(500)
  2968.         MouseClick("left", $xHG, $y4)
  2969.             Sleep(500)
  2970.  
  2971.         MouseMove($CBXC, $CBYC, 1)
  2972.             Sleep(500)
  2973.  
  2974.             While 1
  2975.                 Local $x = 0
  2976.                 Do
  2977.                 MouseMove($CBXC, $CBYC, 1)
  2978.                 Sleep(500)
  2979.                 MouseClick("left", $CBXC, $CBYC)
  2980.                 Sleep(2500)
  2981.                 $x = $x+1
  2982.             Until $x = 3*$amount
  2983.             If $x = 3*$amount Then ExitLoop
  2984.         WEnd
  2985.  
  2986.         MouseMove($xHG, $y5,1)
  2987.             Sleep(500)
  2988.         MouseClick("left", $xHG, $y5)
  2989.             Sleep(500)
  2990.  
  2991.         MouseMove($CBXC, $CBYC, 1)
  2992.             Sleep(500)
  2993.  
  2994.             While 1
  2995.                 Local $x = 0
  2996.                 Do
  2997.                 MouseMove($CBXC, $CBYC, 1)
  2998.                 Sleep(500)
  2999.                 MouseClick("left", $CBXC, $CBYC)
  3000.                 Sleep(2500)
  3001.                 $x = $x+1
  3002.             Until $x = $amount
  3003.             If $x = $amount Then ExitLoop
  3004.         WEnd
  3005.         Return
  3006.      EndIf
  3007.  
  3008.      If GUICtrlRead($SGSelectDE) == "Glänzend Quadratisch" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3009.         MouseMove($xSG, $ySG, 1)
  3010.             Sleep(500)
  3011.         MouseClick("LEFT", $xSG, $ySG)
  3012.             Sleep(500)
  3013.  
  3014.         MouseMove($CBXC, $CBYC, 1)
  3015.             Sleep(500)
  3016.  
  3017.             While 1
  3018.                 Local $x = 0
  3019.                 Do
  3020.                 MouseMove($CBXC, $CBYC, 1)
  3021.                 Sleep(500)
  3022.                 MouseClick("left", $CBXC, $CBYC)
  3023.                 Sleep(2500)
  3024.                 $x = $x+1
  3025.             Until $x = 243*$amount
  3026.             If $x = 243*$amount Then ExitLoop
  3027.         WEnd
  3028.  
  3029.         MouseMove($xHG, $yHG,1)
  3030.             Sleep(500)
  3031.         MouseClick("left", $xHG, $yHG)
  3032.             Sleep(500)
  3033.  
  3034.         MouseMove($CBXC, $CBYC, 1)
  3035.             Sleep(500)
  3036.  
  3037.             While 1
  3038.                 Local $x = 0
  3039.                 Do
  3040.                 MouseMove($CBXC, $CBYC, 1)
  3041.                 Sleep(500)
  3042.                 MouseClick("left", $CBXC, $CBYC)
  3043.                 Sleep(2500)
  3044.                 $x = $x+1
  3045.             Until $x = 81*$amount
  3046.             If $x = 81*$amount Then ExitLoop
  3047.         WEnd
  3048.  
  3049.         MouseMove($xHG, $y3,1)
  3050.             Sleep(500)
  3051.         MouseClick("left", $xHG, $y3)
  3052.             Sleep(500)
  3053.  
  3054.         MouseMove($CBXC, $CBYC, 1)
  3055.             Sleep(500)
  3056.  
  3057.             While 1
  3058.                 Local $x = 0
  3059.                 Do
  3060.                 MouseMove($CBXC, $CBYC, 1)
  3061.                 Sleep(500)
  3062.                 MouseClick("left", $CBXC, $CBYC)
  3063.                 Sleep(2500)
  3064.                 $x = $x+1
  3065.             Until $x = 27*$amount
  3066.             If $x = 27*$amount Then ExitLoop
  3067.         WEnd
  3068.  
  3069.         MouseMove($xHG, $y4,1)
  3070.             Sleep(500)
  3071.         MouseClick("left", $xHG, $y4)
  3072.             Sleep(500)
  3073.  
  3074.         MouseMove($CBXC, $CBYC, 1)
  3075.             Sleep(500)
  3076.  
  3077.             While 1
  3078.                 Local $x = 0
  3079.                 Do
  3080.                 MouseMove($CBXC, $CBYC, 1)
  3081.                 Sleep(500)
  3082.                 MouseClick("left", $CBXC, $CBYC)
  3083.                 Sleep(2500)
  3084.                 $x = $x+1
  3085.             Until $x = 9*$amount
  3086.             If $x = 9*$amount Then ExitLoop
  3087.         WEnd
  3088.  
  3089.         MouseMove($xHG, $y5,1)
  3090.             Sleep(500)
  3091.         MouseClick("left", $xHG, $y5)
  3092.             Sleep(500)
  3093.  
  3094.         MouseMove($CBXC, $CBYC, 1)
  3095.             Sleep(500)
  3096.  
  3097.             While 1
  3098.                 Local $x = 0
  3099.                 Do
  3100.                 MouseMove($CBXC, $CBYC, 1)
  3101.                 Sleep(500)
  3102.                 MouseClick("left", $CBXC, $CBYC)
  3103.                 Sleep(2500)
  3104.                 $x = $x+1
  3105.             Until $x = 3*$amount
  3106.             If $x = 3*$amount Then ExitLoop
  3107.             WEnd
  3108.  
  3109.         MouseMove($xHG, $y6,1)
  3110.             Sleep(500)
  3111.         MouseClick("left", $xHG, $y6)
  3112.             Sleep(500)
  3113.  
  3114.         MouseMove($CBXC, $CBYC, 1)
  3115.             Sleep(500)
  3116.  
  3117.             While 1
  3118.                 Local $x = 0
  3119.                 Do
  3120.                 MouseMove($CBXC, $CBYC, 1)
  3121.                 Sleep(500)
  3122.                 MouseClick("left", $CBXC, $CBYC)
  3123.                 Sleep(2500)
  3124.                 $x = $x+1
  3125.             Until $x = $amount
  3126.             If $x = $amount Then ExitLoop
  3127.         WEnd
  3128.         Return
  3129.      EndIf
  3130.  
  3131.  
  3132.     ;Crafting - Sternförmig to -xx
  3133.     If GUICtrlRead($SGSelectDE) == "Sternförmig" And GUICtrlRead($FGSelectDE) == "Sternförmig" Then
  3134.         MouseMove($xSG, $ySG, 1)
  3135.             Sleep(500)
  3136.         MouseClick("LEFT", $xSG, $ySG)
  3137.             Sleep(500)
  3138.  
  3139.         MouseMove($CBXC, $CBYC, 1)
  3140.             Sleep(500)
  3141.  
  3142.             While 1
  3143.                 Local $x = 0
  3144.                 Do
  3145.                 MouseMove($CBXC, $CBYC, 1)
  3146.                 Sleep(500)
  3147.                 MouseClick("left", $CBXC, $CBYC)
  3148.                 Sleep(2500)
  3149.                 $x = $x+1
  3150.             Until $x = $amount
  3151.             If $x = $amount Then ExitLoop
  3152.         WEnd
  3153.         Return
  3154.         EndIf
  3155.  
  3156.     If GUICtrlRead($SGSelectDE) == "Sternförmig" And GUICtrlRead($FGSelectDE) == "Makellos Sternförmig" Then
  3157.         MouseMove($xSG, $ySG, 1)
  3158.             Sleep(500)
  3159.         MouseClick("LEFT", $xSG, $ySG)
  3160.             Sleep(500)
  3161.  
  3162.         MouseMove($CBXC, $CBYC, 1)
  3163.             Sleep(500)
  3164.  
  3165.             While 1
  3166.                 Local $x = 0
  3167.                 Do
  3168.                 MouseMove($CBXC, $CBYC, 1)
  3169.                 Sleep(500)
  3170.                 MouseClick("left", $CBXC, $CBYC)
  3171.                 Sleep(2500)
  3172.                 $x = $x+1
  3173.             Until $x = 3*$amount
  3174.             If $x = 3*$amount Then ExitLoop
  3175.         WEnd
  3176.  
  3177.         MouseMove($xHG, $yHG,1)
  3178.             Sleep(500)
  3179.         MouseClick("left", $xHG, $yHG)
  3180.             Sleep(500)
  3181.  
  3182.         MouseMove($CBXC, $CBYC, 1)
  3183.             Sleep(500)
  3184.  
  3185.             While 1
  3186.                 Local $x = 0
  3187.                 Do
  3188.                 MouseMove($CBXC, $CBYC, 1)
  3189.                 Sleep(500)
  3190.                 MouseClick("left", $CBXC, $CBYC)
  3191.                 Sleep(2500)
  3192.                 $x = $x+1
  3193.             Until $x = $amount
  3194.             If $x = $amount Then ExitLoop
  3195.         WEnd
  3196.         Return
  3197.     EndIf
  3198.  
  3199.     If GUICtrlRead($SGSelectDE) == "Sternförmig" And GUICtrlRead($FGSelectDE) == "Perfekt Sternförmig" Then
  3200.         MouseMove($xSG, $ySG, 1)
  3201.             Sleep(500)
  3202.         MouseClick("LEFT", $xSG, $ySG)
  3203.             Sleep(500)
  3204.  
  3205.         MouseMove($CBXC, $CBYC, 1)
  3206.             Sleep(500)
  3207.  
  3208.             While 1
  3209.                 Local $x = 0
  3210.                 Do
  3211.                 MouseMove($CBXC, $CBYC, 1)
  3212.                 Sleep(500)
  3213.                 MouseClick("left", $CBXC, $CBYC)
  3214.                 Sleep(2500)
  3215.                 $x = $x+1
  3216.             Until $x = 9*$amount
  3217.             If $x = 9*$amount Then ExitLoop
  3218.         WEnd
  3219.  
  3220.         MouseMove($xHG, $yHG,1)
  3221.             Sleep(500)
  3222.         MouseClick("left", $xHG, $yHG)
  3223.             Sleep(500)
  3224.  
  3225.         MouseMove($CBXC, $CBYC, 1)
  3226.             Sleep(500)
  3227.  
  3228.             While 1
  3229.                 Local $x = 0
  3230.                 Do
  3231.                 MouseMove($CBXC, $CBYC, 1)
  3232.                 Sleep(500)
  3233.                 MouseClick("left", $CBXC, $CBYC)
  3234.                 Sleep(2500)
  3235.                 $x = $x+1
  3236.             Until $x = 3*$amount
  3237.             If $x = 3*$amount Then ExitLoop
  3238.         WEnd
  3239.  
  3240.         MouseMove($xHG, $y3,1)
  3241.             Sleep(500)
  3242.         MouseClick("left", $xHG, $y3)
  3243.             Sleep(500)
  3244.  
  3245.         MouseMove($CBXC, $CBYC, 1)
  3246.             Sleep(500)
  3247.  
  3248.             While 1
  3249.                 Local $x = 0
  3250.                 Do
  3251.                 MouseMove($CBXC, $CBYC, 1)
  3252.                 Sleep(500)
  3253.                 MouseClick("left", $CBXC, $CBYC)
  3254.                 Sleep(2500)
  3255.                 $x = $x+1
  3256.             Until $x = $amount
  3257.             If $x = $amount Then ExitLoop
  3258.         WEnd
  3259.         Return
  3260.         EndIf
  3261.  
  3262.     If GUICtrlRead($SGSelectDE) == "Sternförmig" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  3263.         MouseMove($xSG, $ySG, 1)
  3264.             Sleep(500)
  3265.         MouseClick("LEFT", $xSG, $ySG)
  3266.             Sleep(500)
  3267.  
  3268.         MouseMove($CBXC, $CBYC, 1)
  3269.             Sleep(500)
  3270.  
  3271.             While 1
  3272.                 Local $x = 0
  3273.                 Do
  3274.                 MouseMove($CBXC, $CBYC, 1)
  3275.                 Sleep(500)
  3276.                 MouseClick("left", $CBXC, $CBYC)
  3277.                 Sleep(2500)
  3278.                 $x = $x+1
  3279.             Until $x = 27*$amount
  3280.             If $x = 27*$amount Then ExitLoop
  3281.         WEnd
  3282.  
  3283.         MouseMove($xHG, $yHG,1)
  3284.             Sleep(500)
  3285.         MouseClick("left", $xHG, $yHG)
  3286.             Sleep(500)
  3287.  
  3288.         MouseMove($CBXC, $CBYC, 1)
  3289.             Sleep(500)
  3290.  
  3291.             While 1
  3292.                 Local $x = 0
  3293.                 Do
  3294.                 MouseMove($CBXC, $CBYC, 1)
  3295.                 Sleep(500)
  3296.                 MouseClick("left", $CBXC, $CBYC)
  3297.                 Sleep(2500)
  3298.                 $x = $x+1
  3299.             Until $x = 9*$amount
  3300.             If $x = 9*$amount Then ExitLoop
  3301.         WEnd
  3302.  
  3303.         MouseMove($xHG, $y3,1)
  3304.             Sleep(500)
  3305.         MouseClick("left", $xHG, $y3)
  3306.             Sleep(500)
  3307.  
  3308.         MouseMove($CBXC, $CBYC, 1)
  3309.             Sleep(500)
  3310.  
  3311.             While 1
  3312.                 Local $x = 0
  3313.                 Do
  3314.                 MouseMove($CBXC, $CBYC, 1)
  3315.                 Sleep(500)
  3316.                 MouseClick("left", $CBXC, $CBYC)
  3317.                 Sleep(2500)
  3318.                 $x = $x+1
  3319.             Until $x = 3*$amount
  3320.             If $x = 3*$amount Then ExitLoop
  3321.         WEnd
  3322.  
  3323.         MouseMove($xHG, $y4,1)
  3324.             Sleep(500)
  3325.         MouseClick("left", $xHG, $y4)
  3326.             Sleep(500)
  3327.  
  3328.         MouseMove($CBXC, $CBYC, 1)
  3329.             Sleep(500)
  3330.  
  3331.             While 1
  3332.                 Local $x = 0
  3333.                 Do
  3334.                 MouseMove($CBXC, $CBYC, 1)
  3335.                 Sleep(500)
  3336.                 MouseClick("left", $CBXC, $CBYC)
  3337.                 Sleep(2500)
  3338.                 $x = $x+1
  3339.             Until $x = $amount
  3340.             If $x = $amount Then ExitLoop
  3341.         WEnd
  3342.         Return
  3343.      EndIf
  3344.  
  3345.      If GUICtrlRead($SGSelectDE) == "Sternförmig" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3346.         MouseMove($xSG, $ySG, 1)
  3347.             Sleep(500)
  3348.         MouseClick("LEFT", $xSG, $ySG)
  3349.             Sleep(500)
  3350.  
  3351.         MouseMove($CBXC, $CBYC, 1)
  3352.             Sleep(500)
  3353.  
  3354.             While 1
  3355.                 Local $x = 0
  3356.                 Do
  3357.                 MouseMove($CBXC, $CBYC, 1)
  3358.                 Sleep(500)
  3359.                 MouseClick("left", $CBXC, $CBYC)
  3360.                 Sleep(2500)
  3361.                 $x = $x+1
  3362.             Until $x = 81*$amount
  3363.             If $x = 81*$amount Then ExitLoop
  3364.         WEnd
  3365.  
  3366.         MouseMove($xHG, $yHG,1)
  3367.             Sleep(500)
  3368.         MouseClick("left", $xHG, $yHG)
  3369.             Sleep(500)
  3370.  
  3371.         MouseMove($CBXC, $CBYC, 1)
  3372.             Sleep(500)
  3373.  
  3374.             While 1
  3375.                 Local $x = 0
  3376.                 Do
  3377.                 MouseMove($CBXC, $CBYC, 1)
  3378.                 Sleep(500)
  3379.                 MouseClick("left", $CBXC, $CBYC)
  3380.                 Sleep(2500)
  3381.                 $x = $x+1
  3382.             Until $x = 27*$amount
  3383.             If $x = 27*$amount Then ExitLoop
  3384.         WEnd
  3385.  
  3386.         MouseMove($xHG, $y3,1)
  3387.             Sleep(500)
  3388.         MouseClick("left", $xHG, $y3)
  3389.             Sleep(500)
  3390.  
  3391.         MouseMove($CBXC, $CBYC, 1)
  3392.             Sleep(500)
  3393.  
  3394.             While 1
  3395.                 Local $x = 0
  3396.                 Do
  3397.                 MouseMove($CBXC, $CBYC, 1)
  3398.                 Sleep(500)
  3399.                 MouseClick("left", $CBXC, $CBYC)
  3400.                 Sleep(2500)
  3401.                 $x = $x+1
  3402.             Until $x = 9*$amount
  3403.             If $x = 9*$amount Then ExitLoop
  3404.         WEnd
  3405.  
  3406.         MouseMove($xHG, $y4,1)
  3407.             Sleep(500)
  3408.         MouseClick("left", $xHG, $y4)
  3409.             Sleep(500)
  3410.  
  3411.         MouseMove($CBXC, $CBYC, 1)
  3412.             Sleep(500)
  3413.  
  3414.             While 1
  3415.                 Local $x = 0
  3416.                 Do
  3417.                 MouseMove($CBXC, $CBYC, 1)
  3418.                 Sleep(500)
  3419.                 MouseClick("left", $CBXC, $CBYC)
  3420.                 Sleep(2500)
  3421.                 $x = $x+1
  3422.             Until $x = 3*$amount
  3423.             If $x = 3*$amount Then ExitLoop
  3424.         WEnd
  3425.  
  3426.         MouseMove($xHG, $y5,1)
  3427.             Sleep(500)
  3428.         MouseClick("left", $xHG, $y5)
  3429.             Sleep(500)
  3430.  
  3431.         MouseMove($CBXC, $CBYC, 1)
  3432.             Sleep(500)
  3433.  
  3434.             While 1
  3435.                 Local $x = 0
  3436.                 Do
  3437.                 MouseMove($CBXC, $CBYC, 1)
  3438.                 Sleep(500)
  3439.                 MouseClick("left", $CBXC, $CBYC)
  3440.                 Sleep(2500)
  3441.                 $x = $x+1
  3442.             Until $x = $amount
  3443.             If $x = $amount Then ExitLoop
  3444.         WEnd
  3445.         Return
  3446.         EndIf
  3447.  
  3448.     ;Crafting - Makellos Sternförmig to -xx
  3449.     If GUICtrlRead($SGSelectDE) == "Makellos Sternförmig" And GUICtrlRead($FGSelectDE) == "Makellos Sternförmig" Then
  3450.         MouseMove($xSG, $ySG, 1)
  3451.             Sleep(500)
  3452.         MouseClick("LEFT", $xSG, $ySG)
  3453.             Sleep(500)
  3454.  
  3455.         MouseMove($CBXC, $CBYC, 1)
  3456.             Sleep(500)
  3457.  
  3458.             While 1
  3459.                 Local $x = 0
  3460.                 Do
  3461.                 MouseMove($CBXC, $CBYC, 1)
  3462.                 Sleep(500)
  3463.                 MouseClick("left", $CBXC, $CBYC)
  3464.                 Sleep(2500)
  3465.                 $x = $x+1
  3466.             Until $x = $amount
  3467.             If $x = $amount Then ExitLoop
  3468.         WEnd
  3469.         Return
  3470.         EndIf
  3471.  
  3472.     If GUICtrlRead($SGSelectDE) == "Makellos Sternförmig" And GUICtrlRead($FGSelectDE) == "Perfekt Sternförmig" Then
  3473.         MouseMove($xSG, $ySG, 1)
  3474.             Sleep(500)
  3475.         MouseClick("LEFT", $xSG, $ySG)
  3476.             Sleep(500)
  3477.  
  3478.         MouseMove($CBXC, $CBYC, 1)
  3479.             Sleep(500)
  3480.  
  3481.             While 1
  3482.                 Local $x = 0
  3483.                 Do
  3484.                 MouseMove($CBXC, $CBYC, 1)
  3485.                 Sleep(500)
  3486.                 MouseClick("left", $CBXC, $CBYC)
  3487.                 Sleep(2500)
  3488.                 $x = $x+1
  3489.             Until $x = 3*$amount
  3490.             If $x = 3*$amount Then ExitLoop
  3491.         WEnd
  3492.  
  3493.         MouseMove($xHG, $yHG,1)
  3494.             Sleep(500)
  3495.         MouseClick("left", $xHG, $yHG)
  3496.             Sleep(500)
  3497.  
  3498.         MouseMove($CBXC, $CBYC, 1)
  3499.             Sleep(500)
  3500.  
  3501.             While 1
  3502.                 Local $x = 0
  3503.                 Do
  3504.                 MouseMove($CBXC, $CBYC, 1)
  3505.                 Sleep(500)
  3506.                 MouseClick("left", $CBXC, $CBYC)
  3507.                 Sleep(2500)
  3508.                 $x = $x+1
  3509.             Until $x = $amount
  3510.             If $x = $amount Then ExitLoop
  3511.         WEnd
  3512.         Return
  3513.     EndIf
  3514.  
  3515.     If GUICtrlRead($SGSelectDE) == "Makellos Sternförmig" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  3516.         MouseMove($xSG, $ySG, 1)
  3517.             Sleep(500)
  3518.         MouseClick("LEFT", $xSG, $ySG)
  3519.             Sleep(500)
  3520.  
  3521.         MouseMove($CBXC, $CBYC, 1)
  3522.             Sleep(500)
  3523.  
  3524.             While 1
  3525.                 Local $x = 0
  3526.                 Do
  3527.                 MouseMove($CBXC, $CBYC, 1)
  3528.                 Sleep(500)
  3529.                 MouseClick("left", $CBXC, $CBYC)
  3530.                 Sleep(2500)
  3531.                 $x = $x+1
  3532.             Until $x = 9*$amount
  3533.             If $x = 9*$amount Then ExitLoop
  3534.         WEnd
  3535.  
  3536.         MouseMove($xHG, $yHG,1)
  3537.             Sleep(500)
  3538.         MouseClick("left", $xHG, $yHG)
  3539.             Sleep(500)
  3540.  
  3541.         MouseMove($CBXC, $CBYC, 1)
  3542.             Sleep(500)
  3543.  
  3544.             While 1
  3545.                 Local $x = 0
  3546.                 Do
  3547.                 MouseMove($CBXC, $CBYC, 1)
  3548.                 Sleep(500)
  3549.                 MouseClick("left", $CBXC, $CBYC)
  3550.                 Sleep(2500)
  3551.                 $x = $x+1
  3552.             Until $x = 3*$amount
  3553.             If $x = 3*$amount Then ExitLoop
  3554.         WEnd
  3555.  
  3556.         MouseMove($xHG, $y3,1)
  3557.             Sleep(500)
  3558.         MouseClick("left", $xHG, $y3)
  3559.             Sleep(500)
  3560.  
  3561.         MouseMove($CBXC, $CBYC, 1)
  3562.             Sleep(500)
  3563.  
  3564.             While 1
  3565.                 Local $x = 0
  3566.                 Do
  3567.                 MouseMove($CBXC, $CBYC, 1)
  3568.                 Sleep(500)
  3569.                 MouseClick("left", $CBXC, $CBYC)
  3570.                 Sleep(2500)
  3571.                 $x = $x+1
  3572.             Until $x = $amount
  3573.             If $x = $amount Then ExitLoop
  3574.         WEnd
  3575.         Return
  3576.      EndIf
  3577.  
  3578.      If GUICtrlRead($SGSelectDE) == "Makellos Sternförmig" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3579.         MouseMove($xSG, $ySG, 1)
  3580.             Sleep(500)
  3581.         MouseClick("LEFT", $xSG, $ySG)
  3582.             Sleep(500)
  3583.  
  3584.         MouseMove($CBXC, $CBYC, 1)
  3585.             Sleep(500)
  3586.  
  3587.             While 1
  3588.                 Local $x = 0
  3589.                 Do
  3590.                 MouseMove($CBXC, $CBYC, 1)
  3591.                 Sleep(500)
  3592.                 MouseClick("left", $CBXC, $CBYC)
  3593.                 Sleep(2500)
  3594.                 $x = $x+1
  3595.             Until $x = 27*$amount
  3596.             If $x = 27*$amount Then ExitLoop
  3597.         WEnd
  3598.  
  3599.         MouseMove($xHG, $yHG,1)
  3600.             Sleep(500)
  3601.         MouseClick("left", $xHG, $yHG)
  3602.             Sleep(500)
  3603.  
  3604.         MouseMove($CBXC, $CBYC, 1)
  3605.             Sleep(500)
  3606.  
  3607.             While 1
  3608.                 Local $x = 0
  3609.                 Do
  3610.                 MouseMove($CBXC, $CBYC, 1)
  3611.                 Sleep(500)
  3612.                 MouseClick("left", $CBXC, $CBYC)
  3613.                 Sleep(2500)
  3614.                 $x = $x+1
  3615.             Until $x = 9*$amount
  3616.             If $x = 9*$amount Then ExitLoop
  3617.         WEnd
  3618.  
  3619.         MouseMove($xHG, $y3,1)
  3620.             Sleep(500)
  3621.         MouseClick("left", $xHG, $y3)
  3622.             Sleep(500)
  3623.  
  3624.         MouseMove($CBXC, $CBYC, 1)
  3625.             Sleep(500)
  3626.  
  3627.             While 1
  3628.                 Local $x = 0
  3629.                 Do
  3630.                 MouseMove($CBXC, $CBYC, 1)
  3631.                 Sleep(500)
  3632.                 MouseClick("left", $CBXC, $CBYC)
  3633.                 Sleep(2500)
  3634.                 $x = $x+1
  3635.             Until $x = 3*$amount
  3636.             If $x = 3*$amount Then ExitLoop
  3637.         WEnd
  3638.  
  3639.         MouseMove($xHG, $y4,1)
  3640.             Sleep(500)
  3641.         MouseClick("left", $xHG, $y4)
  3642.             Sleep(500)
  3643.  
  3644.         MouseMove($CBXC, $CBYC, 1)
  3645.             Sleep(500)
  3646.  
  3647.             While 1
  3648.                 Local $x = 0
  3649.                 Do
  3650.                 MouseMove($CBXC, $CBYC, 1)
  3651.                 Sleep(500)
  3652.                 MouseClick("left", $CBXC, $CBYC)
  3653.                 Sleep(2500)
  3654.                 $x = $x+1
  3655.             Until $x = $amount
  3656.             If $x = $amount Then ExitLoop
  3657.         WEnd
  3658.         Return
  3659.         EndIf
  3660.  
  3661.     ;Crafting - Perfekt Sternförmig to -xx
  3662.     If GUICtrlRead($SGSelectDE) == "Perfekt Sternförmig" And GUICtrlRead($FGSelectDE) == "Perfekt Sternförmig" Then
  3663.         MouseMove($xSG, $ySG, 1)
  3664.             Sleep(500)
  3665.         MouseClick("LEFT", $xSG, $ySG)
  3666.             Sleep(500)
  3667.  
  3668.         MouseMove($CBXC, $CBYC, 1)
  3669.             Sleep(500)
  3670.  
  3671.             While 1
  3672.                 Local $x = 0
  3673.                 Do
  3674.                 MouseMove($CBXC, $CBYC, 1)
  3675.                 Sleep(500)
  3676.                 MouseClick("left", $CBXC, $CBYC)
  3677.                 Sleep(2500)
  3678.                 $x = $x+1
  3679.             Until $x = $amount
  3680.             If $x = $amount Then ExitLoop
  3681.         WEnd
  3682.         Return
  3683.         EndIf
  3684.  
  3685.     If GUICtrlRead($SGSelectDE) == "Perfekt Sternförmig" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  3686.         MouseMove($xSG, $ySG, 1)
  3687.             Sleep(500)
  3688.         MouseClick("LEFT", $xSG, $ySG)
  3689.             Sleep(500)
  3690.  
  3691.         MouseMove($CBXC, $CBYC, 1)
  3692.             Sleep(500)
  3693.  
  3694.             While 1
  3695.                 Local $x = 0
  3696.                 Do
  3697.                 MouseMove($CBXC, $CBYC, 1)
  3698.                 Sleep(500)
  3699.                 MouseClick("left", $CBXC, $CBYC)
  3700.                 Sleep(2500)
  3701.                 $x = $x+1
  3702.             Until $x = 3*$amount
  3703.             If $x = 3*$amount Then ExitLoop
  3704.         WEnd
  3705.  
  3706.         MouseMove($xHG, $yHG,1)
  3707.             Sleep(500)
  3708.         MouseClick("left", $xHG, $yHG)
  3709.             Sleep(500)
  3710.  
  3711.         MouseMove($CBXC, $CBYC, 1)
  3712.             Sleep(500)
  3713.  
  3714.             While 1
  3715.                 Local $x = 0
  3716.                 Do
  3717.                 MouseMove($CBXC, $CBYC, 1)
  3718.                 Sleep(500)
  3719.                 MouseClick("left", $CBXC, $CBYC)
  3720.                 Sleep(2500)
  3721.                 $x = $x+1
  3722.             Until $x = $amount
  3723.             If $x = $amount Then ExitLoop
  3724.         WEnd
  3725.         Return
  3726.      EndIf
  3727.  
  3728.      If GUICtrlRead($SGSelectDE) == "Perfekt Sternförmig" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3729.         MouseMove($xSG, $ySG, 1)
  3730.             Sleep(500)
  3731.         MouseClick("LEFT", $xSG, $ySG)
  3732.             Sleep(500)
  3733.  
  3734.         MouseMove($CBXC, $CBYC, 1)
  3735.             Sleep(500)
  3736.  
  3737.             While 1
  3738.                 Local $x = 0
  3739.                 Do
  3740.                 MouseMove($CBXC, $CBYC, 1)
  3741.                 Sleep(500)
  3742.                 MouseClick("left", $CBXC, $CBYC)
  3743.                 Sleep(2500)
  3744.                 $x = $x+1
  3745.             Until $x = 9*$amount
  3746.             If $x = 9*$amount Then ExitLoop
  3747.         WEnd
  3748.  
  3749.         MouseMove($xHG, $yHG,1)
  3750.             Sleep(500)
  3751.         MouseClick("left", $xHG, $yHG)
  3752.             Sleep(500)
  3753.  
  3754.         MouseMove($CBXC, $CBYC, 1)
  3755.             Sleep(500)
  3756.  
  3757.             While 1
  3758.                 Local $x = 0
  3759.                 Do
  3760.                 MouseMove($CBXC, $CBYC, 1)
  3761.                 Sleep(500)
  3762.                 MouseClick("left", $CBXC, $CBYC)
  3763.                 Sleep(2500)
  3764.                 $x = $x+1
  3765.             Until $x = 3*$amount
  3766.             If $x = 3*$amount Then ExitLoop
  3767.         WEnd
  3768.  
  3769.         MouseMove($xHG, $y3,1)
  3770.             Sleep(500)
  3771.         MouseClick("left", $xHG, $y3)
  3772.             Sleep(500)
  3773.  
  3774.         MouseMove($CBXC, $CBYC, 1)
  3775.             Sleep(500)
  3776.  
  3777.             While 1
  3778.                 Local $x = 0
  3779.                 Do
  3780.                 MouseMove($CBXC, $CBYC, 1)
  3781.                 Sleep(500)
  3782.                 MouseClick("left", $CBXC, $CBYC)
  3783.                 Sleep(2500)
  3784.                 $x = $x+1
  3785.             Until $x = $amount
  3786.             If $x = $amount Then ExitLoop
  3787.         WEnd
  3788.         Return
  3789.         EndIf
  3790.  
  3791.     ;Craftig - Glänzend Sternförmig to -xx
  3792.     If GUICtrlRead($SGSelectDE) == "Glänzend Sternförmig" And GUICtrlRead($FGSelectDE) == "Glänzend Sternförmig" Then
  3793.         MouseMove($xSG, $ySG, 1)
  3794.             Sleep(500)
  3795.         MouseClick("LEFT", $xSG, $ySG)
  3796.             Sleep(500)
  3797.  
  3798.         MouseMove($CBXC, $CBYC, 1)
  3799.             Sleep(500)
  3800.  
  3801.             While 1
  3802.                 Local $x = 0
  3803.                 Do
  3804.                 MouseMove($CBXC, $CBYC, 1)
  3805.                 Sleep(500)
  3806.                 MouseClick("left", $CBXC, $CBYC)
  3807.                 Sleep(2500)
  3808.                 $x = $x+1
  3809.             Until $x = $amount
  3810.             If $x = $amount Then ExitLoop
  3811.         WEnd
  3812.         Return
  3813.      EndIf
  3814.  
  3815.      If GUICtrlRead($SGSelectDE) == "Glänzend Sternförmig" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3816.  
  3817.         MouseMove($xSG, $ySG, 1)
  3818.             Sleep(500)
  3819.         MouseClick("LEFT", $xSG, $ySG)
  3820.             Sleep(500)
  3821.  
  3822.         MouseMove($CBXC, $CBYC, 1)
  3823.             Sleep(500)
  3824.  
  3825.  
  3826.             While 1
  3827.                 Local $i = 0
  3828.                 Do
  3829.                 MouseMove($CBXC, $CBYC, 1)
  3830.                 Sleep(500)
  3831.                 MouseClick("left", $CBXC, $CBYC)
  3832.                 Sleep(2500)
  3833.                 $i = $i+1
  3834.                 Until $i = 3*$amount
  3835.             If $i = 3*$amount Then ExitLoop
  3836.         WEnd
  3837.  
  3838.         MouseMove($xHG, $yHG,1)
  3839.             Sleep(500)
  3840.         MouseClick("left", $xHG, $yHG)
  3841.             Sleep(500)
  3842.  
  3843.         MouseMove($CBXC, $CBYC, 1)
  3844.             Sleep(500)
  3845.  
  3846.             While 1
  3847.                 Local $i = 0
  3848.                 Do
  3849.                 MouseMove($CBXC, $CBYC, 1)
  3850.                 Sleep(500)
  3851.                 MouseClick("left", $CBXC, $CBYC)
  3852.                 Sleep(2500)
  3853.                 $i = $i+1
  3854.                 Until $i = $amount
  3855.             If $i = $amount Then ExitLoop
  3856.  
  3857.         WEnd
  3858.         Return
  3859.      EndIf
  3860.  
  3861.      ;Marquise to -xx
  3862.      If GUICtrlRead($SGSelectDE) == "Marquise" And GUICtrlRead($FGSelectDE) == "Marquise" Then
  3863.         MouseMove($xSG, $ySG, 1)
  3864.             Sleep(500)
  3865.         MouseClick("LEFT", $xSG, $ySG)
  3866.             Sleep(500)
  3867.  
  3868.         MouseMove($CBXC, $CBYC, 1)
  3869.             Sleep(500)
  3870.  
  3871.             While 1
  3872.                 Local $x = 0
  3873.                 Do
  3874.                 MouseMove($CBXC, $CBYC, 1)
  3875.                 Sleep(500)
  3876.                 MouseClick("left", $CBXC, $CBYC)
  3877.                 Sleep(2500)
  3878.                 $x = $x+1
  3879.             Until $x = $amount
  3880.             If $x = $amount Then ExitLoop
  3881.         WEnd
  3882.         Return
  3883.         EndIf
  3884. EndFunc
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!