Sign in to follow this  
Followers 0
matricks

Need help improving my bot

4 posts in this topic

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

Share this post


Link to post
Share on other sites



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?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0