Results 1 to 7 of 7
  1. #1
    Clint
    Clint is offline
    Guest
    Join Date
    2012 May
    Posts
    1
    Thanks Thanks Given 
    2
    Thanks Thanks Received 
    2
    Thanked in
    1 Post
    Rep Power
    0

    Rift Fishing Assistant, 90 percent complete

    Below is the Blue Eye Macro code for my Rift fishing assistant. So far it will catch the fish, but the looping capability is lacking. So if I initiate the macro, it will cast and reel as many times as needed to catch a single fish, but then the macro must be disabled and re-enabled. Feel free to use this (you'll have to modify with your own RGB values), and if you want you can tell me where I went wrong with the looping action

    Note: This code was inspired by leandrol9 from this board, pieces of the code are taken almost directly from there. Thanks leandrol9!



    Code:
     begin
    //I thought the variable always being less than 2 would keep it looping, but alas it doesn't
         Variable.Set("count", "1")
         while  Variable.Is less than (Math)("count", "2")
              begin
                   Function.Execute("CastIt")
                   when  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "879")
                        begin
                             Function.Execute("JerkIt")
                        end
                   if  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "879")
                        begin
                             when  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "859")
                                  begin
                                       Function.Execute("JerkIt")
                                  end
                        end
                   if  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "879")
                        begin
                             if  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "859")
                                  begin
                                       when  Color.At coordinate is within (RGB range)("213", "213", "2", "4", "41", "839")
                                            begin
                                                 Function.Execute("JerkIt")
                                            end
                                  end
                        end
              end
     end
    
    function("JerkIt")
         begin
              Keyboard.Press key("1")
              Macro.Pause("50")
              Keyboard.Release keys("1")
              Macro.Pause("500")
         end
    function
    
    function("CastIt")
         begin
              Mouse.Move to coordinate("974", "451")
              Macro.Wait for current global loop execution time to exceed("725")
              Function.Execute("JerkIt")
              Macro.Pause("450")
              Mouse.Hold button("left")
              Mouse.Move to coordinate("974", "451")
              Mouse.Release button("left")
              Macro.Pause("50")
         end
    function


    ---------- Post added at 11:01 PM ---------- Previous post was at 09:18 PM ----------

    Got it. It ain't pretty but it's been working for a while now with no real flaws.

    Code:
    begin
         Variable.Set("count", "1")
         while  Variable.Is less than (Math)("count", "4")
              begin
                   Function.Execute with timeout("Fishing", "25000")
              end
     end
    
    function("Fishing")
         begin
              Function.Execute("CastIt")
              when  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "879")
                   begin
                        Function.Execute("JerkIt")
                   end
              if  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "879")
                   begin
                        when  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "859")
                             begin
                                  Function.Execute("JerkIt")
                             end
                   end
              if  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "879")
                   begin
                        if  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "859")
                             begin
                                  when  Color.At coordinate is within (RGB range)("213", "213", "2", "10", "41", "839")
                                       begin
                                            Function.Execute("JerkIt")
                                       end
                             end
                   end
         end
    function
    
    function("JerkIt")
         begin
              Macro.Pause("50")
              Keyboard.Press key("1")
              Macro.Pause("50")
              Keyboard.Release keys("1")
              Macro.Pause("300")
         end
    function
    
    function("CastIt")
         begin
              Macro.Wait for current global loop execution time to exceed("52")
              Mouse.Move to coordinate("974", "451")
              Macro.Wait for current global loop execution time to exceed("468")
              Function.Execute("JerkIt")
              Macro.Pause("450")
              Mouse.Hold button("left")
              Macro.Wait for current global loop execution time to exceed("556")
              Mouse.Move to coordinate("974", "451")
              Mouse.Release button("left")
              Macro.Pause("7000")
         end
    function

  2. The Following 2 Users Say Thank You to Clint For This Useful Post:


  3. #2
    Grooguz
    Grooguz is offline
    BanHammer Holder
    Grooguz's Avatar
    Join Date
    2010 May
    Posts
    678
    Thanks Thanks Given 
    152
    Thanks Thanks Received 
    537
    Thanked in
    167 Posts
    Rep Power
    14
    Reputation for good stuff

    Pretty nice, + rep for such stuff

  4. #3
    darso
    darso is offline
    Guest
    Join Date
    2012 May
    Posts
    1
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    Thanks! I haven't got it to work yet, but I'm trying. I've got one question:

    What is the color it is looking for? Is it the "Reel it in" in the chat box? Something else? Thanks.

  5. #4
    Jawa
    Jawa is offline
    Guest
    Join Date
    2012 May
    Posts
    1
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    It's the color of the reel in.. in my case yellow and close to the values of the topic starter. If you have trouble with color or the x/y stuff, you can adjust the font to 20, make a ss and find the color with for example eyedropper, and make a recording (is within the program) to see your x/y numbers.

  6. #5
    blurbb
    blurbb is offline
    Guest
    Join Date
    2012 Jun
    Posts
    1
    Thanks Thanks Given 
    1
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    Is there any chance of having a tutorial to use to script.
    I searched, but I do not find.

    Thank you: p
    Last edited by blurbb; 2012-06-10 at 02:39 PM.

  7. #6
    Failstorm
    Failstorm is offline
    Guest
    Join Date
    2012 Jun
    Posts
    1
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    I attempted to use the investigator to find the x/y location and color of the text yet it still will not trigger off 'reel in' for me. Anyone having the same issue or found a solution?

  8. #7
    wildkatt87
    wildkatt87 is offline
    Guest
    Join Date
    2012 Jul
    Posts
    1
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0
    Hello i am very thankful for this script! thank you thank you!

    However im not entirly sure how to use it. It says the macro lines exceed by like 2x. the max is 25 lines.

    A little bit of guidance would be awesome

Similar Threads

  1. Rift Combat Assistant
    By Grooguz in forum Rift: Planes of Telara
    Replies: 0
    Last Post: 2011-04-29, 08:32 AM
  2. [Guide] Rift Complete Mounts Instruction
    By Grooguz in forum Rift Guides, Tutorials
    Replies: 0
    Last Post: 2011-03-30, 03:49 AM
  3. [Guide] Rift Complete Titles List
    By Grooguz in forum Rift Guides, Tutorials
    Replies: 0
    Last Post: 2011-03-26, 01:52 PM
  4. [Guide] Rift Complete Deepstrike Mines Dungeon
    By Grooguz in forum Rift Guides, Tutorials
    Replies: 0
    Last Post: 2011-03-26, 01:28 AM
  5. [Guide] Rift Complete Realm of the Fae Dungeon
    By Grooguz in forum Rift Guides, Tutorials
    Replies: 0
    Last Post: 2011-03-25, 03:58 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •