Need help improving my bot

[matricks]

Hello guys, I need help with my script. This is bot for mmorpg.

At If @error = true Then, I have problem how to make it pixelsearch after each click because it really sucks when it needs to finish every clicks and do the pixel search and how can I make it skip the pixelsearch after sleep too long becoz the monster didn't die...lol. Anybody got ideas? I'm not really good with script XD. Thanks alot guys.

While True
   
   If $shoot = True Then
    Dim $cordinates = PixelSearch( 5, 112, 1014, 664, 0xb80303)
      
      If Not @error Then
        
        
         MouseClick( "left", $cordinates[0]+20, $cordinates[1]+27, 1, 0)
        Sleep(1000)
        MouseClick( "left", $cordinates[0]+80, $cordinates[1]+50, 1, 0)
     Else
            If @error = true Then
            
            MouseClick("left", 177, 310, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 373, 624, 1, 3)
            Sleep(2000)
            
            EndIf    
     EndIf
 
  EndIf

[NoHAX]

Where is WEnd?

I think this isnt a full code

I dont exactly understand your problem. Are you want to stop searching pixelcolor if this color doesnt exist for X seconds or what?

[mtDEW101]

Thought it was just me. I had a hard time reading his post. I don't know what he's asking us.

[matricks]

Opps...Sorry guys..I'm still learning. Well 1st, I want it to do pixelsearch after every single clicks and 2nd when it do the pixelsearch if the monster didn't dead, how to make it kill others monster rather than stay or perhaps setup a time. Hopes I explain well. Thanks

This the whole script.

expandcollapse popup

HotKeySet("{F9}","ShootOnOff")
HotKeySet("{F10}","ExitApp")

Tooltip("F9 = Shoot, F10 = Exit bot", 0, 0)
Dim $shoot = False



Func ShootOnOff()
   If $shoot = False Then
      $shoot = True
      ToolTip("Shooting",0,0)
   Else
      $shoot = False
      Tooltip("F9 = Shoot, F10 = Exit bot", 0, 0)
   EndIf
EndFunc

Func ExitApp()
   Exit
EndFunc


While True
   
   If $shoot = True Then
    Dim $cordinates = PixelSearch( 5, 112, 1014, 664, 0xb80303)
      
      If Not @error Then
        
        
         MouseClick( "left", $cordinates[0]+20, $cordinates[1]+27, 1, 0)
        Sleep(1000)
        MouseClick( "left", $cordinates[0]+80, $cordinates[1]+50, 1, 0)
     Else
            If @error = true Then
            
            MouseClick("left", 177, 310, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 928, 519, 1, 3)
            Sleep(2000)
            MouseClick("left", 373, 624, 1, 3)
            Sleep(2000)
            
            EndIf    
     EndIf
 
  EndIf
  

  If $shoot = True Then
    Dim $cordinates = PixelSearch( 158, 40, 158, 40, 0x181818)
    
      If Not @error Then
          Send("{1}")
        
        EndIf

    EndIf

   Sleep(500)
WEnd