Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sun Jul 22, 2018 4:49 am

All times are UTC




Post new topic Reply to topic  [ 7 posts ] 
Author Message
 Post subject: PokeMMO fishing shiny catcher
Thanked: 5 time(s)  Unread post Posted: Thu Apr 03, 2014 3:20 pm 
Contributor
Contributor
User avatar



Joined: Fri Apr 19, 2013 7:22 am
Posts: 78
Been thanked: 25 time(s)
Has thanked: 2 time(s)
Contribution Points: 299
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.

_________________
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Tue Apr 15, 2014 1:40 pm 
New User
New User



Joined: Tue Apr 15, 2014 1:32 pm
Posts: 16
Been thanked: 2 time(s)
Has thanked: 1 time(s)
Contribution Points: 12
Thanks.


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Tue Feb 10, 2015 6:59 pm 
Contributor
Contributor
User avatar



Joined: Mon Feb 09, 2015 1:11 pm
Posts: 74
Been thanked: 6 time(s)
Has thanked: 18 time(s)
Contribution Points: 84
I-m a huge pokemon fan, and a bot for fishing shynies is really good, i`ll make a try :)

_________________
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Fri Sep 11, 2015 7:29 pm 
New User
New User



Joined: Fri Sep 11, 2015 7:20 pm
Posts: 1
Been thanked: 0 time(s)
Has thanked: 1 time(s)
Contribution Points: 10
Thanks. :D


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Wed Dec 02, 2015 7:46 am 
Gold Contributor
Gold Contributor



Joined: Sun Mar 25, 2012 11:45 pm
Posts: 279
Been thanked: 12 time(s)
Has thanked: 49 time(s)
Contribution Points: 48
anyone knows if it still works ?


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Wed Dec 02, 2015 4:45 pm 
Silver Contributor
Silver Contributor



Joined: Thu Nov 05, 2015 4:05 am
Posts: 147
Been thanked: 11 time(s)
Has thanked: 2 time(s)
Contribution Points: 65
ty


Top
 Profile  
Reply with quote  
 Post subject: Re: PokeMMO fishing shiny catcher
Thanked: 0 time(s)  Unread post Posted: Sun Apr 24, 2016 3:27 pm 
New User
New User
User avatar



Joined: Sun Sep 11, 2011 3:53 am
Posts: 9
Been thanked: 0 time(s)
Has thanked: 2 time(s)
Contribution Points: 31
wow.. that was nice..

i would try it guys


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 7 posts ] 

All times are UTC


You cannot post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group