Enchanting bars

[Annette]

Hi All

Did a search and found this one, but when I run it, it opens my bags and selects a full stack of bars and flashes real fast between the stack amount and the bag ??? I have no idea as ro why, Im not Script savvy sorry to say, any help would be real nice.


Annette


Usage "/macro EnchantPlat.mac

|#include routines.mac
#Event OOM "Insufficient Mana to cast this spell!"

Sub Main
:Loop
/varset l0 0 | [0/1] I had to med, dont wait for enchant/Inv drop of enchanted.
/cleanup
/finditem "Platinum Bar"
/if $find()==FALSE {
/echo "Buy More Bars!"
/goto :End
}
/if $cursor()==TRUE {
/click left auto
/cleanup
/stand
/cast 6
/doevents
| /echo Debug -1-
/if n $l0>0 /goto :Loop
/delay 8s
/click left auto
/delay 3s
| /echo Debug -2-
}
/goto :Loop
:End

/return

Sub Event_OOM
/varset l0 1
/cleanup
/press i
/sit
/delay 3m
/stand
/return



and would this med script be good for this ?

|-------------------Med Section---------------------------------------|

Sub Meditate
/echo Medding to 100% mana and logging!
/if $gm==TRUE /call log |for those who are paranoid - like myself
/stand
/sit
/call meditate

/return

Sub Meditate
:Medding
/delay 10s
/if n $char(mana,pct)<100 /goto :medding
/if n $char(mana,pct)>=100 /call log
/return

|-------------------Med Section End-------------------------------------|


Thks to all who wrote these macros, I cut & Paste so the names who wrote them are missing, sorry dont want to offend anyone.



Annette

[Token]

I use this macro that I butchered from others. Quite frankly, I have difficulty typing /mac, so there are *definitely* better ways of doing this. There is no event handling. I macro while at the keyboard, so I do things like OoM and supply management manually. There is also no handling for fizzles.. I just wait for the next cycle.

Depending on what you're casting, you may have to adjust the delay from 80 to whatever is appropriate. The other delays may also be excessive. You'll also need to change the '4' in '/cast 4' to whichever spell slot number you currently have your enchant spell memmed.

|Simple enchant macro.

#include routines.mac

Sub Main

:Makeitem

/sendkey down ctrl
/finditem "<replace with component name>"
/delay 5
/cast 4
/delay 80
/click left auto
/delay 5
/goto :Makeitem

/return

[Malachi]

Same old questions...
Using the old UI?
I bet not.

~malachi

[Catt]

Below is what I use to Imbue Emeralds, if you change the spell (slot 7, 2nd from bottom) to Enchant X it will work for that too. It will Imbue/Enchant as many as you have, medding when you run out of mana, stopping when you run out of supplies. Use old UI macro uses "/click left auto", may be useless soon, hearing very little about supporting new UI clicks, even with the old UI going away.

Code: Select all

| - ImbueEmeralds.mac - 
|
| Have Imbue Emerald in Gem 7 
| 

#Event CastStart "You begin casting" 
#Event CastFizzle "Your spell fizzles!" 
#Event CastComp "You are missing some required spell components."
#Event CastOOM "Insufficient Mana to cast this spell!"

Sub Main
	:ReCast 
	/varset v1 0 
	/cast 7 
	/delay 1s 
	/doevents 
	/if n $v1>0 /goto :ReCast
	:wait
	/delay 1
	/if "$cursor()"=="FALSE" /goto :wait
	:stow
	/delay 1
	/click left auto
	/if "$cursor()"=="TRUE" /goto :stow
	/goto :ReCast 
/return 

Sub Event_CastStart 
   	/delay 8s 
/return 

Sub Event_CastFizzle 
	/varset v1 1 
/return 

Sub Event_CastComp
	/endmacro
/return

Sub Event_CastOOM
	/sit 
	:medding 
	/delay 7s 
	/if n $char(mana,pct)<100 /goto :medding
	/stand
	/varset v1 1
/return