Spell Practice (sp.mac)

LamahHerder · Post by **LamahHerder** » Mon Sep 22, 2003 11:32 am

sp.mac

recast a spell to increase skill, no bells no whistles.

|=================|
|    09/12/03	  |
|_________________|
|                 |
|  Spell Practice |
|     by m0nk	  |
|_________________|
|
| /macro recast Gem#
|

#turbo
#event CF-lom "Insufficient Mana to cast this spell" 

Sub Main
	/varset v1 $p0
	/varset v2 "$char(gem,$v1)"
	/stand
	/echo Casting $v2 in slot $v1
	/call Loop
/endmacro

Sub Loop	
	:Loop
		/doevents
		/if n $char(gem,"$v2")<0 /goto :Loop
		/cast $v1
	/goto :Loop
/return

Sub Event_CF-lom
	/sit

	:Med
		/delay 30
		/if n $char(mana,pct)<90 /goto :Med
		/stand
/return

TheColonel · Post by **TheColonel** » Tue Sep 23, 2003 1:49 pm

I have one similar, only it takes a few different arguments, and runs until the skill for each is maxxed, then camps out. I had to hard-code the skill order since there is currently no way to grep the skill from the spell.... which I think should be updated.

Rassilon · Post by **Rassilon** » Wed Sep 24, 2003 3:16 am

I tried to run it just as it is and eq keeps crashing. I do: /macro sp 1 .. Then it give the msg that its beginning to cast and then I get the EQ error msg box and then eq closes.

Thanks,

Rass

MQSEQ · Post by **MQSEQ** » Wed Sep 24, 2003 8:42 am

I used the basic script but I also added a Autodrop feature so that I could Enchant Gold.

Code: Select all


|  Spell Practice by m0nk      

| /macro cast gem#

#turbo
#Event NoMana    "Insufficient Mana to cast this spell"
#Event Sitting   "You must be standing to cast a spell."
#Event Recovered "You haven't recovered yet..."
#Event BusyCast  "You can't use that command while casting..."

Sub Main
	/if n $strlen("$p0")<=0 {
		/echo Usage: /macro cast gem#
		/endmacro
	}
	/varset v1 $p0
	/varset v2 "$char(gem,$v1)"
	/stand
	/call Loop
/return

Sub Loop
	:Loop
	/doevents
	/if n $char(gem,"$v2")<0 /goto :Loop

	:CheckCursor
	/delay 0s
	/if $cursor()==TRUE {
		/click left auto
		/delay 1s
		/goto :CheckCursor
	}

	/cast $v1

	/goto :Loop
/return

Sub Event_NoMana
	/sit off
	/sit on

	:Med
	/delay 30s
	/if n $char(mana,pct)<90 /goto :Med
	/stand
/return

Sub Event_Sitting
   /stand
   /delay 2s
/return

Sub Event_Recovered
   /delay 5s
/return

Sub Event_BusyCast
   /delay 5s
/return