auto-Crafting

Basically I was burnt on the joke of a crafting system.
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 &#036;CraftCount, &#036;CraftSlot 
&#036;CurrentCraft = 1 
MsgBox &#40;0, &#34;Mouse position Init 1&#34;, &#34;Place cursor over empty item slot to sell from then press spacebar to save that position&#34;&#41; 
&#036;LootSlotPosition = MouseGetPos&#40;&#41; 
&#036;LSlotColor = PixelGetColor &#40;&#036;LootSlotPosition&#91;0&#93;, &#036;LootSlotPosition&#91;1&#93;&#41; 
MsgBox &#40;0, &#34;Mouse Position Init 2&#34;, &#34;Move cursor over craft progress window&#34;&#41; 
&#036;CWinPos = MouseGetPos&#40;&#41; 
&#036;CwinColor = PixelGetColor &#40;&#036;CWinPos&#91;0&#93;, &#036;CWinPos&#91;1&#93;&#41; 
Do 
&#036;CraftCount = InputBox &#40;&#34;Run count init&#34;, &#34;How many attempts should this do ?&#34;, &#34;&#34;&#41; 
&#036;QuitAfter = MsgBox &#40;4, &#34;Exit After Run&#34;, &#34;Do you want the script to exit DAoC after its done?&#34;&#41; 
&#036;foo = 0 
&#036;SCount = 0 
While &#036;foo &#60;= &#036;CraftCount 
  WinActivate &#40;&#34;Dark Age&#34;&#41; 
  Send &#40;&#036;CurrentCraft&#41; 
  Sleep &#40;2000&#41; 
  While PixelGetColor &#40;&#036;CWinPos&#91;0&#93;, &#036;CWinPos&#91;1&#93;&#41; = &#036;CWinColor 
  Sleep &#40;500&#41; 
  WEnd 
  Sleep &#40;Random&#40;1000,4000&#41;&#41; 
  If PixelGetColor&#40;&#036;LootSlotPosition&#91;0&#93;, &#036;LootSlotPosition&#91;1&#93;&#41; = &#036;LSlotColor Then 
  &#036;SCount = 0 
   Else 
     WinActivate &#40;&#34;Dark Age&#34;&#41; 
    MouseMove &#40;&#036;LootSlotPosition&#91;0&#93;, &#036;LootSlotPosition&#91;1&#93;, 0&#41; 
    MouseClick &#40;&#34;left&#34;&#41; 
  Send &#40;&#34;+S&#34;&#41; 
  Sleep &#40;Random&#40;100,2000&#41;&#41; 
  &#036;SCount = &#036;SCount + 1 
  Endif 
;**************************1 
;-The Number in the next line is the succes count 
; it has to reach before crafting the next slot 
  If &#036;Scount > 6 Then 
;*************************** 
    &#036;CurrentCraft = &#036;CurrentCraft + 1 
   If &#036;CurrentCraft > 9 Then 
    Exit 
   EndIf  
  EndIf 
  &#036;foo = &#036;foo + 1 
WEnd 
If &#036;QuitAfter = 6 Then 
  Send &#40;&#34;/q&#34;&#41; 
  Sleep &#40;25000&#41; 
  Send &#40;&#34;{ESC}&#34;&#41; 
  Sleep &#40;10000&#41; 
  Send &#40;&#34;{ESC}&#34;&#41; 
  Exit 
Endif 
&#036;Again = MsgBox &#40;4, &#34;Again?&#34;, &#34;Run again with same window positions?&#34;&#41; 
Until &#036;Again = 7 
Exit