Blue Eye Macro

what program do you use to run this bot?

Thank you so much for this bot, it's great but it's a shame that it doesn't have the feature to change baits in order to extend the duration f the afk fishing, im very bad at coding so i dont know how or where to put it :( if anyone did it or can help me with this i'd be grateful

This is great!! i will try this thing when i get the license xD

thank you for the hard work =)

[quote="Crackerman55"]Hahaha, this is from 2015. Haven't played in over 2 years. You should be able to figure out the x location etc from the code and repurpose it for yourself. That is if the game still has the same fishing components as it did in 2015.[/quote]

i have tried, but it didn't do anything would u please help me??

[img]https://ibb.co/iXCbFH[/img]

Hahaha, this is from 2015. Haven't played in over 2 years. You should be able to figure out the x location etc from the code and repurpose it for yourself. That is if the game still has the same fishing components as it did in 2015.

where is ur update for 768p bro? thank you

Hello again,
Here is the most updated working code for my bot and subsequent macros.


[size=150]Fishing Bot 2.0.3 v2[/size]
[code] begin
while Color.Pixel pattern can not be located on screen near coordinate("0,0,0,1,0,0,0,0,1,0,0,0,0,-2,2,0,0,0,1,0,0,0,0,1,0,0,0,0", "0", "{X_X}", "{X_Y}", "5")
begin
// will click on fishing symbol if the minigame x is not found
if Color.Pixel pattern can be located on screen("223,230,160,1,0,110,138,57,1,0,120,152,54,1,0,115,147,51,-3,1,223,231,160,1,0,106,136,53,1,0,120,154,54,1,0,129,161,59", "5")
begin
Humanly.Pause("750", "800")
Mouse.Release button("left")
Mouse.Click at pixel pattern("248,164,96,1,0,179,91,21,1,0,115,101,31,1,0,210,222,144,-3,1,247,162,95,1,0,198,111,43,1,0,106,91,25,1,0,198,214,131", "5", "no", "right")
Humanly.Pause("200", "300")
Mouse.Click at pixel pattern("223,230,160,1,0,110,138,57,1,0,120,152,54,1,0,115,147,51,-3,1,223,231,160,1,0,106,136,53,1,0,120,154,54,1,0,129,161,59", "5", "no", "right")
end
end
while Color.Pixel pattern can be located on screen near coordinate("0,0,0,1,0,0,0,0,1,0,0,0,0,-2,2,0,0,0,1,0,0,0,0,1,0,0,0,0", "0", "{X_X}", "{X_Y}", "5")
begin
// when x is found for the minigame it will begin looking for triggers.
while Color.Near coordinate is not (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}", "2")
begin
// when a coordinate in the little lure man is there it will click.
while Color.At coordinate is within (RGB range)("55", "48", "46", "3", "575", "643")
begin
Mouse.Release button("left")
Humanly.Pause("150", "200")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("150", "200")
Mouse.Release button("left")
// double checks if it actually clicked and will restart if it has issues.
if Color.At coordinate is within (RGB range)("55", "48", "46", "3", "575", "643")
begin
// restart is meant to click on the green fish symbol because it caused issues before.
Function.Execute("Restart")
end
end
// when a coordinate in the little lure man is there it will click.
while Color.Pixel pattern can be located on screen near coordinate("161,116,75,1,2,156,112,72", "5", "576", "671", "5")
begin
Mouse.Release button("left")
Humanly.Pause("150", "200")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("150", "200")
Mouse.Release button("left")
if Color.At coordinate is within (RGB range)("55", "48", "46", "3", "575", "643")
begin
Function.Execute("Restart")
end
end
// looks for the scale on the fish and then preps for triggers
while Color.Pixel pattern can be located on screen("167,165,168,1,0,150,147,151,-1,1,168,167,170,1,0,149,147,152,-1,1,169,166,170,1,0,149,146,151,-1,1,170,166,172,1,0,154,150,158,-1,1,157,153,164,1,0,157,155,166", "0")
begin
Mouse.Release button("left")
Humanly.Pause("100", "200")
// Looksforhook
if Color.Pixel pattern can be located on screen("255,0,0,5,5,255,0,0,3,3,255,0,0,5,1,255,0,0,4,-3,255,0,0,5,-3,255,0,0,4,0,255,0,0", "0")
begin
Mouse.Release button("left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("10", "25")
Function.Execute("Fishing")
end
// Looksforstrong
if Color.Pixel pattern can be located on screen("255,0,0,5,0,255,0,0,4,0,255,0,0,2,3,255,0,0,6,1,255,0,0,5,-4,255,0,0,4,3,255,0,0", "0")
begin
Mouse.Release button("left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("10", "25")
Function.Execute("Fishing")
end
// LooksforGigantic
if Color.Pixel pattern can be located on screen("255,0,0,6,-3,255,0,0,5,3,241,3,5,4,-3,255,0,0,5,0,255,0,0", "0")
begin
Mouse.Release button("left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("10", "25")
Function.Execute("Fishing")
end
// Looks for Big
if Color.Pixel pattern can be located on screen("255,0,0,3,2,255,0,0,3,-3,255,0,0,3,2,255,0,0,4,0,255,0,0,4,3,255,0,0", "3")
begin
// maths for big catch rate
Variable.Set random number("Big Variable", "1", "1000")
Variable.Set("CatchRate", "{BigCatchRate}")
Variable.Multiply (Math)("CatchRate", "10")
if Variable.Is less than (Math)("Big Variable", "{CatchRate}")
begin
Mouse.Release button("left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("10", "25")
Function.Execute("Fishing")
end
if Variable.Is greater than (Math)("Big Variable", "{CatchRate}")
begin
Humanly.Pause("12000", "15000")
end
end
// look for small
if Color.Pixel pattern can be located on screen("255,0,0,5,-2,255,0,0,4,1,255,0,0,5,1,255,0,0,5,-2,255,0,0,4,0,255,0,0,3,0,255,0,0,5,1,255,0,0,3,3,255,0,0", "0")
begin
// maths for small catch rate
Variable.Set random number("Small Variable", "1", "1000")
Variable.Set("CatchRate2", "{SmallCatchRate}")
Variable.Multiply (Math)("CatchRate2", "10")
if Variable.Is less than (Math)("Small Variable", "{CatchRate2}")
begin
Mouse.Release button("left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
Humanly.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left", "yes")
Humanly.Pause("10", "25")
Function.Execute("Fishing")
end
if Variable.Is greater than (Math)("Small Variable", "{CatchRate2}")
begin
Humanly.Pause("12000", "15000")
end
end
end
end
while Color.At coordinate is (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
Function.Execute("Fishing")
end
end
end

function("Fishing")
// where the magic happens
begin
if Variable.Is equal to("ZCheckBlueOnce", "0")
begin
Mouse.Release button("left")
Color.Wait for and locate pixel pattern("72,0,0,0,1,72,0,0,0,1,72,0,0,0,1,72,0,0,0,1,72,0,0", "0", "FindBlue_X", "FindBlue_Y")
Variable.Set("ZCheckBlueOnce", "1")
end
Color.Find pixel pattern closest to coordinate("72,0,0,0,1,72,0,0,0,1,72,0,0,0,1,72,0,0,0,1,72,0,0", "0", "yes", "720", "746", "Golden_X", "Golden_Y")
if Variable.Is greater than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Hold button("left")
end
if Variable.Is less than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Release button("left")
end
end
function

function("Restart")
begin
Humanly.Pause("120", "150")
Mouse.Release button("left")
Mouse.Click at pixel pattern("223,230,160,1,0,110,138,57,1,0,120,152,54,1,0,115,147,51,-3,1,223,231,160,1,0,106,136,53,1,0,120,154,54,1,0,129,161,59", "5", "no", "right")
Mouse.Release button("left")
Macro.Restart("no")
end
function
[/code]

[size=150]Bag Clear 1.03[/size]

[code] begin
Macro.Abort macro named("Aurakingdom", "{FishBot}")
Mouse.Release button("left")
Humanly.Pause("100", "150")
if Color.Pixel pattern can not be located on screen near coordinate("0,0,0,0,1,0,0,0,0,3,0,0,0,2,-4,2,2,2,0,1,0,0,0,0,3,0,0,0", "0", "{X_X}", "{X_Y}", "20")
begin
Mouse.Release button("left")
Humanly.Pause("{Cut_MIN}", "{Cut_MAX}")
if Color.Pixel pattern can be located on screen near coordinate("0,0,0,0,1,0,0,0,0,3,0,0,0,2,-4,2,2,2,0,1,0,0,0,0,3,0,0,0", "0", "{X_X}", "{X_Y}", "20")
begin
Function.Execute("Close")
end
Function.Execute("Bag Clear")
end
when Color.Pixel pattern can be located on screen near coordinate("0,0,0,0,1,0,0,0,0,3,0,0,0,2,-4,2,2,2,0,1,0,0,0,0,3,0,0,0", "0", "{X_X}", "{X_Y}", "20")
begin loop()
Mouse.Release button("left")
Mouse.Click at color closest to coordinate (RGB)("0", "0", "0", "0", "{X_X}", "{X_Y}", "left")
if Color.Pixel pattern can not be located on screen near coordinate("0,0,0,1,2,0,0,0,1,2,0,0,0,3,3,0,0,0", "0", "656", "626", "5")
begin
if Color.Pixel pattern can not be located on screen near coordinate("56,56,56,3,4,56,56,56,3,2,56,56,56", "0", "656", "627", "2")
begin
Macro.Break from loop("yes")
Function.Execute("Bag Clear")
end
end
end
end

function("Close")
begin loop()
Mouse.Release button("left")
Mouse.Click at color closest to coordinate (RGB)("0", "0", "0", "0", "{X_X}", "{X_Y}", "left")
Mouse.Release button("left")
if Color.Pixel pattern can not be located on screen near coordinate("0,0,0,1,2,0,0,0,1,2,0,0,0,3,3,0,0,0", "0", "656", "626", "5")
begin
if Color.Pixel pattern can not be located on screen near coordinate("56,56,56,3,4,56,56,56,3,2,56,56,56", "0", "656", "627", "2")
begin
Function.Execute("Bag Clear")
Macro.Break from loop("no")
end
end
end
function

function("Bag Clear")
begin
while Color.Pixel pattern can be located on screen("144,218,218,1,0,40,152,158,1,0,63,185,188,1,0,51,159,159,1,0,168,228,226,1,0,110,230,229,-5,1,20,145,157,1,0,41,193,199,1,0,70,213,215,1,0,83,204,205,1,0,61,166,168,1,0,165,226,226,-5,1,14,204,214,1,0,34,224,222,1,0,88,222,219,1,0,106,207,207,1,0,42,163,165,1,0,41,157,158", "4")
begin
Mouse.Release button("left")
Humanly.Pause("200", "300")
Mouse.Click at pixel pattern("144,218,218,1,0,40,152,158,1,0,63,185,188,1,0,51,159,159,1,0,168,228,226,1,0,110,230,229,-5,1,20,145,157,1,0,41,193,199,1,0,70,213,215,1,0,83,204,205,1,0,61,166,168,1,0,165,226,226,-5,1,14,204,214,1,0,34,224,222,1,0,88,222,219,1,0,106,207,207,1,0,42,163,165,1,0,41,157,158", "4", "yes", "right")
Mouse.Release button("left")
if Color.Pixel pattern can be located on screen near coordinate("0,0,0,0,1,0,0,0,0,3,0,0,0,2,-4,2,2,2,0,1,0,0,0,0,3,0,0,0", "0", "{X_X}", "{X_Y}", "20")
begin
Mouse.Release button("left")
Macro.Restart("yes")
end
end
while Color.Pixel pattern can not be located on screen("144,218,218,1,0,40,152,158,1,0,63,185,188,1,0,51,159,159,1,0,168,228,226,1,0,110,230,229,-5,1,20,145,157,1,0,41,193,199,1,0,70,213,215,1,0,83,204,205,1,0,61,166,168,1,0,165,226,226,-5,1,14,204,214,1,0,34,224,222,1,0,88,222,219,1,0,106,207,207,1,0,42,163,165,1,0,41,157,158", "3")
begin
while Color.Pixel pattern can be located on screen("142,177,111,1,0,156,185,115,1,0,170,192,129,1,0,178,194,140,1,0,179,193,133,-4,1,59,101,111,1,0,87,120,111,1,0,121,151,108,1,0,142,169,108,1,0,167,185,123", "3")
begin
Mouse.Release button("left")
Humanly.Pause("100", "150")
Mouse.Click at pixel pattern("142,177,111,1,0,156,185,115,1,0,170,192,129,1,0,178,194,140,1,0,179,193,133,-4,1,59,101,111,1,0,87,120,111,1,0,121,151,108,1,0,142,169,108,1,0,167,185,123", "3", "yes", "right")
Humanly.Pause("1200", "1500")
Mouse.Release button("left")
if Color.Pixel pattern can be located on screen near coordinate("0,0,0,0,1,0,0,0,0,3,0,0,0,2,-4,2,2,2,0,1,0,0,0,0,3,0,0,0", "0", "{X_X}", "{X_Y}", "20")
begin
Mouse.Release button("left")
Macro.Restart("yes")
end
end
if Color.Pixel pattern can not be located on screen("142,177,111,1,0,156,185,115,1,0,170,192,129,1,0,178,194,140,1,0,179,193,133,-4,1,59,101,111,1,0,87,120,111,1,0,121,151,108,1,0,142,169,108,1,0,167,185,123", "3")
begin
Mouse.Release button("left")
Humanly.Pause("200", "300")
Mouse.Click at pixel pattern("41,35,24,1,0,83,63,40,1,0,219,175,121,-3,1,255,255,255,1,0,0,0,0,1,0,208,166,114,1,0,205,157,101,-3,-1,255,255,255", "0", "no", "right")
Mouse.Release button("left")
Humanly.Pause("1200", "1500")
Mouse.Click at pixel pattern("78,31,13,0,1,78,31,13,0,1,72,26,9,0,1,93,47,26,1,-3,151,100,72,0,1,135,83,58,0,1,97,47,27,0,1,101,53,33", "3", "yes", "left")
Humanly.Pause("1200", "1200")
Mouse.Release button("left")
Macro.Resume all paused macros()
Macro.Execute new("Aurakingdom", "{FishBot}", "no")
Macro.Pause("250")
Macro.Abort()
end
end
end
function
[/code]

[size=150]Countdown Timers [/size]
Without random
[code] begin
Variable.Multiply (Math)("Wait Time Mins", "60")
Variable.Set("countdown", "{Wait Time Mins}")
Window.Display html dialog("Countdown", "63", "213", "yes", "{countdown}")
Macro.Pause("1000")
begin loop()
if Variable.Is equal to("countdown", "0")
begin
Macro.Execute new("Test", "Bag Clear 1.0.3", "yes")
Macro.Restart("yes")
end
if Color.Pixel pattern can be located on screen("255,0,0,0,9,255,0,0,5,0,255,0,0,3,-2,255,0,0,2,2,255,0,0,3,-3,255,0,0,3,-3,255,0,0,5,2,255,0,0,5,3,255,0,0", "0")
begin
Macro.Execute new("Test", "Bag Clear 1.0.3", "yes")
Macro.Restart("yes")
end
Variable.Decrement (Math)("countdown")
Window.Get location("Countdown", "no", "no", "x", "y")
Window.Display html dialog("Countdown", "{x}", "{y}", "yes", "{countdown}")
Macro.Pause("1000")
end
end
[/code]
With random
[code] begin
Variable.Set random number("Mins", "{Wait Time min Mins}", "{Wait Time max Mins}")
Variable.Set random number("Seconds", "0", "60")
begin loop()
if Variable.Is equal to("Seconds", "0")
begin
if Variable.Is equal to("Mins", "0")
begin
Macro.Execute new("Test", "Bag Clear 1.0.3", "yes")
Macro.Restart("yes")
end
Variable.Decrement (Math)("Mins")
Variable.Set("Seconds", "60")
end
if Color.Pixel pattern can be located on screen("255,0,0,0,9,255,0,0,5,0,255,0,0,3,-2,255,0,0,2,2,255,0,0,3,-3,255,0,0,3,-3,255,0,0,5,2,255,0,0,5,3,255,0,0", "0")
begin
Macro.Execute new("Test", "Bag Clear 1.0.3", "yes")
Macro.Restart("yes")
end
Variable.Decrement (Math)("Seconds")
Window.Set location("CountdownMins", "Yes", "{x}", "{y}")
Variable.Evaluate (Text)("Mins: {Mins} <br/> Seconds: {Seconds}", "Result")
Window.Display html dialog("CountdownMins", "{x}", "{y}", "yes", "{Result}")
Macro.Pause("1000")
end
end
[/code]

I like how you scripted the countdown; good job!

Hello,
Recently I started playing AK and found fishing to be extremely easy and a tad fun, which turned extremely boring. I began using bots which continually caught every fish available and wanted to make my own which would look as human as possible.
Others have much more complex bots, but I've worked to create a bot which works like a human in as simple as possible script.

This is my first forum post and it will be updated with full descriptions of variables etc at a later time.
These are the most stable and bug free builds I currently have.
These are designed for the english aeria games servers


[size=175]MAIN bot[/size]
[size=150]Standalone fishing bot[/size]
[u]Standalone[/u] semi-active fishing bot which will catch cubes, orange, and king fish.
Will fish and auto-find the green fishing icon and begin to fish, or will continue fishing so long as the mini-game is up. Make sure it is clickable and not obscured or un-clickable.
[url=http://s954.photobucket.com/user/crackerman56/media/BEM/Fish%20icon_zps8h7o471n.png.html][img]http://i954.photobucket.com/albums/ae24/crackerman56/BEM/Fish%20icon_zps8h7o471n.png[/img][/url]
Works off a universal text trigger which has worked on all tested resolutions.
[size=111][u]Variables[/u][/size]
Variable Big fish catch rate {BigCatchRate} expressed as the percentage of what you want. Default .5
Variable Small fish catch rate {SmallCatchRate} expressed as the percentage of what you want. Default .25

(working on fail percentages)
(also working on auto declining friend invites)

[size=150]Utility Bots[/size]
Bag clears
Cube clear and fishing bait switcher (needs 1-3 full stacks of earthworm bait to work properly).
[url=http://s954.photobucket.com/user/crackerman56/media/Bait_zpsoozxnvwt.png.html][img]http://i954.photobucket.com/albums/ae24/crackerman56/Bait_zpsoozxnvwt.png[/img][/url]
Designed to close fishing game and then clear out cubes and any unstackable items by patterns.
Trigger Lctrl+L
[u]Variables[/u]
{X_X}, {X_Y} location coordinates of the of the x on fishing minigame
{FishBot} Name of current fishing bot (leave blank if you don't want to re-execute fishing bot}


[size=150]Countdown timer [/size]
Triggers bag clear based off timer.
Timer will display in minutes and seconds to countdown.

[size=125]Unmarked timer [/size]
Runs a timer based on a predetermined variable in minutes. {Wait Time Mins}
[u]Variables[/u]
{x} {y} are the location where you want the countdown timer

[size=125]Countdown Timer 2.01[/size]
Runs off a variable timer based on a min and max times in predetermined variables
[size=111][u]Variables[/u][/size]
{x} {y} are the location where you want the countdown timer
{Wait Time min Mins} lower random time limit to run bag clear
{Wait Time max Mins} Upper limit

[size=125]Auto R[/size]
Auto right clicker (LCtrl+u trigger)
Automatically will click the right click.
killing the clicker has a 50% to have the right click down and will drag the screen. just right click to fix this.


[size=175]Resolution Builds[/size]
Non-resolution versions will have a default resolution of 1080p
Resolution marked versions are as follows:
900p (1600x900p)
768p (1366x768) In development
[b]Macros will only work with utilizes with the same resolution tag![/b]


[size=200]How to use[/size]
1. Import the bot to BEM.
2. Open your AK game.
3. Make sure your game resolution is set to the correct resolution (dependent on version).
4. Make sure your UI is 100% scaled (could be found in SFX & UI settings) and brightness is set to 100%.
(Optional) Set graphics to lowest settings and 30-60 fps (energy conservation).
5. Reset UI in main menu (please move combat action bars to chat area for best effects).
(Optional) Remove name tags and hp bar from screen)
6. Find a fishing spot with orange fish available.
(Optional Utility) Open inventory and place inventory on left or right portion of screen with bait and organize button fully visible.
7. Make sure all fishing icons on the screen are clickable (mainly the highest one up) and are not obscured (causes issues if it is unclickable).
8. Press hotkey to start fishing bot.currently ",".
(Optional) run utilities with "/" (countdown timer) or Lctrl+L (bag clear)
9. Enjoy catching fish
10. All Current end triggers are".".

Feel free to change triggers, as admittedly they are quite annoying to type with.

[color=#FF0000][size=200]Warning: THIS POST IS INCOMPLETE [/size][/color]
feel free to message me with questions/suggestions


[size=150]Thanks to: [/size]
Bananaboot (Ideas for humanality)
Luatron (initial bot ideas and script base)
Pietris (learned how to do functions)


[size=200]BOTS[/size]
[size=150][color=#800040]Let me know how well these work for you[/color][/size]

[size=125]1080p - [/size]
[attachment=0]aurakingdom;ak fishing bot 2.0.3 v2.bem[/attachment]
[attachment=2]test;display countdown 2.0.1.bem[/attachment]
[attachment=8]test;display countdown.bem[/attachment]
[attachment=1]test;bag clear 1.0.3.bem[/attachment]


[size=125]900p -[/size]
[attachment=6]aurakingdom;ak fishing bot 2.0.2 v2 900p.bem[/attachment]
[attachment=7]test;display countdown 900p.bem[/attachment]
[attachment=5]test;display countdown 2.0.1 900p.bem[/attachment]
[attachment=9]test;bag clear 1.0.3 900p.bem[/attachment]

[size=125]Universal - [/size]
[attachment=3]aurakingdom;auto r.bem[/attachment]