[Autoit] Simple Hunt bots with source code

Page 5 of 6 « First 34 5 6
06/22/2013 10:20 adiljohn24#61
Sir. GM cant detect it?
06/24/2013 00:53 benjie006#62
is this still working for the latest patch?
10/03/2013 22:20 schoolboyerror1990#63
i download and the scatter.exe didnt download?
10/06/2013 18:56 gallazxxx#64
it pick up db's or only mets and gold
01/29/2014 09:00 UnitedMassacre#65
Idk if you care or not but im looking threw this code and its pretty jacked up. do you mind if i come threw clean it all up redo the functions and kinda add a more randomized method to it all. for example...

Code:
While True
	If $shoot = True Then
	Dim $t6 = PixelSearch(1103,598,1148,642,5331033)
		 if not @error Then
			 sleep(Random(20000,20500,1))
			 MouseClick( "left",Random(1103,1148,1),Random(598,642,1), 1)
			 sleep(Random(200,500,1))
		 EndIf
		 EndIf
     If $shoot = True Then
      Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	    Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	    Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  
	 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
   EndIf   
   sleep(500)
WEnd
all that could be split up into functions and made a bit cleaner and easier to adapt and change in the future. otherwise its just one big long while true script and if it has an issue between point a and b it kinda takes some wicked memory to fix its issue. for example your boxes for your pixel search could be split up in a segmentation and allow for more fine tuned hunting. also it goes without saying pixel script is sketchy to begin with and maybe with the effort youve put into this we could perhaps ignore the pixel script all together and start using mems for certain mobs. drops. and what not. just an idea... im gonna start playing with it. i see now i can latch on to the program with the proper tools to get the memory information needed to elaborate these to be single client effective farmers.

oh and its kinda rude of me not to say that this is ,working or not, a good effort and pretty well done for being a pixy script. if you indeed made these than its only proper for me to ask permission to mess with them.

and a question for the users im just curious seeing how this is formatted if you can get it to work.. which im not going to try im just going to clean up what is there.. but if you can get this to function properly ....
... does it function for a long period of time.. i.e. if you leave it one for 2 or 3 hours does it cache itself up into a lag fest. ...

cause from what im seeing it may work well for a couple hours but eventually this is gonna snowball on itself... had this problem with last chaos and i had to break everything down into segmented scripts... however lc was a slightly bit more demanding of a game.
02/03/2014 05:04 KillStreek#66
Have you used this script yet and confirmed that it does not bug?

Thanks,
KillStreek

Quote:
Originally Posted by UnitedMassacre View Post
Idk if you care or not but im looking threw this code and its pretty jacked up. do you mind if i come threw clean it all up redo the functions and kinda add a more randomized method to it all. for example...

Code:
While True
	If $shoot = True Then
	Dim $t6 = PixelSearch(1103,598,1148,642,5331033)
		 if not @error Then
			 sleep(Random(20000,20500,1))
			 MouseClick( "left",Random(1103,1148,1),Random(598,642,1), 1)
			 sleep(Random(200,500,1))
		 EndIf
		 EndIf
     If $shoot = True Then
      Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	    Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates1 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates1[0],$cordinates1[0]+20,1),Random( $cordinates1[1], $cordinates1[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  Dim $cordinates2 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates2[0],$cordinates2[0]+20,1),Random( $cordinates2[1], $cordinates2[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates3 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates3[0],$cordinates3[0]+20,1),Random( $cordinates3[1], $cordinates3[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	 	  Dim $cordinates4 = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates4[0],$cordinates4[0]+20,1),Random( $cordinates4[1], $cordinates4[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	    Dim $cordinates = PixelSearch( 220, 80, 900, 580 ,12059395)
       If Not @error Then
         MouseClick( "right",Random( $cordinates[0],$cordinates[0]+20,1),Random( $cordinates[1], $cordinates[1]+20, 1), 1, 0)
		 sleep(Random(800,1000,1))
	 Else
		 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
	 EndIf
	  
	 Send("{F8}")
		 sleep(Random(8800,10000,1))
		 Send("{F4}")
		 sleep(Random(1500,1710,1))
   EndIf   
   sleep(500)
WEnd
all that could be split up into functions and made a bit cleaner and easier to adapt and change in the future. otherwise its just one big long while true script and if it has an issue between point a and b it kinda takes some wicked memory to fix its issue. for example your boxes for your pixel search could be split up in a segmentation and allow for more fine tuned hunting. also it goes without saying pixel script is sketchy to begin with and maybe with the effort youve put into this we could perhaps ignore the pixel script all together and start using mems for certain mobs. drops. and what not. just an idea... im gonna start playing with it. i see now i can latch on to the program with the proper tools to get the memory information needed to elaborate these to be single client effective farmers.

oh and its kinda rude of me not to say that this is ,working or not, a good effort and pretty well done for being a pixy script. if you indeed made these than its only proper for me to ask permission to mess with them.

and a question for the users im just curious seeing how this is formatted if you can get it to work.. which im not going to try im just going to clean up what is there.. but if you can get this to function properly ....
... does it function for a long period of time.. i.e. if you leave it one for 2 or 3 hours does it cache itself up into a lag fest. ...

cause from what im seeing it may work well for a couple hours but eventually this is gonna snowball on itself... had this problem with last chaos and i had to break everything down into segmented scripts... however lc was a slightly bit more demanding of a game.
02/04/2014 15:44 azraelson#67
how about trojan char? can you make one?
02/04/2014 18:51 brokenarrow_vip#68
Is it patched or not ?
02/14/2014 06:33 GeorgeBailey#69
Pretty sure it is patched
10/05/2014 07:38 cutekarim#70
hey pls i need the new bot hunt . i want to buy it pls ?
10/18/2014 18:22 savu7#71
deleted.
11/17/2014 01:21 kokos1234#72
Hmm doese any1 still follow this section? I was wondering how to get those coordinates that are inside .txt file. The xp doese not active for me when you get it....so i was trying to put in different color pixels but i do not know from which coordinates it was taken be4. Any1 got any clue on how to...?
11/27/2014 00:55 titieson77#73
if this works and anyone can help me with installing it, pm me.
12/08/2014 09:10 webosplash#74
can you make a tutorial on how you made the warrior bot
09/28/2017 10:45 hpxcoder#75
nice
Page 5 of 6 « First 34 5 6