[openEUO] cratflib v1.1

If you make a Client-side script you can publish it here for other players to use
Locked
Penny
Legendary Scribe
Posts: 210
Joined: Thu Oct 01, 2009 12:05 pm

[openEUO] cratflib v1.1

Post by Penny »

Code: Select all

-- Craft v1.1
Craft = {}

local C = Craft

local CategoryX = 30
local CategoryY = {90,110,130,150,170,190,210,230,250,270,290,310}
local ItemX = 230
local ItemY = {70,90,110,130,150,170,190,210,230,250}
local NextPageX = 380
local NextPageY = 270
local MakeLastX = 290
local MakeLastY = 410
local SelectMaterialX = 30
local SelectMaterialY = 370
local SelectMaterialNextPageX = 500
local SelectMaterialNextPageY = 270
local SmeltItemX = 30
local SmeltItemY = 350
local CraftGumpSizeX = 530
local CraftGumpSizeY = 437

C.LastItemType = nil
C.CraftedID = {}
C.ItemsInBackpack = {}

C.Material = {
Iron = 1,
DullCopper = 2,
ShadowIron = 3,
Copper = 4,
Bronze = 5,
Gold = 6,   
Agapite = 7,
Verite = 8,
Valorite = 9,
BlazeIngot = 10,
Ice = 11,
Toxic = 12,
Electrum = 13,
Platinum = 14,
Board = 1,
Pine = 2,
Ash = 3,
Mohogany = 4,
Yew = 5,
Oak = 6,
Zircote = 7,
Ebony = 8,
Bamboo = 9,
PurpleHeart = 10,
Redwood = 11,
Petrified = 12,
Leather = 1,
Spined = 2,
Horned = 3,
Barbed = 4,
Polar = 5,
Synthetic = 6,
BlazeLeather = 7,
Daemonic = 8,
Shadow = 9,
Frost = 10,
Ethereal = 11
}

function C.MakeLast(a)
   if a == nil then
      a = 1
   end
   for i = 1,a do
      print("Makelast: " .. i .. "/" .. a) 
      Click.Gump(MakeLastX,MakeLastY)
      WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
   end
end

function C.SelectCategory(a)
   Click.Gump(CategoryX,CategoryY[a])
   WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
end

function C.SelectItem(a)
   while a > 10 do
      Click.Gump(NextPageX,NextPageY)
      WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
      a = a - 10
   end
   Click.Gump(ItemX,ItemY[a])
   WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
end

function C.SelectMaterial(a)
   Click.Gump(SelectMaterialX,SelectMaterialY)
   WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
   if a > 10 then
      Click.Gump(SelectMaterialNextPageX,SelectMaterialNextPageY)
      WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
      a = a - 10
   end
   Click.Gump(ItemX,ItemY[a])
   WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
end

function C.OpenTool(sProf)
   if sProf == "smith"     then toolType = Type.SMITHSHAMMER end
   if sProf == "tailor"    then toolType = Type.SEWINGKIT end
   if sProf == "bowyer"    then toolType = Type.ARROWFLETCHING end
   if sProf == "carpenter" then toolType = Type.SAW end
   if sProf == "tinker"    then toolType = Type.TOOLKIT end
   if sProf == "scribe"    then toolType = Type.SCRIBESPEN end
   if sProf == "alchemist" then toolType = Type.MORTARANDPESTLE end
   if FindItem.Cont(toolType,UO.BackpackID) then
      UO.LObjectID = FindItem.ID[1]
      UO.Macro(17,0)
      WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
      return true
   end
   
   return false
end

function C.Smelt(itemID)
   Click.Gump(SmeltItemX,SmeltItemY)
   WaitForTarget()
   UO.LTargetID = itemID
   UO.LTargetKind = 1
   UO.Macro(22,0)
   WaitForGump(CraftGumpSizeX,CraftGumpSizeY)
end

function C.Cut(itemID)
   UO.LObjectID = cutToolID
   UO.Macro(17,0)
   WaitForTarget()
   UO.LTargetID = itemID
   UO.LTargetKind = 1
   UO.Macro(22,0)
   wait(500)   
end

function C.DestroyItem(sProf,itemID)
   if sProf == "smith" then C.Smelt(itemID) end
   if sProf == "tailor" then C.Cut(itemID) end
   if sProf == "bowyer" then C.Smelt(itemID) end
   if sProf == "carpenter" then C.Smelt(itemID) end
end

function C.Make(sProf,nCat,nItem,nMat,nAmnt)
   if C.OpenTool(sProf) then
      C.ItemsInBackpack = {}
      C.CraftedID = {}
      if FindItem.Cont("all",UO.BackpackID) then
         for i=1,FindItem.N do
            table.insert(C.ItemsInBackpack,FindItem.ID[i])
         end
      end
      backpackString = table.concat(C.ItemsInBackpack,"_")
      if nMat then
         C.SelectMaterial(nMat)
      end
      C.SelectCategory(nCat)
      C.SelectItem(nItem)
      -- Set LastItemType
      if FindItem.Cont("all",UO.BackpackID) then
         backpackString = table.concat(C.ItemsInBackpack,"_")
         for i = 1,FindItem.N do
            IDstr = ""..FindItem.ID[i]
            if not string.find(backpackString,IDstr) then
               C.LastItemType = FindItem.Type[i]
               break
            end
         end
      end
      C.MakeLast(nAmnt-1)
      FindItem.Cont(C.LastItemType,UO.BackpackID)
      for i=1,FindItem.N do
         if not string.match(backpackString,""..FindItem.ID[i]) then
            table.insert(C.CraftedID,FindItem.ID[i])
         end
      end
      Click.CloseGump()
      UO.SysMessage("Craft done!")
   end
   return true
