Will also do the same kind of thing for my other characters.
In comment you have details of spells i used to train.
You can modify this to match with your own spells etc., just remember to also change the delay after each spells...
[[With a flourish of a black cloak through the topic, the quote brackets suddenly change to those of codes]]
Code: Select all
| - Magispells.mac -
| Spells line trainer for magicians
|
| This macro will let you train and max all your casting lines.
| It will compare your actual evocation, alteration etc. level to the max level you
| can have and train only if you can raise the skill.
| When all skills are maxed the character just sit and camp.
|
| I'm used to use this macro when i go to sleep. If used often all skills are maxed in a few
|
| Requirements :
| Mem spells as follow :
|
| 1 renew elements (alteration 25 mana)
| 2 burst of flame (evocation 7 mana)
| 3 summon dagger (conjuration 10 mana)
| 4 true north (divination 5 mana)
| 5 minor shielding (abjuration 10 mana)
|
| Just summon a pet and target him.
| you will cast spells on him for alteration and evocation, all others are self spells.
| when low of mana character sit to meditate.
| Just remember to summon a decent amount of food and water, just in case.
|
#define maxiskill v1
Sub Main
/varcalc maxiskill $char(level)*5+5
:Begin
/if n $char(skill,alteration)<$maxiskill /cast 1
/if n $char(skill,alteration)<$maxiskill /delay 80
/if n $char(skill,evocation)<$maxiskill /cast 2
/if n $char(skill,evocation)<$maxiskill /delay 40
/if n $char(skill,conjuration)<$maxiskill /cast 3
/if n $char(skill,conjuration)<$maxiskill /delay 80
/if n $char(skill,divination)<$maxiskill /cast 4
/if n $char(skill,divination)<$maxiskill /delay 50
/if n $char(skill,abjuration)<$maxiskill /cast 5
/if n $char(skill,abjuration)<$maxiskill /delay 40
/if n $char(mana,pct)<10 /sit
/if n $char(mana,pct)<10 /call meditate
/if n $char(skill,alteration)<$maxiskill /goto :begin
/if n $char(skill,evocation)<$maxiskill /goto :begin
/if n $char(skill,conjuration)<$maxiskill /goto :begin
/if n $char(skill,divination)<$maxiskill /goto :begin
/if n $char(skill,abjuration)<$maxiskill /goto :begin
/sit
/camp
/return
Sub meditate
:rest
/delay 10
/if n $char(mana,pct)<100 /goto :rest
/stand
/return
