Hello again,
Here is the most updated working code for my bot and subsequent macros.
Fishing Bot 2.0.3 v2Code:
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
Bag Clear 1.03Code:
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
Countdown Timers 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
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