end

function C.MakeExc(sProf,nCat,nItem,nMat,nAmnt)
   C.ItemsInBackpack = {} -- Saving the IDs of the items in Backpack, so they won't be destroyed
   if sProf == "tinker" or sProf == "scribe" or sProf == "alchemist" then
      C.Make(sProf,nCat,nItem,nMat,nAmnt)
      return
   end
   if sProf == "tailor" then
      FindItem.Cont(Type.SCISSORS,UO.BackpackID)
      cutToolID = FindItem.ID[1]
   end
   if FindItem.Cont("all",UO.BackpackID) then
      for i=1,FindItem.N do
         table.insert(C.ItemsInBackpack,FindItem.ID[i])
      end
   end
   -- Make one item
   if C.OpenTool(sProf) then
      C.SelectMaterial(nMat)
      C.SelectCategory(nCat)
      C.SelectItem(nItem)
   end
   -- Get the item type
   if FindItem.Cont("all",UO.BackpackID) then
      backpackString = table.concat(C.ItemsInBackpack,"_")
      for i = 1,FindItem.N do
         IDstr = ""..FindItem.ID[i]
         if not string.find(backpackString,IDstr) then
             C.LastItemType = FindItem.Type[i]
             break
         end
      end
   end
   if UO.ContSizeX ~= CraftGumpSizeX then 
      print("reopened!")
      C.OpenTool(sProf) 
   end
   C.MakeLast(nAmnt-1)
   print("nAmnt: "..nAmnt)
   notDone = true
   print("Looking for non-exceptionals")
   while notDone do
      FindItem.Cont(C.LastItemType,UO.BackpackID)
      for i=1,FindItem.N do
         if not string.match(backpackString,""..FindItem.ID[i]) then
            name,stats = UO.Property(FindItem.ID[i])
            wait(100)
				if stats == "" then
					wait(1000)
					print("Failed to get property, trying again..")
					name,stats = UO.Property(FindItem.ID[i])
				end
            if not string.match(name,"Exceptional") and not string.match(stats,"Exceptional") then
               print("Non-exc found, printing properties: ",name,stats)
               C.DestroyItem(sProf,FindItem.ID[i])
            end
         end
      end
      print("Smelting/cutting done, counting items")
      -- Count Items
      FindItem.Cont(C.LastItemType,UO.BackpackID)
      print("Total amount found:",FindItem.N)
      checkAmnt = 0
      C.CraftedID = {}
      for i=1,FindItem.N do
         if not string.match(backpackString,""..FindItem.ID[i]) then
            checkAmnt = checkAmnt + 1
            table.insert(C.CraftedID,FindItem.ID[i])
         end
      end
      print("Amount of items found for BOD:",checkAmnt)
      amntToMake = nAmnt - checkAmnt
      print("Amount to make:",amntToMake)
      if amntToMake == 0 then
         notDone = false
      else
         C.MakeLast(amntToMake)
      end
   end
   print("C.CraftedID length: " .. # C.CraftedID)
   print("Crafting done")
   Click.CloseGump()
   UO.SysMessage("Craft done!")
end
Last edited by Penny on Sun Jan 23, 2011 10:02 am, edited 1 time in total.
Failure is not an option, it's a standard.
Top
Penny
Legendary Scribe
Posts: 210
Joined: Thu Oct 01, 2009 12:05 pm

Re: [openEUO] cratflib v1.0

Post by Penny »

You need to load basiclib.lua in your script before this.

How to use:

Code: Select all

Craft.Make(sProf,nCat,nItem,nMat,nAmnt) -- Crafts items (exceptional or normal)
Craft.MakeExc(sProf,nCat,nItem,nMat,nAmnt) -- Crafts exceptional items until said amount made, smelts/chops non-exc items
sProf = name of the profession "smith"/"tailor"/"bowyer"/"carpenter"/"tinker"/"scribe"/"alchemist"
nCat = number of the category, counted from up to down (e.g. for smithing Ringmail=1, Chainmail=2 )
nItem = number of the item, counted from up to down ( e.g. ringmail sleeves=3, platemail kabuto = 12)
nMat = number of the material used ( iron = 1, dull copper = 2, blazeleather = 7, ebony wood = 8 )
you can also use the variably Craft.[Material], e.g. Craft.ShadowIron
use nil if you're making potions or scrolls
nAmnt = How many to make

After it's done:
You will have a couple variables storing some information
Craft.LastItemType -- stores the item type of the item last made
Craft.CraftedID -- table containing IDs of the crafted items
Craft.ItemsInBackpack -- table containing IDs of the other items in your backpack

There's other functions too if you need, read the script.

Note:
In order to craft, you'll need enough tool uses, resources in your backpack.
Also, if making tailor items, you'll need scissors too.
Failure is not an option, it's a standard.
Top
Locked

Return to “Published Macros”