Small Stone Macro

[Catar]

Ok created macro, made it just a little more advanced,
but tested it and, it works as I intended.

Macro will PUT ON small stones when you have more than 20 of them, and will keep putting more in the hand if u loot them unitl you run out.
When you run out of stones, it will put back a weapon, and wait until u have 20 stones again.




What you need to do, is to change SwordID:=3319 to ID of your weapon besides stones

and StoneUse:=20 is the number of stones you want to collect before starting using them

copy and paste this
[macro]400 {StoneSword} StoneID:=1781 SwordID:=3319 StoneUse:=20 StoneQT:=Misc.ItemCountEx(!StoneID!) StoneHandQT:=Self.Inventory.LeftHand.Count() leftH:=Self.Inventory.LeftHand() !StoneQT!>=!StoneUse! [ON] !leftH!<>!StoneID! [a1] Self.Equip.LeftHand(!StoneID!) exit() {a1} !StoneQT!>!StoneHandQT! [b1] Self.Equip.LeftHand(!StoneID!) exit() {b1} exit() {ON} !leftH!<>!StoneID! [a2] !leftH!==0 [b2] Self.Equip.LeftHand(!SwordID!) exit() {b2} !leftH!<>!SwordID! [c1] Self.Equip.LeftHand(!SwordID!) exit() {c1} exit() {a2} Label(a1) exit() [/macro]
If you don't know where to copy it, watch video in my thread, link in signature


here is a code if someone wants to look at it ;d

I know it looks like a mess, but its bunch of loops and IFs conditions

Code:

StoneID:=1781
SwordID:=3319
StoneUse:=20
StoneQT:=Misc.ItemCountEx(!StoneID!)
StoneHandQT:=Self.Inventory.LeftHand.Count()
leftH:=Self.Inventory.LeftHand()
!StoneQT!>=!StoneUse! [ON]
!leftH!<>!StoneID! [a1]
Self.Equip.LeftHand(!StoneID!)
exit()
{a1}
!StoneQT!>!StoneHandQT! [b1]
Self.Equip.LeftHand(!StoneID!)
exit()
{b1}
exit()
{ON}
!leftH!<>!StoneID! [a2]
!leftH!==0 [b2]
Self.Equip.LeftHand(!SwordID!)
exit()
{b2}
!leftH!<>!SwordID! [c1]
Self.Equip.LeftHand(!SwordID!)
exit()
{c1}
exit()
{a2}
Label(a1)
exit()