So you plan on storing your scripts on our site as your backup?

Wasn't that a freeshard donation script that didn't work?

I believe there's crafting subs released that you could use, where you just pick the number your crafted item is on the menu, and page they are on in the menu itself and it will click them where ever the menu is on your screen.

; Set this up
Set %tool TBG ; With what do you want to craft
Set %rawMaterial ENK ; Resourse type wich you will use to craft
Set %stack 150 ; how much materials do you need to craft
Set %trash NSH ; crafted item
Set %secure HQLUWMD ; From where do you want to gain materials and tools
Set %secureForItems APGMKMD ; A place where you want to put crafted item . It can be also a trash barrel.
Set %skill Blac ; What skill do you want to train. See http://wiki.easyuo.com/index.php/ChooseSkill for a full list.
Set %skillValue 1064 ; What is the last gain to change item-craft-type. If you want to disable that - put more than 1200.
Set %DragOrSmelt Smelt ; Drag = drag, Smelt = smelt or cut.
Set %SmeltOrCut Smelt ; Cut = cut, Smelt = smelt.
Set %scissiors TGB ; scissiors type
; Do not touch this
chooseSkill %skill
if #skill >= %skillValue
{
      msg Last gain. Choose new item to craft and adjust the script again.
   halt
   }
finditem %rawMaterial C_ , #backpackid
If #findstack < %stack
{
      finditem %rawMaterial C_ , %secure
      Exevent Drag #findid %stack
      Exevent Dropc #backpackid
      wait 15
   }
finditem %tool C_ , #backpackid
   if #findcnt < 1
  {
      finditem %tool C_ , %secure
      if #findcnt > 0
    {
         Exevent Drag #findid
         Exevent Dropc #backpackid
      }
      else
    {
         display ok No more tools =(
      halt
      }
   }
set #lobjectid #findid
event macro 17 0
wait 15
click 330 465 ; Make last button position
finditem %trash C_ , #backpackid
if #findcnt > 0
{
   If %DragOrSmelt = Drag
  {
      Exevent Drag #findid #findstack
      Exevent Dropc %secureForItems
      wait 15
   }
   If %DragOrSmelt = Smelt
  {
      If %SmeltOrCut = Cut
    {
         finditem %scissiors
         set #lobjectid #findid
         event macro 17 0
         wait 5
         finditem %trash C_ , #backpackid
         set #ltargetid #findid
         set #ltargetkind 1
         event macro 22
      }
      If %SmeltOrCut = Smelt
    {
      finditem %tool C_ , #backpackid
         set #lobjectid #findid
         event macro 17 0
         wait 5
         click 80 400 ; Smelt item button position
         finditem %trash C_ , #backpackid
         set #ltargetid #findid
         set #ltargetkind 1
         event macro 22
      }
   }
}