|
06/22/2013, 10:20
|
#61
|
elite*gold: 0 
Join Date: Jun 2013
Posts: 5
Received Thanks: 0
|
Sir. GM cant detect it?
|
|
|
|
06/24/2013, 00:53
|
#62
|
elite*gold: 0
Join Date: Feb 2006
Posts: 6
Received Thanks: 0
|
is this still working for the latest patch?
|
|
|
|
|
10/03/2013, 22:20
|
#63
|
elite*gold: 0
Join Date: Sep 2013
Posts: 1
Received Thanks: 0
|
i download and the scatter.exe didnt download?
|
|
|
|
|
10/06/2013, 18:56
|
#64
|
elite*gold: 0
Join Date: Sep 2013
Posts: 1
Received Thanks: 0
|
it pick up db's or only mets and gold
|
|
|
|
|
01/29/2014, 09:00
|
#65
|
elite*gold: 0
Join Date: Sep 2008
Posts: 109
Received Thanks: 29
|
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
|
#66
|
elite*gold: 0
Join Date: Feb 2014
Posts: 1
Received Thanks: 0
|
Have you used this script yet and confirmed that it does not bug?
Thanks,
KillStreek
Quote:
Originally Posted by UnitedMassacre
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
|
#67
|
elite*gold: 0
Join Date: Mar 2013
Posts: 1
Received Thanks: 0
|
how about trojan char? can you make one?
|
|
|
|
|
02/04/2014, 18:51
|
#68
|
elite*gold: 17
Join Date: Dec 2007
Posts: 1,380
Received Thanks: 1,791
|
Is it patched or not ?
|
|
|
|
|
02/14/2014, 06:33
|
#69
|
elite*gold: 0
Join Date: Feb 2014
Posts: 24
Received Thanks: 8
|
Pretty sure it is patched
|
|
|
|
|
10/05/2014, 07:38
|
#70
|
elite*gold: 0
Join Date: Oct 2014
Posts: 1
Received Thanks: 0
|
hey pls i need the new bot hunt . i want to buy it pls ?
|
|
|
|
|
10/18/2014, 18:22
|
#71
|
elite*gold: 0
Join Date: Oct 2014
Posts: 2
Received Thanks: 0
|
deleted.
|
|
|
|
|
11/17/2014, 01:21
|
#72
|
elite*gold: 0
Join Date: May 2008
Posts: 20
Received Thanks: 0
|
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
|
#73
|
Trade Restricted
elite*gold: 3
Join Date: Jun 2012
Posts: 334
Received Thanks: 20
|
if this works and anyone can help me with installing it, pm me.
|
|
|
|
|
12/08/2014, 09:10
|
#74
|
elite*gold: 0
Join Date: Nov 2009
Posts: 13
Received Thanks: 0
|
can you make a tutorial on how you made the warrior bot
|
|
|
|
|
09/28/2017, 10:45
|
#75
|
elite*gold: 0
Join Date: Jul 2017
Posts: 2
Received Thanks: 0
|
nice
|
|
|
|
All times are GMT +1. The time now is 08:55.
|
|
![[Autoit] Simple Hunt bots with source code](https://www.elitepvpers.com/forum/iconimages/co2-bots-macros/autoit-simple-hunt-bots-source-code_ltr.gif){kind=small}
