// PokeMMO Levelbot/Macro version 0.9
begin
begin loop("-1")
if Macro.Parent loop iteration is less than("2")
begin
Window.Set size("PokeMMO", "No", "1280", "720")
Window.Set location("PoKeMMO", "NO", "0", "0")
Window.Bring to front("PokeMMO", "No")
end
if Color.At coordinate is (RGB)("133", "133", "133", "891", "491")
begin
Window.Bring to front("PokeMMO", "No")
Keyboard.Press key("{<up>}")
Macro.Pause("200")
Keyboard.Press key("{<down>}")
if Window.Confirmation dialog gets confirmed by user("Choose the attack then start the Macro again!")
begin
Window.Set location("Blue Eye", "No", "1280", "720")
Macro.Pause("500")
Macro.Abort all macros()
end
end
if Color.At coordinate is (RGB)("207", "109", "218", "363", "443")
// Fight Button
begin
Macro.Pause("200")
Keyboard.Hold keys("y")
Macro.Pause("150")
Keyboard.Release keys("y")
Macro.Pause("200")
Keyboard.Hold keys("{<right>}")
Macro.Pause("150")
Keyboard.Release keys("{<right>}")
Macro.Pause("200")
Keyboard.Hold keys("{<down>}")
Macro.Pause("150")
Keyboard.Release keys("{<down>}")
Macro.Pause("500")
Keyboard.Hold keys("z")
Macro.Pause("250")
Keyboard.Release keys("z")
while Color.At coordinate is (RGB)("224", "232", "232", "880", "520")
// White
begin
if Color.At coordinate is (RGB)("218", "123", "109", "446", "451")
// Run Button
begin
Keyboard.Hold keys("{<right>}")
Macro.Pause("150")
Keyboard.Release keys("{<right>}")
Macro.Pause("200")
Keyboard.Hold keys("{<down>}")
Macro.Pause("150")
Keyboard.Release keys("{<down>}")
Macro.Pause("500")
Keyboard.Hold keys("z")
Macro.Pause("250")
Keyboard.Release keys("z")
end
end
Macro.Pause("250")
while Color.At coordinate is not (RGB)("248", "160", "176", "651", "179")
begin
Keyboard.Hold keys("{<up>}")
Macro.Pause("250")
Keyboard.Release keys("{<up>}")
end
Macro.Pause("500")
Keyboard.Hold keys("z")
Macro.Pause("500")
Keyboard.Release keys("z")
end
if Color.At coordinate is (RGB)("114", "155", "223", "930", "450")
// Pokecente [OK]
begin
while Variable.Is less than (Math)("counter", "6")
begin
if Color.At coordinate is (RGB)("114", "155", "223", "930", "450")
begin
Keyboard.Hold keys("z")
Macro.Pause("250")
Keyboard.Release keys("z")
Variable.Add (Math)("counter", "1")
end
end
Variable.Set("counter", "0")
while Color.At coordinate is not (RGB)("200", "216", "232", "803", "556")
begin
Keyboard.Hold keys("{<down>}")
Macro.Pause("250")
Keyboard.Release keys("{<down>}")
end
end
if Color.At coordinate is (RGB)("218", "123", "109", "446", "451")
// red color
begin
Keyboard.Hold keys("z")
Macro.Pause("250")
Keyboard.Release keys("z")
Macro.Pause("500")
Keyboard.Hold keys("z")
Macro.Pause("250")
Keyboard.Release keys("z")
end
if Color.At coordinate is not (RGB)("218", "123", "109", "446", "451")
and
Color.At coordinate is not (RGB)("224", "232", "232", "880", "520")
// white color
begin
Keyboard.Hold keys("{<f3>}")
Macro.Pause("50")
Keyboard.Release keys("{<f3>}")
end
end
end
// TO START PRESS "CTRL+A"
// TO STOP PRESS "CTRL+S"
// Enjoy and have fun