bored.mac

[Genoius]

I made this to cast spells for my twinked beastlord, since once I got spells, I had the pet, and wasn't casting a whole lot, except pet buffs. Put yourself in a locale where most people don't go, then summon your warder(or if you change it for other classes, your pet) and mem the lowest mana used spells for each you want to work on.

Type "/macro bored #" (where the number is how many spells you have memmed to work on(1-8)). It will then loop through till you are less than 10m, sit for 5mins, then go to the next spell, etc...

Also, built into the bottom is a way to tease newBs a little. You give them a broken quest. They hail you, and you give them a [task]. Then, when they reply "What task?", you tell them to bring an item to Naomi in Shar'Vahl.(This could easily be made to have them bring you things like left goblin ears in HK or DF belts in EC/WC or damn near anything (BDs doubtful anyone would fall for it, but you could try). Have it in the same loop to click "OK" once they give you anything, and keep hitting it as long as they keep adding items to give you.

Well, the way I have it is the way I like it, so I'm leaving it this way for now. The 5min timer is just a "/delay 3000" currently, but I am going to change it to a "/for vXX 1 to whatever" and have my guy BEG and SENSE HEADING from my pet every 10 or so seconds.

Here's the code how I have it currently:

Code: Select all

| SPELL SKILLER
| Useage : Mem the spells you want cast in the spots you want
|          using slot 1 through whichever you want to work on.
|          then tell the macro how many spells to go through before
|          restarting.  (syntax:  "/macro bored 8" to go through all 8)
|          Will have it set the number to 1 if higher than 8.

#event Fizzle "Your spell fizzles!"
#event Cast "You begin casting"
#event OOM "Insufficient mana to cast this spell"
#event Cant "You can't use that command while casting..."
#event havent "You haven't recovered yet..."
#chat say

Sub Main
    /if $p0>8 /varset p0 1
    /for v66 1 to $p0
       /cleanup
       :Begin
       /target id $char(pet)
       /if n $char(mana,pct)>9 /goto :Cast
       /if n $char(mana,pct)<10 /goto :Med
       /goto :Begin
       :Cast
       /echo You are currently at: $char(mana,pct)% mana.
       /sit off
       /delay 1
       /cast $v66
       /doevents
       /if $cursor()!=NULL /click left destroy
       /goto :Begin

       :Med 
        /if n $char(mana,pct)<50 {
        /sit on
        /delay 3000
        }
   /next v66
   /varset v66 1
/return

Sub Event_Fizzle
    /delay 4
/return

Sub Event_Cast
    /delay 38
/return

Sub Event_OOM
    /delay 5
/return

Sub Event_Cant
   /delay 5
/return

Sub Event_havent
   /delay 2
/return

Sub Event_Chat
      /if "$p0"=="say" /if "$p2"~~"task" /say Great!  Take this relic to Naomi in Shar'Vahl.  She will tell you what to do next.
      /if "$p0"=="say" /if "$p2"~~"Hail" /say Hello, my friend, $p1. I need you to help me with a [task].
/return