SkillupMagic.mac -- Raises magic skills

[giblet]

give this a try, I've tried to keep the code clean.

Woops, forgot to mention you self target for the casting so make sure not to nuke yourself too hard. Wasn't an issue for me at all. PoK is a good place since you're immune to all offensive spells there.

Code: Select all

| Call this macro after defining targetted skill levels and appropriate spells
|
| Will iterate through all skills and raise them to requested levels in order
| The macro will auto end if the character moves.
|
| IMPORTANT NOTE: If you're casting a summoning spell and an item with "Summoned:"
|                 exists on your cursor it will be DESTROYED.



#define MANA_SIT 30			|% mana to sit and regain mana
#define MANA_CAST 90			|% mana to stand and resume casting

sub Main

  /declare loc_x global			|x loc
  /declare loc_y global			|y loc

  |record loc of character
  /varset loc_x $char(x)
  /varset loc_y $char(y)

  /call RaiseSkill "Abjuration" 120 "Taper Enchantment"
  /call RaiseSkill "Alteration" 120 "Shallow Breath"
  /call RaiseSkill "Conjuration" 120 "Mesmerize"
  /call RaiseSkill "Divination" 120 "True North"
  /call RaiseSkill "Evocation" 120 "Chaotic Feedback"
  /call RaiseSkill "Channeling" 120 "True North"
  /call RaiseSkill "Meditate" 120 "Alacrity"
  /call RaiseSkill "Specialize Alteration" 50 "Shallow Breath"
  /return


|===================================================================================
sub RaiseSkill(skill,level,spell)

  |general notification
  /echo - Raising @skill to @level with '@spell'
  /echo Macro will AUTO STOP if movement is detected.

  |return if spell not in book
  /if $char(book,"@spell")==NULL {
    /echo Spell '@spell' not in spellbook.
    /return
  }

  :loop
  |insert short semi-random delay
  /delay $calc(5+$rand(5))

  |exit if character movement detected
  /if (n @loc_x!=$char(x) || n @loc_y!=$char(y)) {
    /echo Movement detected!  Ending macro.
    /endmacro
  }

  |if casting a summoning spell and a summoned item on cursor, destroy it
  /if ("@spell"~~"Summon" && "$cursor(name)"~~"Summoned:") /destroy

  |return if this skill at desired level
  /if n $char(skill,"@skill")>=@level {
    /echo @skill at $char(skill,"@skill")
    /return
  }

  |insure spell memorized
  /if n $char(gem,"@spell")==0 {
    /memspell 8 "@spell"
    /delay 10s
  }

  |sit if not casting/medding and mana dropped to MANA_SIT value
  /if (n $char(mana,pct)<MANA_SIT && $char(state)=="STAND" && $char(casting)=="FALSE") /sit

  |if medding and mana not yet up to MANA_CAST, continue to med
  /if ($char(state)=="SIT" && n $char(mana,pct)<MANA_CAST) /goto :loop

  |cast if the spell has refreshed
  /if n $char(gem,"@spell")>0 {
    /if $char(state)=="SIT" /stand
    /if n $target(id)!=$char(id) /target myself
    /cast "@spell"
  }

  |loop
  /goto :loop
  /return

[rasthan]

Thanks. This works great!

[Zenatul]

Great macro. Was wondering if you could incorporate something for wizards that casts harvest every 10 minutes, if you could, that would be just awesome~~

[Bad Karma]

Great macro. Was wondering if you could incorporate something for wizards that casts harvest every 10 minutes, if you could, that would be just awesome~~

Simply modify the code above to use the spell name you want, and set a /delay 10m.

[tranze204]

Can you make it so that it automatically figures out the max spell casting skill level, and cast till then, when its set to 120 and you already have a higher skill then it wont cast other spells to get it past 120, or for example if you level 20 you cant get a skill of 120 so it keeps trying and only 1 skill is worked on thats already maxed at 105...thanx

[Stilgar]

look at this line:

/call RaiseSkill "Abjuration" 120 "Taper Enchantment"


change the number to something that suits you more.

[Wolffe]

I was summoning food, and was hoping it would destroy the item on the cursor, but alas it does not. it stacks a few and then EQ starts spamming me about having too much stuff on my cursor. Any ideas?

[Ehnal Seks]

yea, use a different spell. and stilgar -> ever play dark ages? www.darkages.com

[Wolffe]

I did, am using unswerving hammer of faith cast on myself. Works great =)

[illus1on]

this macro isnt working for me... and I am not sure why. I edited it to be skills of 235, with the spells of my choice, and when I start the macro, it fails. It gives a bunch of /if fails, etc.

am I doing something wrong?


ps - 2nd day using MQ2

[lost_man]

The macro works for the most part..

The only problem is it does not destroy the Summoned:Halo of Light

Any ideas?

[Remblan]

To get it to Auto-Destroy Halo of light you need to edit this line

Code: Select all

/if ("@spell"~~"Summon" && "$cursor(name)"~~"Summoned:") /destroy 

to say this

Code: Select all

/if ("@spell"~~"Halo" && "$cursor(name)"~~"Summoned:") /destroy
  

Put now that the macro is broken, it does not matter. Give me a few days and I will try to get t fixed if I can. I am learning codong and the new MQ2Data at the same time so please be patient.

[Bardmad]

I'm having problem after the recent patch. this is a great program, but it's not working now. it's giving error msg like If (command)... etc.. cant really remember. and my EQW got disappeared when i on the spellup mac. anyone having the same problem?

[Mongol311]

Is anyone updating this macro for mq2? just wondering, if not, I will give a try in the next few days.

[homburg]

I'd love to see this updated. Terribly useful macro. I've tried a bit, but cannot get a thing to happen. I stink at this stuff though, so no big shock.