A skill-up macro and spell component caster

Post your completed (working) macros here. Only for macros using MQ2Data syntax!

Moderator: MacroQuest Developers

bob_the_builder
a hill giant
a hill giant
Posts: 275
Joined: Tue Jul 22, 2003 1:22 pm

A skill-up macro and spell component caster

Post by bob_the_builder » Thu Apr 29, 2004 9:02 pm

A skill-up macro and spell component caster

Code: Select all

| castgem.mac 
| /macro castgem <gem #> 
| For instance:
| /macro castgem 8
| Use for skill up 
| Use for making items 
| Bob_the_builder 
| 4/29/04 

#include spellcast.inc 
#event NoComponents "You are missing some required components." 

Sub Main 
   /declare SpellName 
   /varset SpellName ${Me.Gem[${Param0}]} 
   /if (${Me.State.Equal[SIT]}) /stand 

   :CheckMana 
   /if (${Me.PctMana}<20) /goto :SitDown 

   :CheckCursor 
   /if (${Cursor.ID}) { 
      /autoinv 
      /goto :CheckCursor 
   } 

   :CastSpell 
   /call cast "${SpellName}" 
   /doevents 
   /goto :CheckMana 

   :SitDown 
   /if (${Me.State.Equal[STAND]}) /sit on 

   :HowMuchMana 
   /if (${Me.PctMana}<98) /goto :HowMuchMana 
   /goto :CheckMana 
/endmacro

Sub Event_NoComponents 
   /popup No More Items to Make 
   /endmacro 
/return 
/mac castgem <gem_number>

Good for spell skil increases and making enchant item things. Will stop when all out of components for that spell gem.

Bob
Last edited by bob_the_builder on Tue May 04, 2004 12:09 pm, edited 3 times in total.

Bardmad
a lesser mummy
a lesser mummy
Posts: 36
Joined: Mon Apr 05, 2004 4:55 am

Am I wrong?

Post by Bardmad » Fri Apr 30, 2004 2:22 am

hi bob, I tried ur problem but it seems like it's not working... nothing actually happen. i have <Sense The Dead> on my first Spell Gem and i typed /mac castgem.mac <gem 1>, /mac castgem <gem 1> and etc but there're not reaction, but only stood up. can u tell me what's wrong with it? :)

elkcit
a lesser mummy
a lesser mummy
Posts: 34
Joined: Sat Aug 31, 2002 3:20 pm

Post by elkcit » Fri Apr 30, 2004 3:17 am

try

/macro castgem.mac 1

newstarter
decaying skeleton
decaying skeleton
Posts: 8
Joined: Wed Dec 10, 2003 10:24 am

Post by newstarter » Sat May 01, 2004 8:42 am

Subroutine cast wasnt found
castgem.mac@28 (Main):/call cast"${SpellName}"
The current macro has ended

Thats what it tells me after doing /mac castgem 1

Anyone that can help, its prolly just a small mistake from my side, pretty new to this. thx in advanced

Mixy
a lesser mummy
a lesser mummy
Posts: 46
Joined: Tue Jul 09, 2002 5:00 pm

Post by Mixy » Sat May 01, 2004 9:01 am

You need spellcast.inc which is in the snippits section. Put that file in your macro dir.

-Mixy!

McClicky
decaying skeleton
decaying skeleton
Posts: 8
Joined: Sun May 02, 2004 2:20 am

Post by McClicky » Sun May 02, 2004 2:28 am

I'm getting an error message when trying to run this macro:

SubRoutine Main not found.

I know this is a noob problem I'm having, but I'm a hopeless noob. I did a search for the error and got back nothing. I've RTFM, kicked it around for 3 days now trying different stuff and have gotten nowhere. Anyone know what I'm doing wrong? I have spellcast.inc in there, everything else in MQ2 seems to run fine, except macro. Please help.

magictiger
a snow griffon
a snow griffon
Posts: 450
Joined: Sun Mar 21, 2004 2:24 pm

Post by magictiger » Sun May 02, 2004 1:03 pm

....
Copy and paste it again, because something's screwed up your macro.

SubRoutine Main not found is usually caused by not capitalizing the M... or a bad copy/paste job.

McClicky
decaying skeleton
decaying skeleton
Posts: 8
Joined: Sun May 02, 2004 2:20 am

Post by McClicky » Mon May 03, 2004 1:10 am

