You'll want to load your quickbar up with items that get progressively harder. This macro will make them until you get so many successes in a row then move on to the next quickbar slot. Starting at 1 going through '10' . It will automatically sell the item that appears in the inventory slot you initialize it with.
Make sure you have the npc you want to sell to before you run the script, the autosell will only work for tailoring, unless you happen to find an npc close enough to a forge or lathe etc.
Code:
Dim $CraftCount, $CraftSlot $CurrentCraft = 1 MsgBox (0, "Mouse position Init 1", "Place cursor over empty item slot to sell from then press spacebar to save that position") $LootSlotPosition = MouseGetPos() $LSlotColor = PixelGetColor ($LootSlotPosition[0], $LootSlotPosition[1]) MsgBox (0, "Mouse Position Init 2", "Move cursor over craft progress window") $CWinPos = MouseGetPos() $CwinColor = PixelGetColor ($CWinPos[0], $CWinPos[1]) Do $CraftCount = InputBox ("Run count init", "How many attempts should this do ?", "") $QuitAfter = MsgBox (4, "Exit After Run", "Do you want the script to exit DAoC after its done?") $foo = 0 $SCount = 0 While $foo <= $CraftCount WinActivate ("Dark Age") Send ($CurrentCraft) Sleep (2000) While PixelGetColor ($CWinPos[0], $CWinPos[1]) = $CWinColor Sleep (500) WEnd Sleep (Random(1000,4000)) If PixelGetColor($LootSlotPosition[0], $LootSlotPosition[1]) = $LSlotColor Then $SCount = 0 Else WinActivate ("Dark Age") MouseMove ($LootSlotPosition[0], $LootSlotPosition[1], 0) MouseClick ("left") Send ("+S") Sleep (Random(100,2000)) $SCount = $SCount + 1 Endif ;**************************1 ;-The Number in the next line is the succes count ; it has to reach before crafting the next slot If $Scount > 6 Then ;*************************** $CurrentCraft = $CurrentCraft + 1 If $CurrentCraft > 9 Then Exit EndIf EndIf $foo = $foo + 1 WEnd If $QuitAfter = 6 Then Send ("/q") Sleep (25000) Send ("{ESC}") Sleep (10000) Send ("{ESC}") Exit Endif $Again = MsgBox (4, "Again?", "Run again with same window positions?") Until $Again = 7 Exit