Tutorial: how to write a pixelbot in Autoit

Quote:

Originally Posted by sasdfasdfas Can you fix the bonus box counter though? it doesent seem to work. tyty

Quote:

Originally Posted by »FlutterShy™ fixed but mayby you should understand that $count = $count + $count 0 is :p

Quote:

Originally Posted by Bone-marrow Hello! Since the newest updates, pixelbots have been getting more popular. I noticed that there are not many Autoit tutorials for a Darkorbit pixelbot, so I decided to make one :) This is my first tutorial, and I am still learning Autoit, so bear with me... Before I begin, you should have Autoit downloaded. Have SciTE.exe and Au3Info.exe open (both can be found in the Autoit folder). First we need to make a while statement:  Spoiler Code: While 1 WEnd This puts the code into a loop and makes it keep running. Next, we need to tell the bot to search for Bonusboxes around your ship:  Spoiler Code: While 1 $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) WEnd This line of code tells the bot the area it should search for a pixel color. You declare the variable "$box" and tell the bot to search for it. To find the color of a bonus box (or palladium ;)) use the au3info window:  Spoiler [Only registered and activated users can see links. Click Here To Register...] Simply click and drag the crosshairs/target to whatever you want to be collected and it will tell you the pixel color. NOTE: Your info window must be on the "mouse" tab!  Spoiler [Only registered and activated users can see links. Click Here To Register...] Then find the coordinates for the top left and bottom right of your collecting area with the info window:  Spoiler [Only registered and activated users can see links. Click Here To Register...] Here is where everything goes:  Spoiler Code: $variablename = PixelSearch([top left x coord],[top left y coord],[bottom right x coord],[bottom right y coord],[Pixel Color]) Next, we need to add code of what the bot should do if it spots the pixel:  Spoiler Code: While 1 $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) WEnd Basically, the bot will move the cursor to the pixel and click. The sleep time is the amount of time needed for your ship to collect the box/resource. Next we need to make the ship move if there is nothing to collect:  Spoiler Code: While 1 $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) Else Opt("MouseCoordMode", 1) MouseMove(int(Random(1390,1580)), int(Random(805,915)), 0) MouseClick("left") Sleep(2000) EndIf WEnd The "Else" statement tells the bot to move if no box/resource is spotted. The "Sleep(2000)" is the timing between each click on the minimap. Make sure to have "1" beside MouseCoordMode, otherwise it may not work. In this line: Code: MouseMove(int(Random(1390,1580)), int(Random(805,915)), 0) you must use your info window to find the coords of your minimap.  Spoiler First find the minimum x coord of the minimap (the left side) [Only registered and activated users can see links. Click Here To Register...] Then find the maximum x coord of the minimap (the right side) [Only registered and activated users can see links. Click Here To Register...] Next find the minimum y coord of the minimap (the top) [Only registered and activated users can see links. Click Here To Register...] Lastly, find the maximum y coord of the mimimap (the bottom) [Only registered and activated users can see links. Click Here To Register...] Now that we have all those coords, plug them into this line of code: Code: MouseMove(int(Random([minimum x],[maximum x])), int(Random([minimum y],[maximum y])), 0) After that, you have a simple yet working boxbot. To make it collect palladium, switch the pixel color and change the minimap coordinates to accomodate the fog area instead of the entire minimap. Here is the whole source:  Spoiler Code: HotKeySet("{ESC}", "quit") ;ESC to quit While 1 $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) Else Opt("MouseCoordMode", 1) MouseMove(int(Random(1390,1580)), int(Random(805,915)), 0) MouseClick("left") Sleep(2000) EndIf WEnd Func quit() Exit EndFunc Note: I added a hotkey (esc) to make the bot close itself out when you press it, that way you don't have to use task manager or anything like that ;) Bot with added pause feature (Special thanks to Fluttershy)  Spoiler Code: #RequireAdmin Global $pause = False ProcessSetPriority("script name.exe",4) ;enter your script name in order to work HotKeySet("{ESC}", "_quit") ;ESC to quit HotKeySet("{F1}", "_Pause") ;F1 to pause Opt("MouseCoordMode", 1) While 1 If $pause = False Then $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) Else MouseMove(Random(1390,1580,1), Random(805,915,1), 0) MouseClick("left") Sleep(2000) EndIf Else sleep(150) EndIf WEnd Func _quit() Exit EndFunc Func _Pause() If $pause = True Then $pause = False ElseIf $pause = False Then $pause = True EndIf EndFunc Bot with other features (Timer, count of boxes collected, etc. Again, special thanks to Fluttershy)  Spoiler Code: #RequireAdmin Global $pause = False Global $count = 0 ProcessSetPriority("script name.exe",4) HotKeySet("{ESC}", "_quit") HotKeySet("{F1}", "_Pause") Opt("MouseCoordMode", 1) $Timer = TimerInit() While 1 If $pause = False Then $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) $count = $count + 1 Else MouseMove(Random(1390,1580,1), Random(805,915,1), 0) MouseClick("left") Sleep(2000) EndIf Else sleep(150) EndIf WEnd Func _quit() $Diff = TimerDiff($Timer) $Diff = $Diff / 1000 MsgBox(0,"Boxes Collected","You collected ~ " & $count & " BonusBoxes " & @CRLF & "in ~ " & $Diff & " Seconds") Exit EndFunc Func _Pause() If $pause = True Then $pause = False ElseIf $pause = False Then $pause = True EndIf EndFunc Thanks to Forsaken and Dr.Toni for their tutorials and Fluttershy for adding features in the code. Feel free to pm me any questions that you have.

