count = 0
ScannedIt = 0x140E
Bagsuperior = 0x404DDFE2

for item in Player.Backpack.Contains:
    if( item.ItemID == ScannedIt):
        Journal.Clear()
        Player.UseSkill("Arms Lore")
        Target.WaitForTarget(1000)
        Target.TargetExecute(item)
        Misc.Pause(12000)
        if( Journal.Search("superior quality")):
            count = count + 1
            Items.Move(item, Bagsuperior,1)
            Misc.Pause(500)

Misc.SendMessage(str(count))