Casting Skill Trainer

[disasteroid]

Hello, this is a macro that I found in this thread but did not have the original author's name. The following revisions have been made:

1. The new skill formula has been added to correct for errors when using the macro on characters over level 45.
2. Conjured items are now destroyed rather than inventoried to avoid clutter.
3. The macro will stop to rest when either mana OR health is low to prevent suicide.
4. The event trigger for the word "tell" has been removed to prevent false-positive pausing. Receiving a tell still triggers a 10 minute cooldown.

If I cannot find a better macro in the future, I'd like to add the functionality of another spell skill-up macro whereby the memorization of "best in skill" spells is automated. Most likely just copy and pasting.

Additionally, if you use the macro, please let me know if there are any bugs or if you have a better macro already that does everything this one does.

| Original author:	Unknown
| Updated by:		disasteroid
| Date of revision:	5/25/15
|
| *** Instructions ***
| Place a spell from each of the five casting schools into the first five spell gems before
| running this macro. The macro will cast each of these spells until the associated skill is
| capped. If a particular skill is already capped, it will be skipped. This macro does not
| train specializations to cap.
|
| This macro will kill you if your spell does over 20% of your HP in a single hit. This percentage
| can be altered below on line 59. Conjured items will be destroyed.
|
| As always, if you absolutely must AFK during the operation of this macro, be sure to leave
| your character in a secluded area (PoK book to Kelethin -> Crushbone is an out of the way spot).

#define MaxArcaneSkill 380
#chat tell 
#event lang "tells you" 

#include SpellCast.inc 

Sub Main 

	/declare currentSpell 
	/declare maxSkill 
	/declare skillName 
	/declare spellName
	/declare bp1
	/declare bp2
	/declare bp3
	
	/varset bp1 0
	/varset bp2 0
	/varset bp3 0

	/if (${Me.Level}>45) {
		/varset bp1 1
		/if (${Me.Level}>55) {
			/varset bp2 1
			/if (${Me.Level}>65) /varset bp3 1
		}
	}
	
	/varset maxSkill ${Math.Calc[${Me.Level}*5+5-${bp1}*(${Me.Level}-45)-${bp2}*(${Me.Level}-55)-${bp3}*(${Me.Level}-65)]}
			
	/varset currentSpell 1
|	/varset maxSkill ${Math.Calc[${Me.Level}*5+5]} 
	/echo maxSkill=${maxSkill} 
	/if ( ${maxSkill} > MaxArcaneSkill ) /varset maxSkill MaxArcaneSkill 

	/target myself 
	
	:nextSpell 
		/echo currentspell=${currentSpell} 
		/echo casting=${Me.Gem[${currentSpell}]} 
		
		/if ( ${Bool[${Me.Gem[${currentSpell}]}]} ) { 
			/varset skillName ${Me.Gem[${currentSpell}].Skill} 
			:castSpell 
				/doevents 
				/if (${Me.PctMana}<20||${Me.PctHP}<20) { 
					/sit on 
					/call MedBreak 
				} 
				/echo ${skillName}=${Me.Skill[${skillName}]} 
				/if ( ${Me.Skill[${skillName}]} >= ${maxSkill} ) { 
					/varset currentSpell ${Math.Calc[${currentSpell}+1]} 
					/goto :nextSpell 
				} 
				/call CheckGM 
				/call cast "${Me.Gem[${currentSpell}]}" 
				
				:checkCursor 
				/if (${Cursor.ID}) { 
					/destroy 
					/goto :checkCursor 
				} 
			/goto :castSpell 
		} 
	
	/sit 
	/call MedBreak 
	/camp 
/return 

Sub CheckGM 
	:GMCheck 
	/if (${Bool[${Spawn[gm].ID}]}) { 
	   /echo 'Cast Macro' A GM or Guide has been detected in the zone,  the macro will resume  when the zone is clear of GM/Guides 
	   /delay 600s 
	   /goto :GMCheck 
	} 
/return

Sub Event_Lang 
  /echo Got a tell, pausing for 10 minutes 
  /delay 600s 
/return 

Sub MedBreak 
	/stand 
	/sit 
	:MedMore 
		/delay 2s 
		/if (${Me.CurrentMana}<${Me.MaxMana}||${Me.PctHP}<99) /goto :MedMore 
/return

 

[playj]

Nice find, are there advantages for this macro over cskillup.mac?

Not sure if you tried it, but cskillup.mac written by Maskoi and included in Redguides Vanilla MQ zip works great and is smart(it mems spells for you , so run scribe.mac at 1-25 spell seller first in POK then run cskillup.mac somewhere else).

I used to just write my own loops for training casting, but see no need anymore.

 

[disasteroid]

Nice find, are there advantages for this macro over cskillup.mac?

Not sure if you tried it, but cskillup.mac written by Maskoi and included in Redguides Vanilla MQ zip works great and is smart(it mems spells for you , so run scribe.mac at 1-25 spell seller first in POK then run cskillup.mac somewhere else).

I used to just write my own loops for training casting, but see no need anymore.

So I've just run cskillup, this macro is amazing! Thanks for the heads-up--now I can get back to revising the Randyleo's fellowship bone chip macro