Quote:

Originally Posted by Michael_Mazepa Hey there. First want to thank you all for such simple and clear tutorial.:handsdown: I am one of those guys without any knowledge in coding and scripting but already understand how it works. I understand that it might be a different system now, but i am curious if there's still somehow a way for the script to identify the colors of the pixels? doing my practice on a clone DO server so i don't mess my DO acc and Au3Info doesn't seem to detect any of the colors for bonus boxes, cargoes, booties and even npc's, i know that it detects colors of bases, backgrounds even my ship. So, is there any tricks i could do to fix that?

Quote:

Originally Posted by Michael_Mazepa or here's another question, would it be possible for the script to find objects by images instead of pixels? I mean, let's just replace the phrase for PixelSearch with ImageSearch and everything else could remain the same, simple and clear. Can that happen or i am just daydreaming? :rolleyes:

Quote:

Originally Posted by Moneypulation AutoIt does detect those pixels, but the problem is that the boxes in darkorbit are gif's, so they are constantly changing which is making it hard for pixel- or imagesearch to find them. Yes, there is a function called ImageSearch. You can find plenty of tutorials how to use it by using google

#include <image_search.au3>

Func get_bonusbox_sign()
	Local $sign[9]
	$sign[0] = 3685189
	$sign[1] = 1974825
	$sign[2] = 397346
	$sign[3] = 987953
	$sign[4] = 16580556
	$sign[5] = 13404266
	$sign[6] = 15117442
	$sign[7] = 11439477
	$sign[8] = 14257235
	return $sign
EndFunc

	$img_pos = image_search(get_bonusbox_sign(),48,44)
	if $img_pos[0] <> -1 then
		MouseMove($img_pos[0],$img_pos[1])
	
	endif

#RequireAdmin

Global $pause = False

Global $count = 0

ProcessSetPriority("script name.exe",4)

HotKeySet("{ESC}", "_quit")
HotKeySet("{F1}", "_Pause")

Opt("MouseCoordMode", 1)
$Timer = TimerInit()
While 1
	If $pause = False Then
		$Box = PixelSearch(80,85,1745,1050,0xFFFFDD)
		If IsArray($Box) Then
			MouseMove($Box[0],$Box[1],0)
			MouseClick("left")
			Sleep(1750)
			$count = $count + 1
		Else
			MouseMove(Random(1390,1580,1), Random(805,915,1), 0)
			MouseClick("left")
			Sleep(2000)
		EndIf
	Else
		sleep(150)
	EndIf
