[Update: 20/03/22]Ragnarok Online Gravity Game Hub

Guest · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 6:38 am

shaoyron wrote:

[/quote]
Hey guys....just wondering with regards to this script, I used this one yesterday, so far it went well. Now same script i used, but it doesn't pick the loot...it seems the script only works for a specific range of level?[/quote]

It will only work on the specified coordinates on the script, you can try to change those or add new coordinates to expand the loot area.[/quote]

thanks brother...as of now im still studying with the script or program...
thanks for those who shared their scripts made..

kudos..

ragnarok187 · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 6:59 am

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Creamy")
end

function("Profile")
begin
if Color.At coordinate is within (RGB range)("49", "74", "123", "0", "113", "84")
begin
Macro.Wait for current global loop execution time to exceed("1617")
Keyboard.Hold keys("{<lmenu>}")
Macro.Wait for current global loop execution time to exceed("2062")
Keyboard.Hold keys("v")
Macro.Wait for current global loop execution time to exceed("2355")
Keyboard.Release keys("v")
Keyboard.Release keys("{<lmenu>}")
end
end
function

function("Heal")
begin
if Color.At coordinate is not within (RGB range)("156", "181", "239", "10", "144", "83")
begin
Function.Execute("Profile")
Keyboard.Press key("{<f2>}")
Humanly.Pause("334", "334")
end
end
function