Thanks magictiger. I tried it, and still no luck, though. The macro looks exactly the same as it does in the text of the post. I've realized now, after some testing, that most of my macros are doing the same thing, even the preset macros (i.e. Follow, Randfollow). I haven't tested them all, but the only one I can get past the SubRoutine Main not found error is Hero.mac. I've reinstalled studio.net, reinstalled MQ2, recompiled...I've done everything I can think of. I'm getting no compiling errors, and like I said, everything else runs without fault. I'm stumped.

magictiger
a snow griffon
a snow griffon
Posts: 450
Joined: Sun Mar 21, 2004 2:24 pm

Post by magictiger » Mon May 03, 2004 1:17 am

Have you done a batch rebuild all?
Or a batch clean then batch build?
sounds like something's fubar in your MQ2

The_Cuban
orc pawn
orc pawn
Posts: 12
Joined: Wed May 12, 2004 9:28 pm

Post by The_Cuban » Wed May 12, 2004 9:39 pm

Hello, all long time lurker here this is the first time I have run into an
issue so I thought I would ask. I am wondering if the custom event change broke this macro. I have used it many times in the past but this is what it is doing now. It will run fine until I run out of mana like it should then it will sit to meditate but when I am full mana it will attempt to cast the spell while I am still sitting. It used to stand me up then cast. Thinking I did something wrong. I rebuilt the current release and it is still
happening. Do any of you long time user think you can help me out. Also
thanks to all the people who have devoted time to this great project.

The_Cuban
orc pawn
orc pawn
Posts: 12
Joined: Wed May 12, 2004 9:28 pm

Post by The_Cuban » Wed May 12, 2004 10:07 pm

I jumped the gun on this one. If I had waited and thought about it some more I would have gone to the snippets section and seen that spellcast.inc had been modified.

Oid
a snow griffon
a snow griffon
Posts: 416
Joined: Thu Oct 17, 2002 3:26 am
Contact:

Post by Oid » Sat May 15, 2004 3:06 pm

Code: Select all

#include spellcast.inc
#event NoComponents "You are missing some required components."
Sub Main
	/declare SpellName int local
        /varset SpellName ${Me.Gem[${Param0}]}
	:castloop
	/stand
	/call cast ${SpellName}
	/doevents
	:CheckCursor
	/if (${Cursor.ID}) {
		/autoinv
		/goto :CheckCursor
	}
	:CheckMana
	/if (${Me.PctMana}>20) {
		/goto :castloop
	}
	/sit
	:medup
	/delay 60s ${Me.PctMana}>80
	/if (${Me.PctMana}>80) /goto :castloop
	/goto :medup	
/return

Sub Event_NoComponents
	/popup No More Items to Make
	/end
/return
Smokey the Lax says only you can prevent reproduction.

Jones
decaying skeleton
decaying skeleton
Posts: 3
Joined: Sun May 16, 2004 1:33 am

Post by Jones » Sun May 16, 2004 1:35 am

One small bug if you are doing mass enchant spells and you fall below 20% it will spam the spell till you have the mana for it so raise the min % mana to med if you need to and it will work fine

Code: Select all

#include spellcast.inc
#event NoComponents "You are missing some required components."
Sub Main
      /declare SpellName
   /varset SpellName ${Me.Gem[${Param0}]}
   :castloop
   /stand
   /call cast "${SpellName}"
   /doevents
   :CheckCursor
   /if (${Cursor.ID}) {
      /autoinv
      /goto :CheckCursor
   }
   :CheckMana
   /if (${Me.PctMana}>20) {
      /goto :castloop
   }
   /sit
   :medup
   /delay 60s ${Me.PctMana}>98
   /if (${Me.PctMana}>98) /goto :castloop
   /goto :medup   
/return

Sub Event_NoComponents
   /popup No More Items to Make
   /end
/return

DumbStruck
a ghoul
a ghoul
Posts: 125
Joined: Fri Apr 30, 2004 8:46 am

Post by DumbStruck » Sun May 16, 2004 2:27 am

MrClicky said :
I'm getting an error message when trying to run this macro:

SubRoutine Main not found.
This happend to me make sure u are saveing macro right!
: under ansi and saving it as blahblahblah.mac

Bardmad
a lesser mummy
a lesser mummy
Posts: 36
Joined: Mon Apr 05, 2004 4:55 am

Post by Bardmad » Sun Sep 19, 2004 12:00 pm

hmm.. after the OOW patch, it doesnt seem working... anyone can tell me why pls?