Dragonsaga script/bot archive!

education · **Thanked:** 2 time(s) **Posted:** Thu Jan 17, 2013 6:07 am

i've noticed that there's a topic called "ideas!" about bots for this game, so i decided to make this topic as "bot archive" which hopefully would be a place where people share their scripts

well, the first two script is not really my very own script since "stairbuilder" help me a lot while making this bot, so i have to give him a big thanks for that

. For more detail : viewtopic.php?f=243&t=13865

okay, the first one is "auto attack" bot

Code:

 begin loop()
     // begin the auto attack by pressing "x"
     if  Keyboard.Key is held down("x")
          begin loop()
               // note that this game use "x" as an attack botton
               Keyboard.Press key("x")
               // stop the auto attack by pressing "v"
               if  Keyboard.Key is held down("v")
                    begin
                         Macro.Break from loop("yes")
                    end
          end
 end
 

and in case you may want to chat with other people or you need to pause this macro for a while, use this

Code:

 begin loop()
     Keyboard.Wait for one of the following keys to be pressed("{<f11>}{<f12>}", "key")
     if  Variable.Is equal to("key", "{<f12>}")
          begin
               Macro.Pause all other macros()
               Macro.Report progress("Pausing macros")
          end
     if  Variable.Is equal to("key", "{<f11>}")
          begin
               Macro.Resume all paused macros()
               Macro.Report progress("Resuming macros")
          end
 end
 

this will pause all other macro if you press f12 and will resume them with f11

Note that i just copied what Gigus posted in viewtopic.php?f=9&t=851&start=10 thus all credit goes to him

education · **Thanked:** 1 time(s) **Posted:** Thu Jan 17, 2013 6:25 am

As an acolyte class, there're 3 main buffs : Focus (increase MATK), Magician's Wisdom (increase MP regen), and Diffusion cannon (triple shorts)

Diffusion cannon lv 5 auto buff

Code:

 begin
     // this 3 sec provides time for you to switch from BE-M to Dragonsaga
     Macro.Pause("3000")
     begin loop()
          // Short key for Diffusion Cannon is "e" in accordance with the picture above
          Keyboard.Press key("e")
          // Duration for Diffusion Cannon lv 5 is 8 min
          Macro.Pause("480000")
     end
 end
 

Focus lv 5 auto buff

Code:

 begin
     // this 3 sec provides time for you to switch from BE-M to Dragonsaga
     Macro.Pause("3100")
     begin loop()
          // Short key for Focus is "q" in accordance with the picture above
          Keyboard.Press key("q")
          // Duration for focus lv 5 is 15 min
          Macro.Pause("900000")
     end
 end
 

Magician's Wisdom auto buff

Code:

 begin
     // this 3 sec provides time for you to switch from BE-M to Dragonsaga
     Macro.Pause("3200")
     begin loop()
          // Short key for Magician's Wisdom is "w" in accordance with the picture above
          Keyboard.Press key("w")
          // Duration for Magician's Wisdom lv 1 is 10 min
          Macro.Pause("600000")
     end
 end
 

Extra : auto slow heal

Code:

 begin
     // this 3 sec provides time for you to switch from BE-M to Dragonsaga
     Macro.Pause("3300")
     begin loop()
          // Short key for Slow Heal is "s" in accordance with the picture above
          Keyboard.Press key("s")
          // Duration for Slow Heal lv 5 is 30 sec
          Macro.Pause("30000")
     end
 end
 

Basically, these 4 scripts are the same, with some adjustments

education · **Thanked:** 1 time(s) **Posted:** Thu Jan 17, 2013 6:32 am

As for autopots, you may need to set your screen resolution to 1280x800, else you need to adjust something wtih the pixel detection

