Made a macro for the place in the picture, its for 1600x900, and it has auto healing. It doesn't protect against sleep or paralyze, but it stops if you learn a skill, and if your running away fails it will use the skill right of the first one. No idea what happens if your poke dies, probably just locks up, but you REALLY shouldn't use this if you aren't close to the computer anyways. Just change the RGB's for your reso. The 3 shown in the pic on page 8, (RGB)("38", "32", "38", "442", "495") (This is the pixel in the middle of zero's shadow for when your PP is out in the attack choice menu), and the mouse click at the bottom (that is for clicking run).
begin
if Color.At coordinate is not (RGB)("224", "232", "232", "1179", "490")
begin
Keyboard.Hold keys("{<down>}")
Macro.Pause("350")
Keyboard.Release keys("{<down>}")
Keyboard.Hold keys("{<up>}")
Macro.Pause("350")
Keyboard.Release keys("{<up>}")
end
if Color.At coordinate is (RGB)("224", "232", "232", "989", "500")
and
Color.At coordinate is not (RGB)("171", "160", "203", "1179", "490")
begin
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("1000")
Keyboard.Press key("Z")
Macro.Pause("500")
Keyboard.Release keys("Z")
end
if Color.At coordinate is (RGB)("171", "160", "203", "1404", "351")
and
Color.At coordinate is not (RGB)("224", "232", "232", "1179", "490")
begin
Keyboard.Hold keys("{<down>}")
Macro.Pause("500")
Keyboard.Hold keys("{<down>}")
Macro.Pause("5000")
Keyboard.Hold keys("{<down>}")
Macro.Pause("750")
Keyboard.Release keys("{<down>}")
Macro.Pause("500")
Keyboard.Hold keys("{<left>}")
Macro.Pause("1500")
Keyboard.Release keys("{<left>}")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Hold keys("{<right>}")
Macro.Pause("1250")
Keyboard.Release keys("{<right>}")
end
if Color.At coordinate is (RGB)("171", "160", "203", "1404", "351")
and
Color.At coordinate is (RGB)("224", "232", "232", "1045", "507")
and
Color.At coordinate is (RGB)("192", "92", "77", "917", "523")
begin
Mouse.Click at coordinate("685", "463", "Left")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
Keyboard.Press keys("Z")
Macro.Pause("500")
end
if Color.At coordinate is (RGB)("224", "232", "232", "1045", "507")
and
Color.At coordinate is (RGB)("179", "76", "191", "716", "529")
and
Color.At coordinate is (RGB)("255", "255", "255", "388", "476")
and
Color.At coordinate is not (RGB)("207", "109", "218", "388", "476")
begin
Mouse.Click at coordinate("688", "466", "Left")
end
if Color.At coordinate is (RGB)("38", "32", "38", "442", "495")
begin
Keyboard.Press key("x")
Macro.Pause("1000")
Mouse.Click at coordinate("766", "541", "Left")
Macro.Pause("500")
Keyboard.Press key("Z")
Keyboard.Hold keys("{<down>}")
Macro.Pause("1000")
Keyboard.Release keys("{<down>}")
Macro.Pause("100")
Keyboard.hold keys("{<left>}")
Macro.Pause("300")
Keyboard.Release keys("{<left>}")
Macro.Pause("2000")
Keyboard.Press key("z")
Macro.Pause("2000")
Keyboard.Press key("z")
Macro.Pause("1000")
Keyboard.Hold keys("{<right>}")
Macro.Pause("300")
Keyboard.Release keys("{<right>}")
end
end