I wanna emphasize some things.
1st. This macro is not my creation, is a rip from gipsy's with some modifications.
2nd. If it fails to sell, is because of the RBG range. if u see my and Gipsy's post, u will see that the RBG range is changed. Gipsys' was set to the grey colour of the background in the seller vendor and mine is set to Yellow.
3rd. The only reason i post this alone is cause i use another macro to craft cause for a reason all the crafting attempts with blue-eye failed miserably.
Alt + 2 to start selling the item that is placed on the 3rd position.
Escape to cancel the selling but keep the macro active, meaning you can repeat step 1.
If it doesn't work, try changing the RGB value.
Here is a tool to help you indentify what value to set.
begin
Window.Get location("Soma Mythological Biography", "No", "no", "WinX", "WinY")
Window.Wait for window to appear("soma mythological biography", "no")
begin loop()
Keyboard.Wait for keys to be held down("{<alt>}")
if Keyboard.Key is held down("2")
begin
Function.Execute("Sell_Item_In_Seller")
end
function("ExitFunction")
begin
if Keyboard.Keys has been pressed within (ms)("{<esc>}", "{input}")
begin
Macro.Restart("Yes")
end
end
function
function("Sell_Item_In_Seller")
begin
Variable.Evaluate (Math)("{WinX} + 95", "x")
Variable.Evaluate (Math)("{WinY} + 265", "y")
while Color.At coordinate is not within (RGB range)("255", "255", "49", "10", "{x}", "{y}")
begin
Variable.Evaluate (Math)("{WinX} + 90", "xx1")
Variable.Evaluate (Math)("{WinY} + 265", "yy1")
Mouse.Set coordinate("{xx1}", "{yy1}")
Function.Execute setting 1 variable("ExitFunction", "input", "2000")
Mouse.Click("Left")
Function.Execute setting 1 variable("random_pause", "input", "95")
Variable.Evaluate (Math)("{WinX} + 215", "xx2")
Variable.Evaluate (Math)("{WinY} + 270", "yy2")
Mouse.Set coordinate("{xx2}", "{yy2}")
Function.Execute setting 1 variable("random_pause", "input", "95")
Function.Execute setting 1 variable("ExitFunction", "input", "2000")
Mouse.Click("Left")
Function.Execute setting 1 variable("random_pause", "input", "95")
end
Macro.Pause("250")
end
function
function("random_pause")
begin
Variable.Evaluate (Math)("{input}*3/2", "varRandom2")
Variable.Set random number("rnd", "{input}", "{varRandom2}")
Macro.Pause("{rnd}")
end
function
end
end
Login
Register
FAQ
