OpenEUO Craft and BOD Filling script

-- overrided GetBODInfo
IMT.__index = function(table,key)
	if key == "Name" or key == "Details" then
		local Name,Details = UO.Property(table.ID)
		rawset(table,"Name",string.match(Name,"[%s%d]*(.+)"))
		rawset(table,"Details",Details)
	end
	if key == "Property" then
		local Property = GetItemData(table.Details)
		Property.Name = table.Name
		rawset(table,"Property",Property)
	end
	if key == "BODInfo" then
		rawset(table,"BODInfo",GetBODInfo(table.Details,table.Col))
	end
	return rawget(table,key)
end
local patternPhrases = {
      Size = "Bulk Order",
      Amount = "Amount To Make",
      Quality = "All Items Must Be Exceptional",
      Material = "All Items Must Be Made With",
      MaterialType = "With .* Ingots",
      Name = ".*:",
      Digits = "[%w%s]+: (%d+)"
}
local function parseBODInfoString(BODInfo, string)
      if string.match(string,patternPhrases.Size) ~= nil then
         BODInfo.Size = string.sub(string,1,5) 
      elseif string.match(string,patternPhrases.Amount) ~= nil then 
         BODInfo.Amount = tonumber(string.match(string,patternPhrases.Digits))
      elseif string.match(string,patternPhrases.Quality) ~= nil then
         BODInfo.Quality = "exceptional"
      elseif string.match(string,patternPhrases.Material) ~= nil then 
         BODInfo.Material = string.sub(string.match(string,patternPhrases.MaterialType),6,-8)
      else
          local indx = table.getn(BODInfo.Items)+1
          BODInfo.Items[indx] = {}                                                                          
          BODInfo.Items[indx].Name = string.lower(string.sub(string.match(string,patternPhrases.Name),1,-2))
          BODInfo.Items[indx].Done = tonumber(string.match(string,patternPhrases.Digits))
      end
      return BODInfo
end
local BSmithBodCol = 1102
local TailorBODCol = 1155
GetBODInfo = function(Details,Color)
        local DefaultMaterialType
        if Color == BSmithBodCol then
           DefaultMaterialType = 'Iron'
        elseif Color == TailorBODCol then 
           DefaultMaterialType = 'Leather'      
        end
        
	if type(Details) == "number" then
		local Name
		Name,Details = UO.Property(Details)
		if Name ~= "A Bulk Order Deed" or string.len(Details) == 0 then
			print("GetBODInfo - error item ID:"..ID.." is not a BOD")
			return nil
		end
	end
	local GetLine = string.gfind(Details,"([^%c]+)%c*")
	GetLine() -- Blessed
	GetLine() -- Weight: 1 Stone
	local RetVal = {
              Size = "Small",
              Quality = "normal", -- optional
              Material = DefaultMaterialType, -- optional
              Amount = 0,
              Items = {}
        }
        local BODInfoString = GetLine()
        while BODInfoString ~= nil do 
            RetVal = parseBODInfoString(RetVal, BODInfoString)
            BODInfoString = GetLine() 
        end 
	return RetVal
end

Size,Quality,Material,Amount,Items
где Items = {{Name,Done},{Name,Done},{Name,Done},...}

dofile('modules/modCraft.lua')

local Item = {
      itemName = "dagger", // название предмета в нижнем регистре
      categoryName = "Bladed", // категория, как она написана в гампе инструмента
      amount = 3, // сколько надо сделать
      Material = "Dull Copper", // название материала ("Iron","Copper","Gold", "Leather"...)
      Quality = "normal" // "normal" или "exceptional"
}
Craft.make(Item,toolType,toolColor)

BOD = Craft.findBOD(size,material,quality,amount,itemsNames,strictAmount,completed)

Craft.fillBOD(BOD)

dofile('modules/modCraft.lua')

Types = {
      Tool     = {
               SmithsHammer = 5091,
               Tongs = 4027,
      },
}

local Item = {
      itemName = "dagger",
      categoryName = "Bladed",
      amount = 3,
      Material = "Dull Copper",
      Quality = "normal"
}

Craft.make(Item,Types.Tool.SmithsHammer)
wait(1000)
Craft.fillBOD(Craft.findBOD("Small","Dull Copper","normal",10,{Item.itemName}))

Craft.fillBOD(Craft.findBOD("Large","Iron","normal",10,{"ringmail gloves","ringmail tunic","ringmail sleeves","ringmail leggings"},true))