This is for SP farming , and drop farming .
This is still very basic. I need to add a lot more fuctions.
As is, It targets ,Attacks, and loots, Will also use one skill ,potion,buff, Depending on what you slot in the F3 tray slot.
It can only find whats in visual range.
It only uses skills befor each atk. So its up to you to find the proper spot to bot in .
Targets Blue,Green,and WHite name mobs only !
***Things to remember****
USA Version
Windows mode 1024x768
(cammand slotting )
F1 Attack
F2 Item Pick up,(can also use Pet Pick up )
F3 Attack Skill (Any skill or potion can be placed here, it will hit befor each new monster is attacked )
~Run game, log in, find spot to farm, Click bot file to start it . ~
Heres the script
Code: Select all
[code]Opt("PixelCoordMode",2)
Opt("MouseCoordMode",2)
$mobGreen = "0x5B9600"
$BlueMob = "0x0089AA"
$YellowMob = "0xD7A700"
$WhiteMob = "0xC4C1C4"
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
winactivate ("LastChaos - Aeria Games & Entertainment (Window 1024x768)")
WinWaitActive ("LastChaos - Aeria Games & Entertainment (Window 1024x768)")
sleep (1000)
while 1
$coord = PixelSearch(150,120,866,508,$WhiteMob,5)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+45, 1)
$y = Random($coord[1], $coord[1]+100, 1)
MouseClick("right", $x, $y, 2, 0)
$mm = PixelGetColor ( 580 , 9 )
$mob = Hex($mm, 6)
If $mob Then
ExitLoop
$coord = PixelSearch(150,120,866,508,$mobGreen,5)
EndIf
$n = @error
wend
If $mob = "1C1E14" Then
while $mob = "1C1E14"
Send("{F1}")
sleep(350)
Send("{F3}")
$mm = PixelGetColor ( 508, 9 )
$mob = Hex($mm, 6)
wend
Sleep (1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
EndIf
Else
$coord = PixelSearch(150,120,866,508,$mobGreen,5)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+50, 1)
$y = Random($coord[1], $coord[1]+100, 1)
MouseClick("right", $x, $y, 2, 0)
$mm = PixelGetColor ( 580 , 9 )
$mob = Hex($mm, 6)
If $mob Then
ExitLoop
$coord = PixelSearch(150,120,866,508,$mobGreen,5)
EndIf
$n = @error
wend
If $mob = "1C1E14" Then
while $mob = "1C1E14"
Send("{F1}")
sleep(350)
Send("{F3}")
$mm = PixelGetColor ( 508, 9 )
$mob = Hex($mm, 6)
wend
Sleep (1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
EndIf
Else
$coord = PixelSearch(150,120,866,508,$BlueMob,5)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+50, 1)
$y = Random($coord[1], $coord[1]+50, 1)
MouseClick("right", $x, $y, 2, 0)
$mm = PixelGetColor ( 580 , 9 )
$mob = Hex($mm, 6)
If $mob Then
ExitLoop
$coord = PixelSearch(150,120,866,508,$mobGreen,5)
EndIf
$n = @error
wend
If $mob = "1C1E14" Then
while $mob = "1C1E14"
Send("{F1}")
sleep(350)
Send("{F3}")
$mm = PixelGetColor ( 508, 9 )
$mob = Hex($mm, 6)
wend
Sleep (1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
EndIf
Else
$coord = PixelSearch(150,120,866,508,$YellowMob,5)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+45, 1)
$y = Random($coord[1], $coord[1]+100, 1)
MouseClick("right", $x, $y, 2, 0)
$mm = PixelGetColor ( 580 , 9 )
$mob = Hex($mm, 6)
If $mob Then
ExitLoop
$coord = PixelSearch(150,120,866,508,$mobGreen,5)
EndIf
$n = @error
wend
If $mob = "1C1E14" Then
while $mob = "1C1E14"
Send("{F1}")
sleep(350)
Send("{F3}")
$mm = PixelGetColor ( 508, 9 )
$mob = Hex($mm, 6)
wend
Sleep (1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
EndIf
Else
Send("{Right 6}")
Endif
EndIf
EndIf
EndIf
WEnd
Known Bugs, It seems to only target green mobs for somereason....
need to add fuctions for F4-F12 slots, and maybe a pet auto heal system.. Still tring to figure out what needs to go where.
Since i Play as a Sorc, I have to use a Macro set on proper timmers to use my shapeshifting skills and things like that, But for all other classes, this works perfectly