Jump to content
Sign in to follow this  
Amnael

The Newbie Strikes Again

Recommended Posts

Amnael

Hello again ! The big bad newbie struggled a lot , and with a bit of help , i made this bot for Tales of Pirates Online . Now what i want from you guys is to tell me if is something wrong or to give me ideas to improve and make it better . It would be just awesome if you can test it , but only if you can. Thank you for reading this and i hope i'll get some good lines .

#Include <Misc.au3>
WinActivate("Pirate")
WinWaitActive("Pirate")
Opt("PixelCoordMode", 2);1=absolute, 0=relative, 2=client
Opt("MouseCoordMode", 2);1=absolute, 0=relative, 2=client


; Below is some pixel colors to use for certain animals.
;~ 0xEBB5D6 Dry Mystic Shrubs
;~ 0x844952 Snowy Mystic Shrub
;~ 0x295118 Melons & Cactus
;~ 0x538BA7 Debug the HP Bar/Heal function
;~ 0xF7D7BD Humpy Camel
;~ 0xCE9231 Bear Cub
;~ 0x6B3021 Cuddly Lamb
;~ 0xDE7573 Sea snail
;~ 0xB56508 Little Deer - Elk
;~ 0x393894 Sailor Penguin
;~ 0x5265CE Naiad
;~ 0x84DF52 Oyster 0x636D5A <-- grey on green oyster Yellow--> 0xF7FF84
;~ 0xF77500 Horned Penguin
;~ 0x39FBBD Snowy Shroom
;~ Angelic Panda 0x181818 0x08B25A
;~ Smuggler 0x7B304A
;~ Meadow Deer 0x848E18
;~ Armored Crab 0xEF6D08-0xFFB263-0xF77921
;~ Seaweed 0x89B252 0x855E1F 0xA0844A 0x7CA140 0x675642 0x885E31



$Monsters = 0xDE7573; Pixel color being searched for
$lowhealth = 85; makes character auto sit if health is 40% left
$Shadevar = 0
$Attack = 0
While $Attack = 0
$coord = PixelSearch(1, 1, 780, 580, $Monsters, 1);$Shadevar); Looking for the Pixel "Left,Top,Right,Bottom"
If Not @error Then
;~ MsgBox(0, "Pixel", "monster " & $Shadevar, 6)
;~ MsgBox(0, "Location", "x coords " & $coord[0] & " y coords " & $coord[1],2)
MouseClick("left", $coord[0], $coord[1], 3, 4); clicking the pixel
Sleep(3000);wait 5 seconds before picking up items
;~ Call("PickupDrops")
Send("^a")
sleep(1000)
Call("checkandheal")
$Shadevar = 0
If _IsPressed("23") Then $Attack = 1;if "end" is pressed then this will make $DryMystic=1 so the loop will stop
Else
$Shadevar = $Shadevar + 1;increase allowable shade variation by 1 until shade is found
EndIf
WEnd
MsgBox(0, "Bot Disabled", "You turned off the Bot!");Window name , text in the msgBox saying Bot is off !

Func checkandheal()
$coord = PixelSearch(75, 26, 183, 31, 0x538BA7, 5)
If Not @error Then
;~ MsgBox(0,"location","the x-location of the found pixelis "& $coord[0])
$healthlvl = (($coord[0] - 75) / (183 - 75)) * 100
If $healthlvl < $lowhealth Then
Send("{INS}")
$h = 0
$attack = 1
While $h = 0
Sleep(33000); 30 seconds of heal time.
PixelSearch(75, 26, 183, 31, 0x538BA7)
If @error Then
$h = 1
Send("{INS}")
sleep(1000)
$attack = 0
EndIf
WEnd
EndIf
EndIf
EndFunc;==>checkandheal

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×