Blue Eye Macro
http://blueeye-macro.com/

PokeMMO fishing shiny catcher
http://blueeye-macro.com/viewtopic.php?f=555&t=17512
Page 1 of 1

Author:  provari [ Thu Apr 03, 2014 3:20 pm ]
Post subject:  PokeMMO fishing shiny catcher

Quote:
begin
Keyboard.Hold keys("{<f1>}")
Mouse.Set coordinate("640", "508")
Mouse.Hold button("left")
Mouse.Release button("left")
// pond
if Color.At coordinate is (RGB)("224", "64", "72", "771", "179")
// gyaradosDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("80", "184", "248", "806", "225")
// poliwhirlDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("152", "216", "224", "795", "268")
// psyduckDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("192", "136", "160", "794", "265")
// slowpokeDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("248", "216", "0", "793", "224")
// Karp
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
// ocean
if Color.At coordinate is (RGB)("216", "192", "0", "851", "232")
// krabbyDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("136", "152", "72", "860", "174")
// Kingler
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("248", "160", "0", "802", "245")
// ShelderDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("40", "192", "176", "785", "236")
// HorseaDONE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("104", "120", "208", "783", "194")
// seadradoneE2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
if Color.At coordinate is (RGB)("128", "136", "112", "798", "221")
// StaryuDone2
begin
Macro.Pause("8000")
Macro.Wait for current global loop execution time to exceed("521")
Mouse.Click at coordinate("634", "462", "left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("2440")
Macro.Pause("2000")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("2528")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("3680")
Mouse.Set coordinate("569", "445")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("3784")
Mouse.Release button("left")
Macro.Pause("2000")
Macro.Wait for current global loop execution time to exceed("5144")
Mouse.Set coordinate("491", "499")
Mouse.Hold button("left")
Macro.Wait for current global loop execution time to exceed("5264")
Mouse.Release button("left")
Macro.Pause("5000")
end
end


Note: you might have to edit coordinates for this code, this depends on your screen resolution, mine is 1290x800.
This code is used on full screen mode.
the roms in use are fire red rom, and heart gold.
I've succesfully gotten a shiny staryu. Too bad I was so greedy I tried it for 2 more days, and got banned. and now my BEM has expired and now sharing my code to earn some points.

to start off.

Code:
 begin
     Keyboard.Hold keys("{<f1>}")
     


what this code does is spam the F1 key, use the F1 key slot for your fishing rod. So it continuously fishes in the water.


Code:
Mouse.Set coordinate("640", "508")
     Mouse.Hold button("left")
     Mouse.Release button("left")


for this code, the mouse pointer is set to coordinates X Y (this are the coordinates for the "run" button, you might have to change this depending on your resolution so check. This spam clicks the run button.

Code:
 if  Color.At coordinate is (RGB)("224", "64", "72", "771", "179")
          // gyaradosDONE2     
          end

What this code does, if the bot detects this color in that specific coordinate, it will stop the previous codes go do another code. I have researched and had to screenshot every shiny that can be caught by fishing in a pond in-game. took me awhile but finally collected them all. as you can see i'm using color.at coordinate command because I haven't figured out the color area detection thingy yet. if the coordinates or the (RGB) numbers don't work for you, you might have to ask some players to let them see their shiny.

Code:
begin
               Macro.Pause("8000")
               Macro.Wait for current global loop execution time to exceed("521")
               Mouse.Click at coordinate("634", "462", "left")
               Macro.Pause("2000")
               Macro.Wait for current global loop execution time to exceed("2440")
               Macro.Pause("2000")
               Mouse.Set coordinate("569", "445")
               Mouse.Hold button("left")
               Macro.Wait for current global loop execution time to exceed("2528")
               Mouse.Release button("left")
               Macro.Pause("2000")
               Macro.Wait for current global loop execution time to exceed("3680")
               Mouse.Set coordinate("569", "445")
               Mouse.Hold button("left")
               Macro.Wait for current global loop execution time to exceed("3784")
               Mouse.Release button("left")
               Macro.Pause("2000")
               Macro.Wait for current global loop execution time to exceed("5144")
               Mouse.Set coordinate("491", "499")
               Mouse.Hold button("left")
               Macro.Wait for current global loop execution time to exceed("5264")
               Mouse.Release button("left")
               Macro.Pause("5000")
          end


now these are just a series of clicking codes, this will click Bag>pokeball slot>first pokeball in bag. As you can see, I have included some macro.pause command, I did this so it will delay the clicking and won't go fast. It will Repeat this code until it doesn't see the color of the shiny pokemon.

I will try to help you guys as much as I can.

Author:  EricFung [ Tue Apr 15, 2014 1:40 pm ]
Post subject:  Re: PokeMMO fishing shiny catcher

Thanks.

Author:  DeadSmack [ Tue Feb 10, 2015 6:59 pm ]
Post subject:  Re: PokeMMO fishing shiny catcher

I-m a huge pokemon fan, and a bot for fishing shynies is really good, i`ll make a try :)

Author:  Zettta [ Fri Sep 11, 2015 7:29 pm ]
Post subject:  Re: PokeMMO fishing shiny catcher

Thanks. :D

Author:  MartinXI [ Wed Dec 02, 2015 7:46 am ]
Post subject:  Re: PokeMMO fishing shiny catcher

anyone knows if it still works ?

Author:  Dragonraider [ Wed Dec 02, 2015 4:45 pm ]
Post subject:  Re: PokeMMO fishing shiny catcher

ty

Author:  TSUKUYOMI [ Sun Apr 24, 2016 3:27 pm ]
Post subject:  Re: PokeMMO fishing shiny catcher

wow.. that was nice..

i would try it guys

Page 1 of 1 All times are UTC
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/