Yoko

Code: Select all

Var Forge='0x401FD813' ;Это форжа
Var Sunduk='0x400AEE18' ;Это сундук где инги
Var TItem='0x1404' ;Это тип итема который крафтаем, War Fork в данном случае

sub MenuIron()
   uo.cancelmenu()
   uo.automenu('Blacksmithing','Weapons')
   uo.automenu('Weapons','Spears & Forks')
   uo.automenu('Spears & Forks','war fork (8 iron ingot)')
end sub

sub MenuColor()
   uo.cancelmenu()
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Weapons')
   uo.automenu('Weapons','Spears & Forks')
   uo.automenu('Spears & Forks','War Fork')
end sub

sub BlacksmithyWarFork()
VAR i=1

Dim TIngot[18] ; Типы ингов
For i=1 To 18
   TIngot[i]='0x1BEF' ;Большинство ингов этого типа
next
TIngot[5]='0x1BE3' ;Copper
TIngot[7]='0x1BE5' ;Silver
TIngot[9]='0x1BE9' ;Shadow

Dim CIngot[18] ; Цвета ингов
CIngot[1]='0x0000' ;Iron
CIngot[2]='0x0750' ;Rusty
CIngot[3]='0x0590' ;Old Copper
CIngot[4]='0x060A' ;Dull Copper
CIngot[5]='0x0000' ;Copper
CIngot[6]='0x0488' ;Bronze
CIngot[7]='0x0000' ;Silver
CIngot[8]='0x0000' ;Gold
CIngot[9]='0x096B' ;Shadow
CIngot[10]='0x0014' ;Rose
CIngot[11]='0x0193' ;Agapite
CIngot[12]='0x04C2' ;Blood Rock
CIngot[13]='0x07D5' ;Verite
CIngot[14]='0x00CE' ;Valorite
CIngot[15]='0x052D' ;Mytheril
CIngot[16]='0x0455' ;Black Rock
CIngot[17]='0x0028' ;Obsidian
CIngot[18]='0x08AF' ;Plutonium

MenuIron()

uo.useobject(Sunduk)
wait(200)

While 1==1
ff:
   UO.FindType(TIngot[i],CIngot[i],'backpack')
   Wait(200)
   If UO.Count(TIngot[i],CIngot[i])<8 Then
      If UO.Count(TIngot[i],CIngot[i])>0 Then
         UO.SetReceivingContainer(Sunduk)
         cheklag()
         UO.Grab('0','finditem')
         wait(1000)
         UO.UnSetReceivingContainer()
      end if
      UO.FindType(TIngot[i],CIngot[i],Sunduk)
      Wait(200)
      If UO.GetQuantity('finditem')>=8 Then
         cheklag()
         UO.Grab('100','finditem')
         Wait(1000)
      else
         i=i+1
         If i>18 Then
            uo.closeuo()
         end if
         MenuColor()
         goto ff
      end if
   end if

   cheklag()
   UO.DeleteJournal()
   UO.UseType(TIngot[i],CIngot[i])

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
      wait(50)
   wend

   UO.FindType(TItem,-1,'backpack')
   wait(10)
   If UO.GetQuantity('finditem')>0 then
      UO.WaitTargetObject('finditem')
      UO.UseObject(Forge)
      Wait(1000)
   Endif 
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub 

Code: Select all

sub MenuIron() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','war fork (8 iron ingot)') 
end sub 

sub MenuColor() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Colored Armor & Weapons') 
   uo.automenu('Colored Armor & Weapons','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','War Fork') 
end sub