Activate All Full screen Macros

gipsy · **Thanked:** 0 time(s) **Posted:** Wed Sep 08, 2010 12:03 pm

I just created a small script to activate the 4 following Full screen soma macros:
- Casting Macro
- DropClicker
- HP Pot Macro
- MP Pot Macro

This is the code:

Code:

 begin
     Macro.Execute new("", "Casting Macro", "No")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "DropClicker", "No")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "HP Pot Macro", "No")
     Macro.Pause("50")
     Keyboard.Type text("3")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "MP Pot Macro", "No")
     Macro.Pause("50")
     Keyboard.Type text("3")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
end
 

**Edit **
Just updated the code to make sure the Pot macros don't notify you.

Gigus · **Thanked:** 0 time(s) **Posted:** Wed Sep 08, 2010 12:19 pm

Worth mentioning, it assumes you have got all your soma macros located in the category called "Soma".

Actually what you could do is just leave the category blank, then as long as the macro is placed inside the same category as the other soma macros, it will automatically use its own category for the category argument.

Gigus · **Thanked:** 0 time(s) **Posted:** Wed Sep 08, 2010 2:12 pm

And thank you for submitting it to the repository

additional points for that.

gipsy · **Thanked:** 0 time(s) **Posted:** Wed Sep 08, 2010 3:24 pm

Update is on the way

Gigus · **Thanked:** 0 time(s) **Posted:** Fri Sep 10, 2010 7:07 am

I updated the repository macro, removing the categories, so now all you have to do, is place this macro in the same category as the 4 macros you want to execute.

This is the updated code:

Code:

 begin
     Macro.Execute new("", "Casting Macro", "No")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "DropClicker", "No")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "HP Pot Macro", "No")
     Macro.Pause("50")
     Keyboard.Type text("3")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
     Macro.Pause("50")
     Macro.Execute new("", "MP Pot Macro", "No")
     Macro.Pause("50")
     Keyboard.Type text("3")
     Macro.Pause("50")
     Keyboard.Press key("{<enter>}")
 end
 

Blue Eye Macro

Activate All Full screen Macros