Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sun Dec 09, 2018 9:54 pm

All times are UTC




Post a reply
Username:
Subject:
Message body:
Enter your message here, it may contain no more than 60000 characters. 

Smilies
:D :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :| :mrgreen: :geek: :ugeek:
Font size:
Font colour
Options:
BBCode is ON
[img] is OFF
[flash] is OFF
[url] is ON
Smilies are ON
Disable BBCode
Disable smilies
Do not automatically parse URLs
Please click and drag the 2 correct statements to the right hand side.
Please click and drag the 2 correct statements to the right hand side.
Please select the options below to the correct list to avoid automated registrations.
Statements
2 correct statements
Dogs have 4 legs
Fish can swim
Elephants can fly
Chickens can talk
   

Topic review - PokeMMO fishing shiny catcher
Author Message
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
wow.. that was nice..

i would try it guys
Post Posted: Sun Apr 24, 2016 3:27 pm
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
ty
Post Posted: Wed Dec 02, 2015 4:45 pm
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
anyone knows if it still works ?
Post Posted: Wed Dec 02, 2015 7:46 am
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
Thanks. :D
Post Posted: Fri Sep 11, 2015 7:29 pm
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
I-m a huge pokemon fan, and a bot for fishing shynies is really good, i`ll make a try :)
Post Posted: Tue Feb 10, 2015 6:59 pm
  Post subject:  Re: PokeMMO fishing shiny catcher  Reply with quote
Thanks.
Post Posted: Tue Apr 15, 2014 1:40 pm
  Post subject:  PokeMMO fishing shiny catcher  Reply with quote
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.
Post Posted: Thu Apr 03, 2014 3:20 pm

All times are UTC


Jump to:  


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