Ragnarok Script for Auto Farming

kimlethal · **Thanked:** 0 time(s) **Posted:** Mon Jul 12, 2021 8:13 am

Wowww thanks bro

matabiru · **Thanked:** 0 time(s) **Posted:** Tue Aug 03, 2021 11:26 am

Hye Bro MacroBlitz,

I have tried your code below.

Code:

function("Attack")
     begin
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          // Click Monster if Located
          if  Color.Can be located on screen (RGB)("0", "255", "0", "0")
               begin
                    Mouse.Click at color closest to coordinate (RGB)("0", "255", "0", "0", "640", "375", "left")
                    // 997 43
                    Mouse.Move to coordinate("270", "40")
                    // Teleport if clicking on the monster a number of times but still the name isn't shown
                    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
                              Variable.Add (Math)("IsNotValidMonster", "1")
                              Macro.Pause("500")
                              if  Variable.Is greater than (Math)("IsNotValidMonster", "{HowManyAttackAttempt}")
                                   begin
                                        Variable.Set("IsNotValidMonster", "1")
                                        Function.Execute("FlyWithoutCondition")
                                   end
                         end
                    // If the monster isn't dead within the set number of seconds it will teleport
                    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()
                              Macro.Get parent loop iteration("count")
                              Variable.Set("x", "{count}")
                              if  Variable.Is equal to("x","30")
                                   begin
                                        Function.Execute("FlyWithoutCondition")
                                   end
                              Macro.Pause("300")
                              Function.Execute("IfNeedToPotion")
                              // Teleport if Monster to avoid is found
                              Function.Execute("EmergencyFlyWing")
                              // Mouse.Move to coordinate("270", "40")
                              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
                                        if  Variable.Is greater than (Math)("IsNotValidMonster", "{HowManyAttackAttempt}")
                                             begin
                                                  Variable.Set("IsNotValidMonster", "1")
                                                  Function.Execute("FlyWithoutCondition")
                                             end
                                        Variable.Set("IsNotValidMonster", "1")
                                        Macro.Pause("300")
                                        Function.Execute("Loot4")
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
     end
function

function("Loot4")
     begin
          // 463, 249, 376, 287
          Color.Limit area of interest to coordinates("263", "149", "676", "487")
          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
                              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
                    if  Color.Pixel pattern can be located on screen("255,239,148,0,-1,255,239,148,0,2,255,239,148", "4")
                         begin
                              Macro.Read stopwatch("checkLootTime", "waitLootTime")
                              if  Variable.Is greater than (Math)("waitLootTime", "{MinutesToLoot}")
                                   begin
                                        // Function.Execute("FlyWithoutCondition")
                                        // Window.Display message box("Loot timer up", "yes")
                                        Macro.Restart stopwatch("checkLootTime")
                                   end
                         end
                    if  Color.Pixel pattern can not be located on screen("255,239,148,0,-1,255,239,148,0,2,255,239,148", "4")
                         begin
                              Macro.Restart stopwatch("checkLootTime")
                         end
               end
          Color.Unlimit area of interest()
     end
function

My computer setting was exactly as yours.
Just that, monster .spr that i used was green colour and i changed the monster.act too from Nyl.
So i found some problems using it.

1. When ever the char. attacking monster.spr and item.spr also dropped, the char goes to attack other monster first.
Either it will pick up the loot later or it will turn back to the loots after getting triggered by closest monster.spr to attack.
2. I found that sometime when its about to attack monster.spr, about to hit it but suddenly teleported away.

Any idea?

bielzerasss · **Thanked:** 0 time(s) **Posted:** Sun Aug 22, 2021 4:33 am

eu usei muito esse script mesclado ele com ahk

Guest · **Thanked:** 0 time(s) **Posted:** Tue Nov 02, 2021 3:19 pm

wow... awesome... thanks for tutorial

cliff17 · **Thanked:** 0 time(s) **Posted:** Thu Nov 11, 2021 11:02 pm

hello

-If you want to use the teleport skill, you need to add a mouse click or keyboard enter after using the skill.

how i can add

macroblitz wrote:

So it's quarantine period and I'm bored, so I would like to share my script to you guys. But first, I would like to give credit to one guided me on this, please see URL below:
https://www.blueeye-macro.com/viewtopic.php?f=437&t=30450

Kindly follow his/her tutorial so that it would be easier to know how to make this script work.
Kindly see PROS and CONS if this will work for you.

