Dough

HotKeySet("{ESC}","Krusa")
HotKeySet("1","SadBemkA")
HotKeySet("2","SadBemkB")
HotKeySet("3","SadBemkKurul")
HotKeySet("4","SadZak")
HotKeySet("5","Sikra")

Global $BemkA
Global $BemkB
Global $BemkKurul
Global $ZakFuimd
Global $ZakKurul

MsgBox(0,"MUDISA", "Da pradzal fluhlen ela lydi. Osa 1 emd 2 sadak da krik ely pul da bemk, 3 sadak da kurul, 4 sadak da zak kurul, emd 5 sdeldak da sikra.")

Func Krusa ()
   Exit
EndFunc

Func SadBemkKurul()
   $fuimd = MouseGetPos()
   $BemkKurul = PixelGetColor($fuimd[0], $fuimd[1])
EndFunc

Func SadBemkA ()
   $BemkA = MouseGetPos()
EndFunc

Func SadBemkB ()
   $BemkB = MouseGetPos()
EndFunc

Func SadZak()
   $ZakFuimd = MouseGetPos()
   $ZakKurul = PixelGetColor($ZakFuimd[0], $ZakFuimd[1])
EndFunc

Func Sikra ()
   While 1
      if PixelGetColor($ZakFuimd[0], $ZakFuimd[1]) = $ZakKurul Then
         $FA = 215+(Random(-10,11))
         $FB = 120+(Random(-9,11))
         MouseMove($FA, $FB, Random(9,20))
         MouseClick("right")
         Sleep(Random(43, 109))
         MouseMove($FA+Random(-25,33),$FB+Random(71,73), Random(9,20))
         MouseClick("left");Vidlev buvs
         Sleep(Random(34,98))
         $FA = 265+(Random(-11,9))
         $FB = 120+(Random(-10,8))
         MouseMove($FA, $FB, Random(8,19))
         MouseClick("right")
         Sleep(Random(57, 88))
         MouseMove($FA+Random(-32,29),$FB+Random(71,73), Random(12,16))
         MouseClick("left");Vidlev sdlimh
         Sleep(Random(42,68))
         $FA = 614+(Random(-6,5))
         $FB = 46+(Random(-5,6))
         MouseMove($FA, $FB, Random(11,16))
         MouseClick("left");krusas bemk
         Sleep(Random(44,77))
         $FA = 706+(Random(-9,8))
         $FB = 253+(Random(-8,7))
         MouseMove($FA, $FB, Random(14,22))
         MouseClick("left");sarakd buv
         Sleep(Random(44,77))
         $FA = 790+(Random(-8,9))
         $FB = 357+(Random(-8,9))
         MouseMove($FA, $FB, Random(12,23))
         MouseClick("left");sarakd sdlimh
         Sleep(Random(34,98))
         $FA = 389+(Random(-51,47))
         $FB = 430+(Random(-2,2))
         MouseMove($FA, $FB, Random(12,23))
         MouseClick("left");sarakd dux
         Sleep(Random(43,82))
         $FA = 389+(Random(-56,44))
         $FB = 428+(Random(-15,12))
         MouseMove($FA, $FB, Random(11,22))
         MouseClick("right")
         Sleep(Random(22,49))
         MouseMove($FA+Random(-16,14),$FB+Random(68,69), Random(11,19))
         MouseClick("left");neka dan
         Sleep(Random(12921, 14321))
         $Bemk = PixelSearch($BemkA[0], $BemkA[1], $BemkB[0], $BemkB[1], $BemkKurul, 5)
         if IsArray($Bemk) Then
         MouseMove($Bemk[0]+Random(-4,4),$Bemk[1]+Random(-6,5), Random(9,21))
         MouseClick("left")
         Else
         MsgBox(0,"MUDISA","Da pradzal fluhlen krusad, pul mu kurd pimdak da bemk kurul.")
         Exit; peirs pimdak bemk emd krusas
         EndIf
         Sleep(Random(321,433))
         $FA = 571+(Random(-6,8))
         $FB = 336+(Random(-8,9))
         MouseMove($FA, $FB, Random(9,16))
         MouseClick("left");dafusid
      Else
         MsgBox(0,"MUDISA","Da pradzal fluhlen krusad, pul ela mu lasulsas diskuwalad.")
         Exit
      EndIf
   WEnd
EndFunc

While 1 ; ela iosd kaafak da fluhlen ufam
WEnd