Code:

 begin loop()
     // HP less than 80%
     if  Color.At coordinate is not (RGB)("212", "8", "6", "669", "747")
     // if your resolution is not 1280x800, you need to change these numbers
          begin
               // Short key for HP potion is "1" in accordance with the picture above
               // if you're an acolyte, you may use instance heal instead
               Keyboard.Press key("1")
          end
     // MP less than 80%
     if  Color.At coordinate is not (RGB)("14", "175", "224", "678", "772")
     // if your resolution is not 1280x800, you need to change these numbers
          begin
               // Short key for HP potion is "2" in accordance with the picture above
               Keyboard.Press key("2")
          end
 end
 

Hope you find all these bots somehow usefull

Enjoy

education · **Thanked:** 1 time(s) **Posted:** Thu Jan 17, 2013 11:14 am

after i tried to run all scripts i've posted above, i'm now encounter another problem

the problem is that "autobuff" won't work while i run "auto attack"

here's the solution

Code:

 begin
     // this 3 sec provides time for you to switch from BE-M to Dragonsaga
     Macro.Pause("3000")
     begin loop()
          // Short key for Diffusion Cannon is "e" in accordance with the picture above
          Macro.Pause all other macros()
          Keyboard.Press key("e")
          Macro.Resume all paused macros()
          // Duration for Diffusion Cannon lv 5 is 8 min
          Macro.Pause("480000")
     end
 end
 

jsut simply add Macro.Pause all other macros() and Macro.Resume all paused macros() as shown

education · **Thanked:** 1 time(s) **Posted:** Sat Jan 19, 2013 2:00 pm

i've created 2 more scripts which will help you to use skill while auto attacking

first, let's begin with "spamming x" which is the attack botton in this game

Code:

 begin loop()
     Keyboard.Press key("x")
 end
 

after you run "Spamming x" macro, now run this

Code:

 begin loop()
     Keyboard.Wait for one of the following keys to be pressed("vxa3", "key")
     if  Variable.Is equal to("key", "v")
          begin
               Macro.Pause all other macros()
               Macro.Report progress("Pausing macros")
          end
     if  Variable.Is equal to("key", "x")
          begin
               Macro.Resume all paused macros()
               Macro.Report progress("Resuming macros")
          end
     if  Variable.Is equal to("key", "a")
          begin
               Macro.Pause all other macros()
               Keyboard.Press key("a")
               Macro.Resume all paused macros()
          end
     if  Variable.Is equal to("key", "3")
          begin
               Macro.Pause all other macros()
               Keyboard.Press key("3")
               Macro.Resume all paused macros()
          end
 end
 

for this script,
x=auto attack
v=stop auto attack
a=skill
3=skill

mrnewfacebook1 · **Thanked:** 0 time(s) **Posted:** Tue Jan 22, 2013 11:18 am

Thank you for all of your works

But can you show me how to use the code in the program? I'm a noob here

education · **Thanked:** 1 time(s) **Posted:** Tue Jan 22, 2013 12:14 pm

sure, first you need to open BE-M(Blue eye macro)

after that, press "Create", a new window will pop up

now you can cody and paste those scripts/codes in the "code view" and simply press "start"

that all

this is really easy once you've the scripts in your hand

if you have any questions regarded BE-M or my scripts, feel free to ask

angga11 · **Thanked:** 0 time(s) **Posted:** Tue Jan 22, 2013 12:39 pm

nice script dude

good job

education · **Thanked:** 0 time(s) **Posted:** Tue Jan 22, 2013 3:04 pm

i'm glad you like the script

hope you find it useful

mrnewfacebook1 · **Thanked:** 0 time(s) **Posted:** Wed Jan 23, 2013 1:01 am

education wrote:

sure, first you need to open BE-M(Blue eye macro)

after that, press "Create", a new window will pop up

now you can cody and paste those scripts/codes in the "code view" and simply press "start"

that all

this is really easy once you've the scripts in your hand

if you have any questions regarded BE-M or my scripts, feel free to ask

Thank you for your help

Blue Eye Macro

Dragonsaga script/bot archive!