PROS:
1. It works and I already got 5+ cards in a month
2. It will teleport when monster is not killed within 9-10 seconds
3. It will teleport when you apply an avoid sprite to a monster (Boss or high level mobs)
4. It will use awakening potion every 30 minutes
5. It will use potions, but only when hp bar is red.
6. With a little edit, it will be usable with attacking monster using skills
7. It will teleport when clicking on a monster failed to show its name 5 times.

CONS:
1. Random Walking is Disabled, you should have teleport skill or unlimited fly wing
2. It will not avoid going to a portal to another map
3. It will attempt kill steal and loot steal
4. Potion use is not fast and reliable.
5. This script does not use keyboard press, it will double click on the fly wing (since keyboard press doesn't work in my case)
6. It will not auto storage the loots, so being overweight is bad unless you have Sky Deleter Card, your character can go up to 90% weight
7. It will click on the GM global chat because the color yellow is the same with the monster to attack. If you want you can change the monster to attack color.

Note:
-When I use this macro, I maxed zoom-in so it will only see nearby monsters, this will be helpful on a map with lots of walls and obstacles.
-Slot 1 is for Potion, Slot 2 is for Fly Wing, Slot 3 is for awakening, Slot 4 is for Potion2, Slot 5 is for Potion3
-If you want to use the teleport skill, you need to add a mouse click or keyboard enter after using the skill.
-I have used it with Knight, Rogue, and Blacksmith and it works fine.

So to make this work: You need to change the spr (Sprite) of all monster you want to attack with the yellow color attached sprite, change the monster you want to avoid to the orange color attached sprite, and changed the item you want to pick-up to the blue color attached sprite using the GRF Editor. (Please see my attached files)

Version 0.2 - April 17, 2020

Code:

 begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     // Settings
     // Change to 0 if you have no awakes or potion
     Variable.Set("IsAwakeAvailable", "1")
     Variable.Set("IsPotionAvailable", "1")
     // Potion to use when HP is 2/3
     Variable.Set("HowManyPotionToUse", "5")
     Variable.Set("HowManyAttackAttempt", "5")
     // Coordinates
     Variable.Set("ShortCutBarY", "42")
     Variable.Set("FlyWingX", "270")
     Variable.Set("PotionX", "242")
     Variable.Set("Potion2X", "328")
     Variable.Set("Potion3X", "357")
     Variable.Set("AwakeningX", "299")
     // Start a timer
     Macro.Start stopwatch("checkTime")
     Macro.Start stopwatch("checkLootTime")
     // Declare Variables
     Variable.Set("IsNotValidMonster", "0")
     Variable.Add (Math)("IsNotValidMonster", "1")
     // Check Initialize every 31 minutes
     Variable.Set("MinutesToCheck", "1860000")
     Variable.Set("MinutesToLoot", "10000")
     // Start Up
     Function.Execute("Initialize")
     begin loop()
          Macro.Read stopwatch("checkTime", "waitTime")
          if  Variable.Is greater than (Math)("waitTime", "{MinutesToCheck}")
               begin
                    Function.Execute("Initialize")
               end
          Function.Execute("Attack")
          Function.Execute("Loot4")
          Function.Execute("Fly")
          Function.Execute("IfNeedToPotion")
          // Function.Execute("Rwalk")
     end
 end

function("Initialize")
     begin
          if  Variable.Is equal to("IsAwakeAvailable","1")
               begin
                    Function.Execute("Awakening")
               end
          Macro.Restart stopwatch("checkTime")
          Macro.Pause("500")
     end
function

function("Attack")
     begin
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          // Click Monster if Located
          if  Color.Can be located on screen (RGB)("255", "255", "0", "0")
               begin
                    Mouse.Click at color closest to coordinate (RGB)("255", "255", "0", "0", "640", "375", "left")
                    // 997 43
                    Mouse.Move to coordinate("270", "40")
                    // Teleport if clicking on the monster a number of times but still the name isn't shown
                    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
                              Variable.Add (Math)("IsNotValidMonster", "1")
                              Macro.Pause("500")
                              if  Variable.Is greater than (Math)("IsNotValidMonster", "{HowManyAttackAttempt}")
                                   begin
                                        Variable.Set("IsNotValidMonster", "1")
                                        Function.Execute("FlyWithoutCondition")
                                   end
                         end
                    // If the monster isn't dead within the set number of seconds it will teleport
                    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()
                              Macro.Get parent loop iteration("count")
                              Variable.Set("x", "{count}")
                              if  Variable.Is equal to("x","30")
                                   begin
                                        Function.Execute("FlyWithoutCondition")
                                   end
                              Macro.Pause("300")
                              Function.Execute("IfNeedToPotion")
                              // Teleport if Monster to avoid is found
                              Function.Execute("EmergencyFlyWing")
                              // Mouse.Move to coordinate("270", "40")
                              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
                                        if  Variable.Is greater than (Math)("IsNotValidMonster", "{HowManyAttackAttempt}")
                                             begin
                                                  Variable.Set("IsNotValidMonster", "1")
                                                  Function.Execute("FlyWithoutCondition")
                                             end
                                        Variable.Set("IsNotValidMonster", "1")
                                        Macro.Pause("300")
                                        Function.Execute("Loot4")
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
     end
function

function("Loot4")
     begin
          // 463, 249, 376, 287
          Color.Limit area of interest to coordinates("263", "149", "676", "487")
          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
                              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
                    if  Color.Pixel pattern can be located on screen("255,239,148,0,-1,255,239,148,0,2,255,239,148", "4")
                         begin
                              Macro.Read stopwatch("checkLootTime", "waitLootTime")
                              if  Variable.Is greater than (Math)("waitLootTime", "{MinutesToLoot}")
                                   begin
                                        // Function.Execute("FlyWithoutCondition")
                                        // Window.Display message box("Loot timer up", "yes")
                                        Macro.Restart stopwatch("checkLootTime")
                                   end
                         end
                    if  Color.Pixel pattern can not be located on screen("255,239,148,0,-1,255,239,148,0,2,255,239,148", "4")
                         begin
                              Macro.Restart stopwatch("checkLootTime")
                         end
               end
          Color.Unlimit area of interest()
     end
function

function("Rwalk")
     begin
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          if  Color.Can not be located on screen (RGB)("255", "255", "0", "0")
               begin
                    // set variables from random X coordinates on your screen example 100 to 1100
                    Variable.Set random number("X", "100", "1100")
                    // set variables from random Y coordinates on your screen example 100 to 620
                    Variable.Set random number("Y", "100", "620")
                    Mouse.Click at coordinate("{X}", "{Y}", "left")
                    Humanly.Pause("750", "1000")
               end
     end
function

function("Fly")
     begin
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          if  Color.Can not be located on screen (RGB)("255", "255", "0", "0")
               begin
                    if  Color.Can not be located on screen (RGB)("255", "255", "0", "0")
                         begin
                              Function.Execute("FlyWithoutCondition")
                         end
               end
     end
function

function("EmergencyFlyWing")
     begin
          if  Color.Can be located on screen (RGB)("255", "181", "82", "0")
               begin
                    Function.Execute("FlyWithoutCondition")
               end
     end
function

function("FlyWithoutCondition")
     begin
          Mouse.Double click at coordinate("{FlyWingX}","{ShortCutBarY}","left")
          Macro.Pause("1000")
     end
function

function("Awakening")
     begin
          if  Color.Pixel pattern can not be located on screen("203,254,51,-2,-2,203,254,51,1,1,203,254,51,-1,2,203,254,51,1,-1,203,254,51,1,-1,203,254,51,1,-1,203,254,51,0,3,203,254,51,2,0,203,254,51,4,1,203,254,51,-4,0,203,254,51,3,0,203,254,51,-2,0,203,254,51,1,0,203,254,51,-1,-2,203,254,51,1,-1,203,254,51,1,-1,203,254,51,1,-1,203,254,51,0,-1,203,254,51,-1,-1,203,254,51,-1,0,203,254,51,-1,0,203,254,51,-1,1,203,254,51", "10")
               Begin
                    Mouse.Double click at coordinate("{AwakeningX}", "{ShortCutBarY}", "left")
                    Macro.Pause("300")
               End
     end
function

function("IfNeedToPotion")
     Begin
          // If HP Bar become 2/3
          if  Variable.Is equal to("IsPotionAvailable","1")
               begin
                    // if  Color.Pixel pattern can not be located on screen("16,239,33,-6,0,16,239,33,3,0,16,239,33,6,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33,3,0,16,239,33", "0")
                    if  Color.Can be located on screen (RGB)("239", "16", "16", "0")
                         begin
                              if  Color.Can not be located on screen (RGB)("16", "239", "33", "0")
                                   begin
                                        Function.Execute("Potion")
                                        if  Color.Can be located on screen (RGB)("239", "16", "16", "0")
                                             begin
                                                  if  Color.Can not be located on screen (RGB)("16", "239", "33", "0")
                                                       begin
                                                            Function.Execute("Potion2")
                                                            if  Color.Can be located on screen (RGB)("239", "16", "16", "0")
                                                                 begin
                                                                      if  Color.Can not be located on screen (RGB)("16", "239", "33", "0")
                                                                           begin
                                                                                Function.Execute("Potion3")
                                                                                if  Color.Can be located on screen (RGB)("239", "16", "16", "0")
                                                                                     begin
                                                                                          if  Color.Can not be located on screen (RGB)("16", "239", "33", "0")
                                                                                               begin
                                                                                                    Variable.Set("IsPotionAvailable", "0")
                                                                                               end
                                                                                     end
                                                                           end
                                                                 end
                                                       end
                                             end
                                   end
                         end
               end
     End
function

function("Potion")
     begin loop("{HowManyPotionToUse}")
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          Mouse.Double click at coordinate("{PotionX}", "{ShortCutBarY}", "left")
          Macro.Pause("300")
     end
function

function("Potion2")
     begin loop("{HowManyPotionToUse}")
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          Mouse.Double click at coordinate("{Potion2X}", "{ShortCutBarY}", "left")
          Macro.Pause("300")
     end
function

function("Potion3")
     begin loop("{HowManyPotionToUse}")
          // Teleport if Monster to avoid is found
          Function.Execute("EmergencyFlyWing")
          Mouse.Double click at coordinate("{Potion3X}", "{ShortCutBarY}", "left")
          Macro.Pause("300")
     end
function

Please comment if you found any problem, so we all can think of a solution. Thank you.

EnzoMnc · **Thanked:** 0 time(s) **Posted:** Thu Nov 18, 2021 9:55 pm

cliff17 wrote:

hello

-If you want to use the teleport skill, you need to add a mouse click or keyboard enter after using the skill.

how i can add

You can add a simple

Code:

Macro.Pause("100")
Keyboard.Press key("{<enter>}")

after the teleport functions F* key press (or double click actually)

bbgenio · **Thanked:** 0 time(s) **Posted:** Fri Dec 03, 2021 4:36 pm

Hi! First of all your topic is extremely helpful.

I'm just having trouble with two points.

1) How to I change the 9-10 seconds rule into 18 seconds for examples?
2) Is it possible to add another monster with a secondary color to attk ? Im not editing the sprite just using a tone of the color of the monster and it`s working great for me!

Thanks for the help and great topic!

gunsgamer7 · **Thanked:** 0 time(s) **Posted:** Thu Jan 06, 2022 3:19 am

[quote][/quote]

Hi ! i dont know what i'm doing wrong but, i follow the guide, change sprites.

here's what's happening...

when i start the macro, my character starts to move but doesnt teleport or attack monsters what could be wrong?

gunsgamer78 · **Thanked:** 0 time(s) **Posted:** Thu Jan 06, 2022 5:02 am

someone can plz improve my script ? i try to do my best.. it's working but not perfect tho

i'm using yellow(monster target) orage(avoid monster) items(blue) sprites from the post

my real big issue it was with the Teleport Key. i'm new with this whole macro thing but i'm learning slowly but learning.

so i picked up another code TP from another Macro script and its working but when kills a monster and there's another nearby not too closely it will instantly TP and it will not give time to the macro trigger the monster. so if anyone can help me improve i'll be grateful for that.

waiting for help

happy new year guys.

code:

begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Attack")
Function.Execute("Loot4")
Function.Execute("Fly")
end

function("Attack")
if Color.Can be located on screen (RGB)("255", "255", "0", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("255", "255", "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("800", "1000")
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("Fly")
begin
Window.Bring to front("Ragnarok", "Yes")
Color.Limit area of interest to coordinates("1", "1", "586", "460")
if Color.Can not be located on screen (RGB)("255", "255", "0", "0")
begin
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
Window.Send mouse click("Ragnarok", "Yes", "0", "372", "233", "right")
Humanly.Pause("800", "1500")
end
end
end
function

gunsgamer7 · **Thanked:** 0 time(s) **Posted:** Sat Jan 08, 2022 6:01 am

someone can help me please?

i dont know what i'm doing wrong but, since i started to use the blue eye macro i've tried to learn how to use it but for me its kind difficult.. but the issue is not that.

i have a Ruined Knight, so i'm using him to try farm some cat's eyes. the problem is, when i start the script, it will atempt to kill but will not finish and he will instantly teleport, i'm using the command /q1 and using flywing on F9 since i couldn't find another way to do it a teleport and set up a click button right, cuz the method from the guild its not working for me. i've try to put the flywing in slot 2 but nothing happens.

like i said the major issue here for me it is the atempt to kill a monster, sometimes i kill sometimes will not and my char goes on teleport mode until find another monster target when that happen.

the lock isn't perfect either, as son as the sprite shows up in the screen he has a delay to kill. so.... here's my script. by the way, i'm using same sprites from the guide and script as well i just tryed to do some modifications to adapt but it doesn't work out how i woul'd like

Quick note: i'm not interested in buffs or skills, i just want to kill the monster and pick up the loot, teleport and so on, that woul'd work just fine for me ty

so here's my script :

begin
Window.Set location("Ragnarok", "yes", "0", "0")
Variable.Set("HowManyAttackAttempt", "500")
Variable.Set("FlyWingX", "270")
Variable.Set("PotionX", "242")
// Start a timer
Macro.Start stopwatch("checkTime")
// Declare Variables
Variable.Set("IsNotValidMonster", "0")
Variable.Add (Math)("IsNotValidMonster", "1")
begin loop()
Function.Execute("Attack")
Function.Execute("Loot4")
Function.Execute("Fly")
// Function.Execute("Rwalk")
end
end

function("Attack")
// Teleport if Monster to avoid is found
if Color.Can be located on screen (RGB)("255", "181", "82", "0")
begin
Mouse.Double click at coordinate("270", "40", "left")
Humanly.Pause("1000", "2000")
end
// Click Monster if Located
if Color.Can be located on screen (RGB)("255", "255", "0", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("255", "255", "0", "10", "640", "375", "left")
// 997 43
Mouse.Move to coordinate("270", "40")
// Teleport if clicking on the monster a number of times but still the name isn't shown
if Color.Pixel pattern can not be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "10")
begin
Variable.Add (Math)("IsNotValidMonster", "1")
Macro.Pause("500")
if Variable.Is greater than (Math)("IsNotValidMonster", "{500}")
begin
Variable.Set("IsNotValidMonster", "1")
Function.Execute("FlyWithoutCondition")
end
end
// If the monster isn't dead within the set number of seconds it will teleport
if Color.Pixel pattern can be located on screen("255,198,198,0,-1,255,198,198,0,2,255,198,198", "10")
begin loop()
Macro.Get parent loop iteration("count")
Variable.Set("x", "{30}")
if Variable.Is equal to("x", "30")
begin
Function.Execute("FlyWithoutCondition")
end
Macro.Pause("300")
// If HP bar becomes red and the green is gone use potion. If no potion use potion2, if no potion2, use potion 3
if Color.Can be located on screen (RGB)("239", "16", "16", "0")
begin
if Color.Can not be located on screen (RGB)("16", "239", "33", "0")
begin
Function.Execute("Potion")
if Color.Can be located on screen (RGB)("239", "16", "16", "0")
begin
if Color.Can not be located on screen (RGB)("16", "239", "33", "0")
begin
Function.Execute("Potion2")
if Color.Can be located on screen (RGB)("239", "16", "16", "0")
begin
if Color.Can not be located on screen (RGB)("16", "239", "33", "0")
begin
Function.Execute("Potion3")
end
end
end
end
end
end
if Color.Can be located on screen (RGB)("255", "181", "82", "0")
begin
Function.Execute("FlyWithoutCondition")
end
// Mouse.Move to coordinate("270", "40")
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
if Variable.Is greater than (Math)("IsNotValidMonster", "{55}")
begin
Variable.Set("IsNotValidMonster", "1")
Function.Execute("FlyWithoutCondition")
end
Variable.Set("IsNotValidMonster", "1")
Macro.Pause("300")
Function.Execute("Loot4")
Macro.Break from loop("yes")
end
end
end
function

function("Loot4")
begin
// 463, 249, 376, 287
Color.Limit area of interest to coordinates("263", "149", "676", "487")
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("1000", "2000")
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Humanly.Pause("600", "1000")
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
if Color.Can be located on screen (RGB)("255", "181", "82", "0")
begin
Function.Execute("FlyWithoutCondition")
end
end
Color.Unlimit area of interest()
end
function

function("Fly")
begin
if Color.Can be located on screen (RGB)("255", "181", "82", "0")
begin
Function.Execute("FlyWithoutCondition")
end
if Color.Can not be located on screen (RGB)("255", "255", "0", "0")
begin
if Color.Can not be located on screen (RGB)("255", "255", "0", "0")
begin
Function.Execute("FlyWithoutCondition")
end
end
end
function

function("FlyWithoutCondition")
begin
Mouse.Click("right")
Macro.Pause("2000")
end
function

Blue Eye Macro

Ragnarok Script for Auto Farming