Page 1 of 1
Enzyme forage and sort bot
Posted: August 12th, 2009, 9:57 am
by bitterdog
Anyone have a working enzyme forage bot they wish to share that will delete all but +10 and +11 enzymes? I could care less about the treasure maps
absolution mentioned he has one here Register to unlock hidden link
But i have yet to see one. I can't afford to keep competeing on the forums with other people buying them,
Posted: August 12th, 2009, 10:01 am
by evilfigment
I have one but no lootfilter implemented yet.
Posted: August 12th, 2009, 12:16 pm
by bitterdog
dunno if this would help you if you want to actually work on one but here is a snippet of what they posted
;Click the 10 enzyme to make it active
ToolTip ("Left click on the enzyme with the 10 value to activate it.",50,50,"",0,1)
While 1
Sleep(1*$LagMultiplier)
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
ToolTip("")
Sleep(5*$LagMultiplier)
;Initial setup of X & Y for the pixelchecksum for the "10" enzyme
ToolTip ("Left click at the upper left corner of the '10' in the description area of the window.",50,50,"",0,1)
While 1
Sleep(1*$LagMultiplier)
If _IsPressed ( "01" ) Then
$pos = MouseGetPos() ;get X & Y position of the click
ExitLoop
EndIf
WEnd
ToolTip("")
$UprLft10x = $pos[0] ;set X position of the click
$UprLft10y = $pos[1] ;set Y position of the click
Sleep(5*$LagMultiplier)
ToolTip ("Left click at the lower right corner of the '10' in the description area of the window.",50,50,"",0,1)
While 1
Sleep(1*$LagMultiplier)
If _IsPressed ( "01" ) Then
$pos = MouseGetPos() ;get X & Y position of the click
ExitLoop
EndIf
WEnd
ToolTip("")
$LwrRgt10x = $pos[0] ;set X position of the click
$LwrRgt10y = $pos[1] ;set Y position of the click
Sleep(5*$LagMultiplier)
;Take a snapshot of the area enclosed by the upper left and lower right clicks for the 10 enzyme
$Checksum10 = PixelChecksum($UprLft10x, $UprLft10y, $LwrRgt10x, $LwrRgt10y)
Func SaveOrNot ()
MouseClick ("Left",$Itemx,$Itemy,1) ;click at the item spawn location in inventory
Sleep(30*$LagMultiplier)
$ChecksumTemp10 = PixelChecksum($UprLft10x, $UprLft10y, $LwrRgt10x, $LwrRgt10y) ;snapshot of 10 enzyme area again for comparison to the base
$ChecksumTempMap = PixelChecksum($UprLftMapx, $UprLftMapy, $LwrRgtMapx, $LwrRgtMapy) ;snapshot of map area again for comparison to the base
If $ChecksumTemp10 = $Checksum10 Then ;compare the new snapshot of the 10 enzyme area to the base snapshot
MouseClickDrag("Left",$Itemx,$Itemy,$EnzymeBPx,$EnzymeBPy,5) ;if the snapshots are the same, move the enzyme to the enzyme backback
ElseIf $ChecksumTempMap = $ChecksumMap Then ;compare the new snapshot of the map area to the base snapshot
MouseClickDrag("Left",$Itemx,$Itemy,$MapBPx,$MapBPy,5) ;if the snapshots are the same, move the enzyme to the map backback
Else ;the item of intereest is not a 10 or 11 enzyme or a map
MouseClick("Right",$Itemx,$Itemy,1) ;right click at the item spawn location in inventory to bring up the radial menu
Sleep(10*$LagMultiplier)
Send("3") ;choose option 3 on the radial menu, this will delete some items
Sleep(1*$LagMultiplier)
Send("2") ;choose option 2 on the radial menu, this will delete the other items
EndIf
EndFunc
Posted: August 12th, 2009, 1:08 pm
by evilfigment
I'll be implementing a client based lootfilter when i get some time as my bot also works by intercepting the core engine classes via memory. Theres no point me having a client bot with a scripted lootfilter. I don't have enough time atm to work on it but come september ill have a public release ready.
There should be some scripted ones around which should do what you need for now.