[Work In Progress] Auto Synthesis Bot

Quote:

Originally Posted by razer951

Here is my script so far for my auto synthesis bot. There are a few problems with it:
It clicks the upper let corner when the first item isn't found.
and more but im not going to go into things... If someone could help me fix these problems that would be great.

Spoiler

Code:

#include <ImageSearch.au3>

HotKeySet("{ESC}", "Terminate")

WinActivate("Mabinogi")
Sleep(1000)

Global $wc1x,$wc1y      ; Coordinates of water crystal with 1 left
Global $cc1x,$cc1y      ; Coordinates of clay crystal with 1 left
Global $fc1x,$fc1y      ; Coordinates of fire crystal with 1 left
Global $drx,$dry      ; Coordinates of Drop Button
Global $wcx,$wcy      ; Coordinates of water crystal stack
Global $fcx,$fcy         ; Coordinates of fire crystal stack
Global $ccx,$ccy      ; Coordinates of clay crystal stack
Global $winx,$winy      ; Coordinates of Synthesis window open spot
Global $divx,$divy      ; Coordinates of Divide Button
Global $okx,$oky      ; Coordinates of OK button
Global $synthx,$synthy   ; Coordinates of Synthesis button
Global Const $ms=0      ; Mouse speed

While 1
   Drop()

   SearchAndSynth()
WEnd

Func Drop()
   _ImageSearch("wcrystal1.bmp",1,$wc1x,$wc1y,25)
   _ImageSearch("ccrystal1.bmp",1,$cc1x,$cc1y,25)
   _ImageSearch("fcrystal1.bmp",1,$fc1x,$fc1y,25)
      Mousemove($wc1x,$wc1y)
      sleep(500)
      MouseClick("Secondary", $wc1x, $wc1y, 1)
      Sleep(500)
         _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         Mousemove($drx,$dry)
         sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
      Mousemove($fc1x,$fc1y)
      sleep(500)
      MouseClick("Secondary", $fc1x, $fc1y, 1)
      Sleep(500)
         _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         Mousemove($drx,$dry)
         Sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
      mousemove($cc1x,$cc1y)
      sleep(500)
      MouseClick("Secondary", $wc1x, $wc1y, 1)
      Sleep(500)
         _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         mousemove($drx,$dry)
         sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
      sleep(1000)
EndFunc

Func SearchAndSynth()
   Send ("{F1}")
   _ImageSearch("wcrystal.bmp",1,$wcx,$wcy,25)
   _ImageSearch("ccrystal.bmp",1,$ccx,$ccy,25)
   _ImageSearch("fcrystal.bmp",1,$fcx,$fcy,25)
   _ImageSearch("window.bmp",1,$winx,$winy,25)
      Mousemove($wcx,$wcy)
      sleep(500)
      MouseClick("Secondary", $wcx, $wcy, 1)
      Sleep(500)
         _ImageSearch("Divide.bmp",1,$divx,$divy,25)
         Mousemove($divx,$divy)
         sleep(500)
         MouseClick("Primary", $divx, $divy, 1)
         Sleep(500)
            _ImageSearch("OK.bmp",1,$okx,$oky,25)
            Mousemove($okx,$oky)
            sleep(500)
            MouseClick("Primary", $okx, $oky, 1)
            Sleep(500)
               Mousemove($winx,$winy)
               sleep(500)
               MouseClick("Primary", $winx, $winy, 1)
               Sleep(500)
               _ImageSearch("window.bmp",1,$winx,$winy,25)
      Mousemove($fcx,$fcy)
      sleep(500)
      MouseClick("Secondary", $fcx, $fcy, 1)
      Sleep(500)
         _ImageSearch("Divide.bmp",1,$divx,$divy,25)
         Mousemove($divx,$divy)
         sleep(500)
         MouseClick("Primary", $divx, $divy, 1)
         Sleep(500)
            _ImageSearch("OK.bmp",1,$okx,$oky,25)
            Mousemove($okx,$oky)
            sleep(500)
            MouseClick("Primary", $okx, $oky, 1)
            Sleep(500)
               Mousemove($winx,$winy)
               sleep(500)
               MouseClick("Primary", $winx, $winy, 1)
               Sleep(500)
               _ImageSearch("window.bmp",1,$winx,$winy,25)
      mousemove($ccx,$ccy)
      sleep(500)
      MouseClick("Secondary", $ccx, $ccy, 1)
      Sleep(500)
         _ImageSearch("Divide.bmp",1,$divx,$divy,25)
         Mousemove($divx,$divy)
         sleep(500)
         MouseClick("Primary", $divx, $divy, 1)
         Sleep(500)
               _ImageSearch("OK.bmp",1,$okx,$oky,25)
               Mousemove($okx,$oky)
               sleep(500)
               MouseClick("Primary", $okx, $oky, 1)
               Sleep(500)
                  Mousemove($winx,$winy)
                  sleep(500)
                  MouseClick("Primary", $winx, $winy, 1)
                  Sleep(500)
      _ImageSearch("Synthesis.bmp",1,$synthx,$synthy,25)
      Mousemove($synthx,$synthy)
      sleep(500)
      MouseClick("Primary", $synthx, $synthy, 1)
   Sleep(6000)
   sleep(1000)
EndFunc

Func Terminate()
   Exit 0
EndFunc

You should use "If" statements to check if the Images have been found, if they haven't End the "If", if they have then execute the necessary action. Since the Image was not found the X and Y coordinate variables are equivalent to zero, adding Ifs would fix the problem that occurs when the Items are not found.

If you need a GUI I can code one for you with AutoIt or Sora - Script, I don't use Koda; GUIs designed with Koda are not efficient and use unnecessary code to check for Interaction with buttons, check-boxes, edit-boxes, etc.

Below is a revised version of the "Drop" Function, I just added a few "Ifs" and modified your ImageSearch functions.

Code:

Func Drop()
   $WCrystal = _ImageSearch("wcrystal1.bmp",1,$wc1x,$wc1y,25)
   $CCrystal = _ImageSearch("ccrystal1.bmp",1,$cc1x,$cc1y,25)
   $FCrystal = _ImageSearch("fcrystal1.bmp",1,$fc1x,$fc1y,25)
      If $WCrystal = 1 Then
      MouseMove($wc1x,$wc1y)
      Sleep(500)
      MouseClick("Secondary", $wc1x, $wc1y, 1)
      Sleep(500)
         $Drop = _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         If $Drop = 1 Then
         MouseMove($drx,$dry)
         Sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
         EndIf
      EndIf
      If $FCrystal = 1 Then
      MouseMove($fc1x,$fc1y)
      Sleep(500)
      MouseClick("Secondary", $fc1x, $fc1y, 1)
      Sleep(500)
         $Drop = _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         If $Drop = 1 Then
         MouseMove($drx,$dry)
         Sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
         EndIf
      EndIf
      If $CCrystal = 1 Then
      MouseMove($cc1x,$cc1y)
      Sleep(500)
      MouseClick("Secondary", $wc1x, $wc1y, 1)
      Sleep(500)
         $Drop = _ImageSearch("Drop.bmp",1,$drx,$dry,25)
         If $Drop = 1 Then
         MouseMove($drx,$dry)
         Sleep(500)
         MouseClick("Primary", $drx, $dry, 1)
         Sleep(500)
      Sleep(1000) ;[B]Why are there two "Sleep" functions here? You can completely remove this, it is unnecessary.[/B]
         EndIf
      EndIf
EndFunc