WEnd

Func _quit()
	$Diff = TimerDiff($Timer)
	$Diff = $Diff / 1000
	MsgBox(0,"Boxes Collected","You collected ~ " & $count & " BonusBoxes " & [MENTION=3576271]CRLF[/MENTION] & "in ~ " & $Diff & " Seconds")
	Exit
EndFunc

Func _Pause()
	If $pause = True Then
		$pause = False
	ElseIf $pause = False Then
		$pause = True
	EndIf
EndFunc

#include <image_search.au3>

Func get_bonusbox_sign()
	Local $sign[9]
	$sign[0] = 3685189
	$sign[1] = 1974825
	$sign[2] = 397346
	$sign[3] = 987953
	$sign[4] = 16580556
	$sign[5] = 13404266
	$sign[6] = 15117442
	$sign[7] = 11439477
	$sign[8] = 14257235
	return $sign
EndFunc

	$img_pos = image_search(get_bonusbox_sign(),48,44)
	if $img_pos[0] <> -1 then
		MouseMove($img_pos[0],$img_pos[1])
	
	endif

Quote:

Originally Posted by Michael_Mazepa Hey Moneypopulation, seems like you would know if this is somewhere near right or not. So i got an extra set of codes, a script which i am not sure how to include in the main script that everyone contributed to make. :rolleyes:  Spoiler Code: #include <image_search.au3> Func get_bonusbox_sign() Local $sign[9] $sign[0] = 3685189 $sign[1] = 1974825 $sign[2] = 397346 $sign[3] = 987953 $sign[4] = 16580556 $sign[5] = 13404266 $sign[6] = 15117442 $sign[7] = 11439477 $sign[8] = 14257235 return $sign EndFunc $img_pos = image_search(get_bonusbox_sign(),48,44) if $img_pos[0] <> -1 then MouseMove($img_pos[0],$img_pos[1]) endif Could someone please help me understand the whole set and what else it needs or what it doesn't need and how eventually to run main script with this "function"? :handsdown:  Spoiler Code: #RequireAdmin Global $pause = False Global $count = 0 ProcessSetPriority("script name.exe",4) HotKeySet("{ESC}", "_quit") HotKeySet("{F1}", "_Pause") Opt("MouseCoordMode", 1) $Timer = TimerInit() While 1 If $pause = False Then $Box = PixelSearch(80,85,1745,1050,0xFFFFDD) If IsArray($Box) Then MouseMove($Box[0],$Box[1],0) MouseClick("left") Sleep(1750) $count = $count + 1 Else MouseMove(Random(1390,1580,1), Random(805,915,1), 0) MouseClick("left") Sleep(2000) EndIf Else sleep(150) EndIf WEnd Func _quit() $Diff = TimerDiff($Timer) $Diff = $Diff / 1000 MsgBox(0,"Boxes Collected","You collected ~ " & $count & " BonusBoxes " & [MENTION=3576271]CRLF[/MENTION] & "in ~ " & $Diff & " Seconds") Exit EndFunc Func _Pause() If $pause = True Then $pause = False ElseIf $pause = False Then $pause = True EndIf EndFunc +  Spoiler Code: #include <image_search.au3> Func get_bonusbox_sign() Local $sign[9] $sign[0] = 3685189 $sign[1] = 1974825 $sign[2] = 397346 $sign[3] = 987953 $sign[4] = 16580556 $sign[5] = 13404266 $sign[6] = 15117442 $sign[7] = 11439477 $sign[8] = 14257235 return $sign EndFunc $img_pos = image_search(get_bonusbox_sign(),48,44) if $img_pos[0] <> -1 then MouseMove($img_pos[0],$img_pos[1]) endif = :notsureif: