Blue Eye Macro

Please stop pming me about the simba bot.

This is what i did with the code;
[code]begin
Color.Limit area of interest to window("Myth of Soma : The Rise of Gorshak", "Yes")
// Set Top left and bottom right coords of the area we want the bot to stay inside
// check SomaInfo file for cords fo hunting areas
Variable.Set("LeftX", "521")
Variable.Set("RightX", "550")
Variable.Set("TopY", "342")
Variable.Set("BottomY", "376")
// Move or not when attacking(Hold shift). {<end>} = no {<lshiftkey>} = yes
// Daylight RGB Mobs
Variable.Set("DRed", "165")
Variable.Set("DGreen", "113")
Variable.Set("DBlue", "107")
// VoD RGB Mobs
Variable.Set("NRed", "173")
Variable.Set("NGreen", "150")
Variable.Set("NBlue", "66")
Variable.Set("PixelSearchDistance", "350")
Variable.Set("NearPixelSearchDistance", "230")
Variable.Set("MovePause", "333")
Variable.Set("PixelRange", "5")
Variable.Set("OldMover", "1")
Memory.Get value("SomaWindow", "00536788", "4", "CharCoordsY")
Memory.Get value("SomaWindow", "00536784", "4", "CharCoordsX")
// activates other macros. You have to deactivate these manually even when you stop this macro
end
begin loop()
Color.Limit area of interest to window("Myth of Soma : The Rise of Gorshak", "Yes")
Memory.Get value("SomaWindow", "00536788", "4", "CharCoordsY")
Memory.Get value("SomaWindow", "00536784", "4", "CharCoordsX")
Window.Calculate absolute coordinates("Myth of Soma : The Rise of Gorshak", "yes", "400", "300", "CharX", "CharY")
Macro.Pause("4")
if Color.Near coordinate is (RGB)("{DRed}", "{DGreen}", "{DBlue}", "400", "300", "{PixelSearchDistance}")
begin
Variable.Set("FightSearch", "0")
while Variable.Is less than (Math)("FightSearch", "5")
begin
Color.Find coordinate of occurrence on screen closest to coordinate (RGB)("{DRed}", "{DGreen}", "{DBlue}", "{PixelRange}", "400", "300", "MobX", "MobY")
if Variable.Exists("MobX")
begin
Mouse.Set coordinate("{MobX}", "{MobY}")
Macro.Pause("4")
if Color.Near coordinate is within (RGB range)("255", "162", "0", "10", "{MobX}", "{MobY}", "100")
begin
Variable.Set("FightSearch", "6")
Function.Execute("Attack")
end
if Color.Near coordinate is not within (RGB range)("255", "162", "0", "10", "{MobX}", "{MobY}", "100")
begin
Variable.Remove("MobX")
Variable.Increment (Math)("FightSearch")
end
end
end
end
if Color.Near coordinate is (RGB)("255", "255", "107", "400", "300", "{PixelSearchDistance}")
begin
Variable.Set("Pause", "0")
Variable.Set("Status", "CollectingDrops")
Mouse.Click at color closest to coordinate (RGB)("0", "255", "255", "{PixelRange}", "400", "300", "Left")
Macro.Pause("2000")
end
if Variable.Is less than (Math)("CharCoordsX", "{LeftX}")
begin
Function.Execute("MoveRight")
end
if Variable.Is equal to("CharCoordsX", "{LeftX}")
begin
Function.Execute("MoveRight")
end
if Variable.Is greater than (Math)("CharCoordsX", "{RightX}")
begin
Function.Execute("MoveLeft")
end
if Variable.Is equal to("CharCoordsX", "{RightX}")
begin
Function.Execute("MoveLeft")
end
if Variable.Is less than (Math)("CharCoordsY", "{TopY}")
begin
Function.Execute("MoveDown")
end
if Variable.Is equal to("CharCoordsY", "{TopY}")
begin
Function.Execute("MoveDown")
end
if Variable.Is greater than (Math)("CharCoordsY", "{BottomY}")
begin
Function.Execute("MoveUp")
end
if Variable.Is equal to("CharCoordsY", "{BottomY}")
begin
Function.Execute("MoveUp")
end
Variable.Set random number("Mover", "1", "4")
If Variable.Is equal to("Mover", "1")
begin
if Variable.Is not equal to("OldMover", "2")
begin
Function.Execute("MoveUp")
end
end
If Variable.Is equal to("Mover", "2")
begin
if Variable.Is not equal to("OldMover", "1")
begin
Function.Execute("MoveDown")
end
end
If Variable.Is equal to("Mover", "3")
begin
if Variable.Is not equal to("OldMover", "4")
begin
Function.Execute("MoveLeft")
end
end
If Variable.Is equal to("Mover", "4")
begin
if Variable.Is not equal to("OldMover", "3")
begin
Function.Execute("MoveRight")
end
end
Variable.Set("OldMover", "{Mover}")
end

