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
runterladen, code einfügen, starten 
