Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Jun 04, 2020 4:41 am

All times are UTC




Post new topic Reply to topic  [ 2 posts ] 
Author Message
 Post subject: How to configure autofly if there's is no monster around
Thanked: 0 time(s)  Unread post Posted: Tue Feb 11, 2020 3:09 am 
New User
New User



Joined: Mon Feb 10, 2020 7:04 am
Posts: 8
Been thanked: 1 time(s)
Has thanked: 8 time(s)
Contribution Points: 26
Hi, can someone help me on the macro using flywing?
Here's the config i'm using, it is attacking and looting but not using flywing
Thank you, very much appreciated

Code:
 Begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Attack")
     Function.Execute("Loot4")
     Function.Execute("flywing")
 end

function("Attack")
     if  Color.Can be located on screen (RGB)("255", "0", "0", "0")
          begin
               Mouse.Click at color closest to coordinate (RGB)("255", "0", "0", "0", "640", "375", "left")
               Mouse.Move to coordinate("997", "43")
               if  Color.Pixel pattern can be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "4")
                    begin loop()
                         Mouse.Move to coordinate("997", "43")
                         if  Color.Pixel pattern can not be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "4")
                              begin
                                   Humanly.Pause("400", "500")
                                   Function.Execute("Loot4")
                                   Macro.Break from loop("yes")
                              end
                    end
          end
function

function("Loot4")
     begin
          Color.Limit area of interest to coordinates("463", "249", "376", "287")
          if  Color.Can be located on screen (RGB)("0", "0", "255", "0")
               begin loop()
                    Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
                    Humanly.Pause("400", "500")
                    if  Color.Can not be located on screen (RGB)("0", "0", "255", "0")
                         begin
                              Humanly.Pause("400", "500")
                              if  Color.Can not be located on screen (RGB)("0", "0", "255", "0")
                                   begin
                                        Color.Unlimit area of interest()
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          Color.Unlimit area of interest()
     end
function

function("flywing")
     begin
          if  Color.Can not be located on screen (RGB)("255", "0", "0", "0")
               begin
                    Keyboard.Press key("{<f3>}")
                    Humanly.Pause("500", "1000")
                    Macro.Pause("800")
               end
     end
function
 


Top
 Profile  
Reply with quote  
 Post subject: Re: How to configure autofly if there's is no monster around
Thanked: 0 time(s)  Unread post Posted: Tue Feb 18, 2020 9:48 am 
New User
New User



Joined: Thu Dec 26, 2019 9:34 am
Posts: 11
Been thanked: 0 time(s)
Has thanked: 2 time(s)
Contribution Points: 19
jha5on wrote:
Hi, can someone help me on the macro using flywing?
Here's the config i'm using, it is attacking and looting but not using flywing
Thank you, very much appreciated

Code:
 Begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Attack")
     Function.Execute("Loot4")
     Function.Execute("flywing")
 end

function("Attack")
     if  Color.Can be located on screen (RGB)("255", "0", "0", "0")
          begin
               Mouse.Click at color closest to coordinate (RGB)("255", "0", "0", "0", "640", "375", "left")
               Mouse.Move to coordinate("997", "43")
               if  Color.Pixel pattern can be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "4")
                    begin loop()
                         Mouse.Move to coordinate("997", "43")
                         if  Color.Pixel pattern can not be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "4")
                              begin
                                   Humanly.Pause("400", "500")
                                   Function.Execute("Loot4")
                                   Macro.Break from loop("yes")
                              end
                    end
          end
function

function("Loot4")
     begin
          Color.Limit area of interest to coordinates("463", "249", "376", "287")
          if  Color.Can be located on screen (RGB)("0", "0", "255", "0")
               begin loop()
                    Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
                    Humanly.Pause("400", "500")
                    if  Color.Can not be located on screen (RGB)("0", "0", "255", "0")
                         begin
                              Humanly.Pause("400", "500")
                              if  Color.Can not be located on screen (RGB)("0", "0", "255", "0")
                                   begin
                                        Color.Unlimit area of interest()
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          Color.Unlimit area of interest()
     end
function

function("flywing")
     begin
          if  Color.Can not be located on screen (RGB)("255", "0", "0", "0")
               begin
                    Keyboard.Press key("{<f3>}")
                    Humanly.Pause("500", "1000")
                    Macro.Pause("800")
               end
     end
function
 


function("Loot4")
begin
Color.Limit area of interest to coordinates("463", "249", "376", "287")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin loop()
Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
Humanly.Pause("400", "500")
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Function.Execute("flywing")
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Macro.Break from loop("yes")
end
end
end
Color.Unlimit area of interest()
end
function


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 2 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