function("Attack1")
if Color.Can be located on screen (RGB)("78", "111", "101", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("78", "111", "101", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Attack2")
if Color.Can be located on screen (RGB)("184", "70", "84", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("184", "70", "84", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Loot")
begin
Keyboard.Hold keys("{<ctrl>}")
Mouse.Move to coordinate("673", "375")
Mouse.Click("left")
Mouse.Move to coordinate("673", "407")
Mouse.Click("left")
Mouse.Move to coordinate("605", "405")
Mouse.Click("left")
Mouse.Move to coordinate("605", "334")
Mouse.Click("left")
Mouse.Move to coordinate("674", "334")
Mouse.Click("left")
Keyboard.Release keys("{<ctrl>}")
end
function

function("Rwalk")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "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("1500", "2000")
end
end
function
Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Creamy")
end

function("Creamy")
if Color.Can be located on screen (RGB)("16", "41", "66", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("16", "41", "66", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
end
function

ITS ATTACKING NOW RANDOMLY CREAMY NOT ALL WAHAHA..AND DIDNT GET ANY LOOTS OMG HOW ABOUT THE CARDS? HELP ME TO GETS THE LOOTS SPECIAL THE CARDS THANKS!

mhalkita14 · **Thanked:** 1 time(s) **Posted:** Tue Mar 22, 2022 7:10 am

to all peeps asking why sometimes its not looting because it is not designed to loot specific item but to click around the character after killing so all loots outside that cells will not be looted.

Try to experiment like setting it up like getting the loot's RGB range and execute a left click whenever that pixel is seen on the screen

mhalkita14 · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 7:12 am

Roan1234321 wrote:

barute wrote:

Hi. I read that it requires free trial so I am assuming that it is a paid program. How much for subscription? Thanks.

5usd per month and for 1 yr you get a discount forgot the price.

mhalkita14 wrote:

Hi Roan. Thank you for this I was able to create a Mugger Rogue, However i encouter this problem where if the pixel is too far (eg. from other cliff/wall ) the macro tend to get stuck. is there any work around here ?

Checkout Macroblitz script he have the thing you want:http://www.blueeye-macro.com/viewtopic.php?f=437&t=35258

I will add mine in the future updates.

Thanks!

ragnarok187 · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 7:13 am

now the bot work, when I copy paste the code in bem,
and click start, the mouse will run from bottom left to top right in diagonal movement, sometimes its attacking creamy but didnt get the loot..sometimes stainer...plz help me this is the code im using now..

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Creamy")
end

function("Profile")
begin
if Color.At coordinate is within (RGB range)("49", "74", "123", "0", "113", "84")
begin
Macro.Wait for current global loop execution time to exceed("1617")
Keyboard.Hold keys("{<lmenu>}")
Macro.Wait for current global loop execution time to exceed("2062")
Keyboard.Hold keys("v")
Macro.Wait for current global loop execution time to exceed("2355")
Keyboard.Release keys("v")
Keyboard.Release keys("{<lmenu>}")
end
end
function

function("Heal")
begin
if Color.At coordinate is not within (RGB range)("156", "181", "239", "10", "144", "83")
begin
Function.Execute("Profile")
Keyboard.Press key("{<f2>}")
Humanly.Pause("334", "334")
end
end
function

function("Attack1")
if Color.Can be located on screen (RGB)("78", "111", "101", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("78", "111", "101", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Attack2")
if Color.Can be located on screen (RGB)("184", "70", "84", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("184", "70", "84", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Loot")
begin
Keyboard.Hold keys("{<ctrl>}")
Mouse.Move to coordinate("673", "375")
Mouse.Click("left")
Mouse.Move to coordinate("673", "407")
Mouse.Click("left")
Mouse.Move to coordinate("605", "405")
Mouse.Click("left")
Mouse.Move to coordinate("605", "334")
Mouse.Click("left")
Mouse.Move to coordinate("674", "334")
Mouse.Click("left")
Keyboard.Release keys("{<ctrl>}")
end
function

function("Rwalk")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "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("1500", "2000")
end
end
function
Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Creamy")
end

function("Creamy")
if Color.Can be located on screen (RGB)("16", "41", "66", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("16", "41", "66", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
end
function

mhalkita14 · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 7:33 am

mhalkita14 wrote:

Roan1234321 wrote:

barute wrote:

Hi. I read that it requires free trial so I am assuming that it is a paid program. How much for subscription? Thanks.

5usd per month and for 1 yr you get a discount forgot the price.

mhalkita14 wrote:

Hi Roan. Thank you for this I was able to create a Mugger Rogue, However i encouter this problem where if the pixel is too far (eg. from other cliff/wall ) the macro tend to get stuck. is there any work around here ?

Checkout Macroblitz script he have the thing you want:http://www.blueeye-macro.com/viewtopic.php?f=437&t=35258

I will add mine in the future updates.

Thanks!

After reviewing his codes, I've seen he used this

Quote:

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

What do I need to change if I wanted to change it? on his tuts, he wants it for 9-10 sec. I want mine to be around 30-40 depending on the map.

Roan1234321 · **Thanked:** 0 time(s) **Posted:** Wed Mar 23, 2022 12:41 am

Quote:

What do I need to change if I wanted to change it? on his tuts, he wants it for 9-10 sec. I want mine to be around 30-40 depending on the map.

I Really don't know what to change in this code we have quite a bit of different code structure.
You can try to PM him regarding his code.

Guys please help me get 100 subs in my youtube channel
Once I get or finish finalizing some of the code I will update it here..
Thank You!

Also for those who want to donate check my signature.
Thank you! Your donations will motivate in updating and improving the code
you can also check my videos in YT channel so you will know what things
I will add in the Future.

ragnarok187 · **Thanked:** 0 time(s) **Posted:** Wed Mar 23, 2022 3:44 am

Roan1234321 wrote:

Quote:

What do I need to change if I wanted to change it? on his tuts, he wants it for 9-10 sec. I want mine to be around 30-40 depending on the map.

I Really don't know what to change in this code we have quite a bit of different code structure.
You can try to PM him regarding his code.

Guys please help me get 100 subs in my youtube channel
Once I get or finish finalizing some of the code I will update it here..
Thank You!

Also for those who want to donate check my signature.
Thank you! Your donations will motivate in updating and improving the code
you can also check my videos in YT channel so you will know what things
I will add in the Future.

ALREADY SUB...CAN U PLZ HELP ME IM USING THIS CONFIG RIGHT NOW IN BEM..AND MY CHAR WAS WALKING AND KILL SOME CREAMY AND STAINER BUT NOT ALL...AND DIDNT GET ANY LOOTS FROM MOBS...CAN U FIX THIS CONFIG >< AND I DIDNT CHANGE ANYTHING.LIKE GRFOR WHAT JUST USE BEM AT RAGNA CLIENT...ALWAYZ WALKING FROM BOTTOMRIGHT TO UP ><

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Creamy")
end

function("Profile")
begin
if Color.At coordinate is within (RGB range)("49", "74", "123", "0", "113", "84")
begin
Macro.Wait for current global loop execution time to exceed("1617")
Keyboard.Hold keys("{<lmenu>}")
Macro.Wait for current global loop execution time to exceed("2062")
Keyboard.Hold keys("v")
Macro.Wait for current global loop execution time to exceed("2355")
Keyboard.Release keys("v")
Keyboard.Release keys("{<lmenu>}")
end
end
function

function("Heal")
begin
if Color.At coordinate is not within (RGB range)("156", "181", "239", "10", "144", "83")
begin
Function.Execute("Profile")
Keyboard.Press key("{<f2>}")
Humanly.Pause("334", "334")
end
end
function

function("Attack1")
if Color.Can be located on screen (RGB)("78", "111", "101", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("78", "111", "101", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Attack2")
if Color.Can be located on screen (RGB)("184", "70", "84", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("184", "70", "84", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Loot")
begin
Keyboard.Hold keys("{<ctrl>}")
Mouse.Move to coordinate("673", "375")
Mouse.Click("left")
Mouse.Move to coordinate("673", "407")
Mouse.Click("left")
Mouse.Move to coordinate("605", "405")
Mouse.Click("left")
Mouse.Move to coordinate("605", "334")
Mouse.Click("left")
Mouse.Move to coordinate("674", "334")
Mouse.Click("left")
Keyboard.Release keys("{<ctrl>}")
end
function

function("Rwalk")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "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("1500", "2000")
end
end
function
Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Creamy")
end

function("Creamy")
if Color.Can be located on screen (RGB)("16", "41", "66", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("16", "41", "66", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
end
function

Roan1234321 · **Thanked:** 0 time(s) **Posted:** Wed Mar 23, 2022 10:47 am

ragnarok187 wrote:

Roan1234321 wrote:

Quote:

What do I need to change if I wanted to change it? on his tuts, he wants it for 9-10 sec. I want mine to be around 30-40 depending on the map.

I Really don't know what to change in this code we have quite a bit of different code structure.
You can try to PM him regarding his code.

Guys please help me get 100 subs in my youtube channel
Once I get or finish finalizing some of the code I will update it here..
Thank You!

Also for those who want to donate check my signature.
Thank you! Your donations will motivate in updating and improving the code
you can also check my videos in YT channel so you will know what things
I will add in the Future.

ALREADY SUB...CAN U PLZ HELP ME IM USING THIS CONFIG RIGHT NOW IN BEM..AND MY CHAR WAS WALKING AND KILL SOME CREAMY AND STAINER BUT NOT ALL...AND DIDNT GET ANY LOOTS FROM MOBS...CAN U FIX THIS CONFIG >< AND I DIDNT CHANGE ANYTHING.LIKE GRFOR WHAT JUST USE BEM AT RAGNA CLIENT...ALWAYZ WALKING FROM BOTTOMRIGHT TO UP ><

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Creamy")
end

function("Profile")
begin
if Color.At coordinate is within (RGB range)("49", "74", "123", "0", "113", "84")
begin
Macro.Wait for current global loop execution time to exceed("1617")
Keyboard.Hold keys("{<lmenu>}")
Macro.Wait for current global loop execution time to exceed("2062")
Keyboard.Hold keys("v")
Macro.Wait for current global loop execution time to exceed("2355")
Keyboard.Release keys("v")
Keyboard.Release keys("{<lmenu>}")
end
end
function

function("Heal")
begin
if Color.At coordinate is not within (RGB range)("156", "181", "239", "10", "144", "83")
begin
Function.Execute("Profile")
Keyboard.Press key("{<f2>}")
Humanly.Pause("334", "334")
end
end
function

function("Attack1")
if Color.Can be located on screen (RGB)("78", "111", "101", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("78", "111", "101", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Attack2")
if Color.Can be located on screen (RGB)("184", "70", "84", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("184", "70", "84", "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()
Humanly.Pause("250", "500")
Function.Execute("Heal")
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("Loot")
Macro.Break from loop("yes")
end
end
end
function

function("Loot")
begin
Keyboard.Hold keys("{<ctrl>}")
Mouse.Move to coordinate("673", "375")
Mouse.Click("left")
Mouse.Move to coordinate("673", "407")
Mouse.Click("left")
Mouse.Move to coordinate("605", "405")
Mouse.Click("left")
Mouse.Move to coordinate("605", "334")
Mouse.Click("left")
Mouse.Move to coordinate("674", "334")
Mouse.Click("left")
Keyboard.Release keys("{<ctrl>}")
end
function

function("Rwalk")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "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("1500", "2000")
end
end
function
Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Creamy")
end

function("Creamy")
if Color.Can be located on screen (RGB)("16", "41", "66", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("16", "41", "66", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
end
function

you must choose a better color/ RGB and make sure there are no shadow. i cant fix the walking sorry, would be better to use unli flywing or tele.

Guest · **Thanked:** 0 time(s) **Posted:** Wed Mar 23, 2022 11:47 am

Roan1234321 wrote:

Quote:

What do I need to change if I wanted to change it? on his tuts, he wants it for 9-10 sec. I want mine to be around 30-40 depending on the map.

I Really don't know what to change in this code we have quite a bit of different code structure.
You can try to PM him regarding his code.

Guys please help me get 100 subs in my youtube channel
Once I get or finish finalizing some of the code I will update it here..
Thank You!

Also for those who want to donate check my signature.
Thank you! Your donations will motivate in updating and improving the code
you can also check my videos in YT channel so you will know what things
I will add in the Future.

sir good day..i tried your tutorial about the the sprite..but its a little bit risky....hopefully i could make or edit my own script for the codes of each mob/mosnter..

my request is..could you share a code for the mobs in byalan 2..like vadon, marina,hrda,cornutos..i want to stay on the map..thanks

Blue Eye Macro

[Update: 20/03/22]Ragnarok Online Gravity Game Hub