Clicker Heroes Auto IT

Hallo,
hat wer von euch ein Auto IT Script f�r das Browsergame "Clicker Heroes"?

Ich habe selber ein kleines Script geschrieben, bin aber nicht zufrieden.
(PS. kenne mich auch nicht sehr gut damit aus)

Verbesserungen oder ein anderes Script w�hren nett :D
[Only registered and activated users can see links. Click Here To Register...]

Code:

; Author Warcat92

HotKeySet("{F8}", "_Exit")
HotKeySet("{F9}", "_Pause")
HotKeySet("{F10}", "Start")

Func _Pause()
   Sleep(10000)
   EndFunc

Func _Exit ()
	  Exit
   EndFunc


While True

;Skills
Send("1")
Send("2")
Send("3")
Send("4")
Send("5")
Send("6")
Send("7")
Send("8")
Send("9")

;Candys
$variable = PixelSearch(391, 286, 1471, 840, 0x9DE7F3,10) ; Tropfen 1
$variable2 = PixelSearch(391, 286, 1471, 840, 0xE3FDFE,10) ;Cube1
$variable3 = PixelSearch(391, 286, 1471, 840, 0x107708,10) ;Bonus
$variable4 = PixelSearch(391, 286, 1471, 840, 0x5760C8,10) ;Shirt
$variable5 = PixelSearch(391, 286, 1471, 840, 0x7BDAF7,10) ;Cube2
$variable6 = PixelSearch(391, 286, 1471, 840, 0x8DDCE8,10) ;Tropfen2
$variable7 = PixelSearch(391, 286, 1471, 840, 0x555AC5,10) ;Shirt2
$progression = PixelSearch(1483, 396, 1525, 434, 0xFF0000) ;weiter spielen
;other
$slider = PixelSearch(677, 739, 677, 739, 0x44D723) ;Slider
$boss = PixelSearch(1201, 368, 1201, 368, 0xA34603, 10) ;boss
$geschenk = PixelSearch(1464, 718, 1518, 769, 0xBB2136, 10) ; Geschenk

;Sammeln
If IsArray($geschenk) = True Then
	  MouseMove($geschenk [0], $geschenk [1], 1)
	  Sleep(10)
	  MouseClick($geschenk)
	  sleep(2000)
	  MouseClick("left" , 968, 527, 1)
	  Sleep(500)
   EndIf

IF IsArray($progression) = True Then
   MouseMove($progression [0], $progression [1], 1)
   Sleep(10)
   MouseClick("left" , 1506, 412, 1)
   EndIf

IF IsArray($slider) = False Then
    MouseClickDrag("left", 935, 562, 945, 550)
	Sleep(10)
    MouseClickDrag("left", 936, 805, 941, 810)
  EndIf

If IsArray($variable) = True Then
	  MouseMove($variable [0], $variable [1], 1)
	  Sleep(10)
	  MouseClick($variable)
   EndIf

If IsArray($variable2) = True Then
	  MouseMove($variable2 [0], $variable2 [1], 1)
	  Sleep(10)
	  MouseClick($variable2)
   EndIf

If IsArray($variable3) = True Then
	  MouseMove($variable3 [0], $variable3 [1], 1)
	  Sleep(10)
	  MouseClick($variable3)
   EndIf

   If IsArray($variable4) = True Then
	  MouseMove($variable4 [0], $variable4 [1], 1)
	  Sleep(10)
	  MouseClick($variable4)
   EndIf

   If IsArray($variable5) = True Then
	  MouseMove($variable5 [0], $variable5 [1], 1)
	  Sleep(10)
	  MouseClick($variable5)
EndIf

  If IsArray($variable6) = True Then
	  MouseMove($variable6 [0], $variable6 [1], 1)
	  Sleep(10)
	  MouseClick($variable6)
   EndIf

     If IsArray($variable7) = True Then
	  MouseMove($variable7 [0], $variable7 [1], 1)
	  Sleep(10)
	  MouseClick($variable7)
   EndIf

;BOSS

If IsArray($boss) = True Then
   MouseClick("left" , 1361, 321 , 3000 , 11)
   Sleep(2)
 EndIf

;Farmen

If IsArray($boss) = False Then
	MouseClick("left" , 1361, 321 , 500 , 11)
	Sleep(2)
 EndIf

 If IsArray($boss) = False Then
	MouseClick("left" , 1361, 321 , 500 , 11)
	Sleep(2)
 EndIf

;Leveln
MouseClick("left" ,487, 668, 1, 11) ;Hire
MouseClick("left" ,701, 757, 1, 11) ;Upgrades
MouseClick("left" ,487, 561, 5, 11) ;lvln 1. h�chtes
MouseClick("left" ,487, 459, 5, 11) ;lvln 2. h�chtes
MouseClick("left" ,483, 375, 10, 11) ;lvln 3. h�chtes


 WEnd