[Work In Progress] Auto Synthesis Bot

[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.

[kotarou3]

Your gonna have more chance on MM
Since you have posted it there already, and I taught you how to use code instead of spoiler tags...

[razer951]

Originally Posted by kotarou3

Your gonna have more chance on MM
Since you have posted it there already, and I taught you how to use code instead of spoiler tags...

Lol. I just thought I would post it here too.

[Snowe³]

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

#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.

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

[razer951]

Thanks
Also a GUI would be very useful if you could

[Snowe³]

Originally Posted by razer951

Thanks
Also a GUI would be very useful if you could

What features would you like in the GUI?

[razer951]

Originally Posted by Dark - Sora

What features would you like in the GUI?

Idk go ahead and put in anything you think would be useful/cool/*I have no Idea*


Your botting skills are far greater than mine. thanks for all your help so far.