function("MoveUp")
begin
Window.Calculate absolute coordinates("Myth of Soma : The Rise of Gorshak", "yes", "400", "260", "MoveUpX", "MoveUpY")
Mouse.Move to coordinate("{MoveUpX}", "{MoveUpY}")
Mouse.Click at coordinate("{MoveUpX}", "{MoveUpY}", "Left")
Macro.Pause("{MovePause}")
end
function

function("MoveDown")
begin
Window.Calculate absolute coordinates("Myth of Soma : The Rise of Gorshak", "yes", "400", "350", "MoveDownX", "MoveDownY")
Mouse.Move to coordinate("{MoveDownX}", "{MoveDownY}")
Mouse.Click at coordinate("{MoveDownX}", "{MoveDownY}", "Left")
Macro.Pause("{MovePause}")
end
function

function("MoveLeft")
begin
Window.Calculate absolute coordinates("Myth of Soma : The Rise of Gorshak", "yes", "300", "305", "MoveLeftX", "MoveLeftY")
Mouse.Move to coordinate("{MoveLeftX}", "{MoveLeftY}")
Mouse.Click at coordinate("{MoveLeftX}", "{MoveLeftY}","Left")
Macro.Pause("{MovePause}")
end
function

function("MoveRight")
begin
Window.Calculate absolute coordinates("Myth of Soma : The Rise of Gorshak", "yes", "500", "305", "MoveRightX", "MoveRightY")
Mouse.Move to coordinate("{MoveRightX}", "{MoveRightY}")
Mouse.Click at coordinate("{MoveRightX}", "{MoveRightY}", "Left")
Macro.Pause("{MovePause}")
end
function

function("Attack")
begin
if Color.Near coordinate is within (RGB range)("255", "162", "0", "10", "{MobX}", "{MobY}", "100")
begin
Mouse.Hold button("Left")
Variable.Set("Count", "1")
Variable.Set("OldMobX", "{MobX}")
Variable.Set("OldMobY", "{MobY}")
Variable.Remove("MobX")
Color.Find coordinate of occurrence on screen closest to coordinate (RGB)("{DRed}", "{DGreen}", "{DBlue}", "{PixelRange}", "400", "300", "MobX", "MobY")
if Variable.Exists("MobX")
begin
while Variable.Is less than (Math)("Count", "15")
begin
Variable.Calculate difference (Math)("OldMobX", "MobX", "Xdif")
Variable.Calculate difference (Math)("OldMobY", "MobY", "Ydif")
Variable.Evaluate (Math)("{Ydif}+{Xdif}", "MobDistance")
if Variable.Is greater than (Math)("MobDistance", "40")
begin
Mouse.Move to coordinate("{MobX}", "{MobY}")
Macro.Pause("150")
Variable.Increment (Math)("Count")
end
if Variable.Is less than (Math)("MobDistance", "39")
begin
Macro.Pause("1000")
Variable.Increment (Math)("Count")
Variable.Increment (Math)("Count")
end
If Color.Near coordinate is not within (RGB range)("255", "162", "0", "20", "{MobX}", "{MobY}", "150")
begin
Variable.Set("Count", "240")
Mouse.Release button("Left")
end
end
Mouse.Click("Left")
end
if Variable.Does not exist("MobX")
begin
Variable.Set("MobX", "{OldMobX}")
Mouse.Release button("Left")
end
end
end
function
[/code]


this is what i use for aura's

[code]begin loop()
Macro.Pause("10000")
Mouse.Move in direction("404", "259")
Mouse.Click("Right")
Macro.Pause("50000")
end[/code]

Thanks for sharing the code

I worked on it so it would run and it does. i made some adjustements to make it more smooth but it still needs a lot of work.
I made a new topic about it on this forum

http://blueeye-macro.com/viewtopic.php?f=128&t=23961&p=157652#p157652

please anyone still working on this?!

Is simba's macro still available, someone upload maybe?

Oh.my
My head spining

Looking for a fresh link or the source code pleaseee :) If anyone has an old version im happy to bring it up to latest version

has anyone got this macro or can share? would be a good help

i feel im necroing an old project but is the project been recalled at anytime?

can anyone share this macro?