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
после запуска просто закрывает уо !!!! Помогите!ПЛЗ!
да знакомый ник! 
можеш помочь???ПЛЗ