Code: Select all
|ForageDestroy.mac
|Based off of Grimjack's forage.mac - Thank you =)
|edit the /varset DestroyArray to reflect what you want to destroy.
|If you add more update DestArraySize to reflect the change.
|The next value in the array would be like this.
|/varset DestroyArray(20) "what you want"
|And you would update DestArraySize like this.
|/varset DestArraySize 21
|
|Edited by Xander for mq2data & mq2datavars compliance
sub Main
/cleanup
/declare LoopCount int outer
/declare DestroyArray[9] string outer
/declare DestArraySize int outer
/varset DestroyArray[1] "Small Chunk of Velium"
/varset DestroyArray[2] "Berries"
/varset DestroyArray[3] "Fruit"
/varset DestroyArray[4] "Roots"
/varset DestroyArray[5] "Rabbit Meat"
/varset DestroyArray[6] "Arctic Mussels"
/varset DestroyArray[7] "Arctic Scallop"
/varset DestroyArray[8] "Glob of Slush Water"
/varset DestroyArray[9] "Fishing Grubs"
/varset DestArraySize 9
/varset LoopCount 0
:Forage
/delay 1s
/if (${Cursor.ID}) /call ItemSort
/if (!${Cursor.ID}) {
/if (${Me.Skill[Forage]} > 0) /doability forage
}
/if (${Cursor.ID}) /call ItemSort
/goto :Forage
:loop
/return
sub ItemSort
:itemchecker
/if (${Cursor.ID}) {
/if (${Cursor.Name.Find[${DestroyArray[${LoopCount}]}]}) {
/echo Destroying ${Cursor.Name}
/destroy
/delay 2s
}
/varcalc LoopCount ${LoopCount}+1
|/varadd LoopCount 1
/if (${Cursor.ID}) {
/if (${LoopCount}<${DestArraySize}) /goto :itemchecker
}
}
/if (${Cursor.ID}) {
/echo Keeping ${Cursor.Name}
/autoinventory
/delay 1s
}
/doevents
/varset LoopCount 0
/return
