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

babysogar · **Thanked:** 0 time(s) **Posted:** Mon Mar 21, 2022 3:24 am

Roan1234321 wrote:

Version 1.0
Here are the Basic Features.
Features:

Note:
F2 = HP potion
F3 = Tele

As of now this is the stable script that I made.
Will add or enhance the code in the future.
Code is made to farm at Grand Peco and Sleeper.
For other monster just change the RGB of functions Attack1 and Attack2
to the desired monster RGB.

Next update will add the following Feature:

Requirement:
RO setup:

1280x720 (32 bit color ) hindi OS, color to nasa setup ng RO. if 16 sayo try mo troubleshoot baka ma solve.if hinde check this out
http://www.guidingtech.com/9914/change-from-16-bit-to-32-bit-color-windows-7/

Steps:
1. Download and install Blue Eye Macro.
2. Copy Code to Blue Eye Macro.
3. Open your Ragnarok online client Log into the game.
4. Return to RO window.
5. Run bot

Code:

Begin
     Window.Set location("Ragnarok", "yes", "0", "0")
     Function.Execute("Profile")
     Function.Execute("Attack1")
     Function.Execute("Attack2")
     Function.Execute("Fly")
 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)("231", "173", "132", "0")
          begin
               Mouse.Click at color closest to coordinate (RGB)("231", "173", "132", "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)("247", "231", "206", "0")
          begin
               Mouse.Click at color closest to coordinate (RGB)("247", "231", "206", "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("Fly")
     begin
          if  Color.Can not be located on screen (RGB)("231", "173", "132", "0")
               and
               Color.Can not be located on screen (RGB)("247", "231", "203", "0")
               begin
                    Keyboard.Press key("{<f3>}")
                    Humanly.Pause("250", "250")
                    Mouse.Click at coordinate("728", "563", "left")
                    Humanly.Pause("3000", "4000")
               end
     end
function

Note:
comment for problems encountered.
hit thank you if it worked.
You can use this with other macro script using BEM or other software.(but I suggest using BEM so you won't get any complication)

Alpha Video
Currently on testing
https://youtu.be/FDWQl3cj0Bo

You can check some of my old video of RObot in my youtube channel
I will try to make it work the same way here in GGH.
Please help subscribe to my YT channel if channel reach 100 subscriber
I will add the update once available and will work harder if subscriber reach 100.
YT:
https://www.youtube.com/user/roan1234321/playlists

For those who want to donate check my signature you can scan the QR code or click the donation link.
Donations will encourage me to give more time in making or updating the code.
Thank you for your support.

available for ROGGH?

Roan1234321 · **Thanked:** 0 time(s) **Posted:** Mon Mar 21, 2022 4:42 am

Quote:

any one active pra mka help po sakin...salamat..sa creamy kopo sana balak mag bot..merchant plng char ko...thanks

English in forum please.
Sorry I don't much have time to make a guide as of the moment but please ttry to explore BEM atm.
so you will be able to figure it out..

babysogar wrote:

available for ROGGH?

this is for ROGGH

barute · **Thanked:** 0 time(s) **Posted:** Mon Mar 21, 2022 2:35 pm

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

mhalkita14 · **Thanked:** 0 time(s) **Posted:** Mon Mar 21, 2022 6:41 pm

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 ?

I'm thinking to set a timer for my attack function or is there any other way? cos i realized if I set up a timer some other monsters will be left out if the timer is finished.

Quote:

function("Attack1")
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
Humanly.Pause("400", "500")
end
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Keyboard.Press key("{<f1>}")
Humanly.Pause("400", "500")
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Keyboard.Press key("{<f1>}")
Humanly.Pause("400", "500")
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Keyboard.Press key("{<f1>}")
Humanly.Pause("400", "500")
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Keyboard.Press key("{<f1>}")
Humanly.Pause("400", "500")
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
end
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
Humanly.Pause("400", "500")
end
if Color.Can be located on screen (RGB)("232", "179", "140", "2")
begin
Mouse.Click at color closest to coordinate (RGB)("232", "179", "140", "2", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
Humanly.Pause("400", "500")
end
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("500", "1000")
Function.Execute("Loot")
Macro.Break from loop("yes")
end
end
end
end
end
end
function

anyway I didn't use the loop function here cos I can't seem to let it work.

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

I'm trying to post reply here, tried sending a PM for free trial also, "request blocked", tagged me as suspicious....

Edit:
Oh now it went through... but PM is still tagged as suspicious...

Nvm, all good now....

Roan1234321 · **Thanked:** 1 time(s) **Posted:** Tue Mar 22, 2022 1:13 am

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.

heinz · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 1:50 am

x123123 wrote:

To all peeps that don't have unli fwing. u can remove Function.Execute("Fly") and erase all its function below. ( it will make ur char walk randomly ) I just copy things from his post on his signature

Quote:

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Fly")
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

function("Fly")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "0")
and
Color.Can not be located on screen (RGB)("184", "70", "84", "0")
begin
Keyboard.Press key("{<f3>}")
Humanly.Pause("250", "250")
Mouse.Click at coordinate("728", "563", "left")
Humanly.Pause("3000", "4000")
end
end
function

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?

shaoyron · **Thanked:** 0 time(s) **Posted:** Tue Mar 22, 2022 2:46 am

[/quote][/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.

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

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Fly")
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)("231", "173", "132", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("231", "173", "132", "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)("247", "231", "206", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("247", "231", "206", "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("Fly")
begin
if Color.Can not be located on screen (RGB)("231", "173", "132", "0")
and
Color.Can not be located on screen (RGB)("247", "231", "203", "0")
begin
Keyboard.Press key("{<f3>}")
Humanly.Pause("250", "250")
Mouse.Click at coordinate("728", "563", "left")
Humanly.Pause("3000", "4000")
end
end
function

~~~and where i should put this? i need to bot in creamy mobs...also dont have unlifly just walk only..plz gave me config thanks..~~~

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

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

Begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("Profile")
Function.Execute("Attack1")
Function.Execute("Attack2")
Function.Execute("Rwalk")
Function.Execute("Fly")
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

function("Fly")
begin
if Color.Can not be located on screen (RGB)("78", "111", "101", "0")
and
Color.Can not be located on screen (RGB)("184", "70", "84", "0")
begin
Keyboard.Press key("{<f3>}")
Humanly.Pause("250", "250")
Mouse.Click at coordinate("728", "563", "left")
Humanly.Pause("3000", "4000")
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

IM USING THIS NOW..JUST 1 ATTACK ONLY CREAMY THEN IT STOP 4 EVER..WHAT SHOULD I DO??OR THE CODE IM USING IS WRONG CAN ANYONE FIX IT? AND THIS IS THE MAP I WANT TO BOT..THANKS!