Combine macro for the hand copied notes. It will find the quill and notes along with the container and combine until you hit 100. I've only ran it once, seems ok. Let me know if any issues.
Rich (BB code):
| Does alaran combine for Words of the Unspoken quest in Shard's Landing
| 2013-02-24 - by Sym
Sub Main
/declare Item[2] string outer
/varset Item[1] Nostulia's Quill
/varset Item[2] Hand Copied Alaran Notes
/declare TradeContainer string outer pack1
/declare a int
/declare tcTmp string
/for a 1 to 10
/varset tcTmp ${InvSlot[pack${a}].Item}
/if (${tcTmp.Find[Tome of Blank Pages]}) /varset TradeContainer pack${a}
/next a
:Start
/doevents
/if (${Cursor.ID}) {
/itemnotify in ${TradeContainer} 1 leftmouseup
/delay 1s !${Cursor.ID}
}
/if (${Cursor.ID}) {
/itemnotify in ${TradeContainer} 2 leftmouseup
/delay 1s !${Cursor.ID}
}
/if (!${InvSlot[${TradeContainer}].Item.Item[1].ID} || !${InvSlot[${TradeContainer}].Item.Item[2].ID}) {
/for a 1 to 2
/if (!${InvSlot[${TradeContainer}].Item.Item[${a}].ID}) {
/if (${FindItem[=${Item[${a}]}].InvSlot} > 0) {
/nomodkey /ctrl /itemnotify ${FindItem[=${Item[${a}]}].InvSlot} leftmouseup
/delay 2 ${Cursor.ID}
/itemnotify in ${TradeContainer} ${a} leftmouseup
} else {
/e All finished
/endm
}
}
/delay 2
/next a
}
/combine ${TradeContainer}
/delay 1s ${Cursor.ID}
/goto :Start
/return