script for 1440 x 900
with healing but it might gets stuck at 0pp
what it does:
- heals if your not in a fight and your first poke is dead
- if your in a fight and your first poke dies, it selects the second pokemon
- click on your screen once in a while so you wont be kicked for afk
the only problem is 0pp if anyone could think off something to fix it tell me:)
edit: used this for 4 houres now, still working:)
begin
if Color.At coordinate is not (RGB)("224", "232", "232", "989", "500")
begin
Keyboard.Hold keys("{<down>}")
Macro.Pause("1000")
Keyboard.Release keys("{<down>}")
Keyboard.Hold keys("{<up>}")
Macro.Pause("750")
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", "1408", "361")
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", "989", "500")
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
end