Yoko

Ну вот у меня опять вопрос по БС у меня скрипт на смит хаммеры и по идее он должен их плавить но как чар сделает около 12 хаммеров то скрипт не плавит их а просто идёт флуд... прошу помочь мне



sub BS()
var Forge = '0x4015FDD9' ;Forza(id)
var Cont = '0x400C6EE6' ;Sunduk s ingami(id)
var ingot = '0x1BEF' ;ingot(type)
;var ingot = '0x1BE3' ;ingot(type) ; type Copper
;var ingot = '0x1BE9' ;ingot(type) ; type Gold
var color = '0x0000' ;cvet inga(Iron, Copper, Silver, Gold)
;var color = '0x0750' ;cvet inga(Rusty)
;var color = '0x0590' ;cvet inga(Old Copper)
;var color = '0x060A' ;cvet inga(Dull Copper)
;var color = '0x0488' ;cvet inga(Bronze)
;var color = '0x096B' ;cvet inga(Shadow)
var Food = '0x097B' ;eda (FishSteiks)
;var item = '0x0F51' ;dagger (type)
;var item = '0x13FE' ;Katana (type)
var item = '0x13E3' ;Smith hammmer (type)
var time, i=0, fizl=0, control=5, hammer, hamType
UO.CancelMenu()
UO.SetReceivingContainer('backpack')

UO.Automenu("Blacksmithing","Weapons")
UO.Automenu("Weapons","Maces & Hammers")
UO.Automenu("Maces & Hammers","hammer")


;UO.Automenu("Blacksmithing","Weapons")
;UO.Automenu("Weapons","Swords & Blades")
;UO.Automenu("Swords & Blades","dagger")

;UO.Automenu("Blacksmithing","Colored")
;UO.Automenu("Colored","Weapons")
;UO.Automenu("Weapons","Swords & Blades")
;UO.Automenu("Swords & Blades","Dagger")
;UO.Automenu("Swords & Blades","Katana")

hammer=UO.ObjAtLayer('Rhand')
hamType=UO.GetGraphic(hammer)
while True
if UO.Count(ingot,color)<=20 then
UO.FindType(ingot,color,Cont)
UO.Grab('200','finditem')
wait(1000)
else
UO.DeleteJournal()
UO.UseType(ingot,color)
time=UO.Timer()
Repeat
wait(500)
Until UO.InJournal("You put") OR UO.InJournal("fail") OR UO.InJournal("You must") OR time+200<UO.Timer()

if UO.InJournal("You put") then
fizl=0
else
fizl=fizl+1
endif
if fizl==control then
wait(8000)
endif

if UO.Count(item)>10 then
While UO.Count(item)>0
UO.DeleteJournal()
UO.WaitTargetType(item)
UO.UseObject(Forge)
time=UO.Timer()
Repeat
wait(500)
Until UO.InJournal("You smelt") OR UO.InJournal("consumed") OR UO.InJournal("You must") OR time+200<UO.Timer()
Wend
UO.Equipt('Rhand',hamType)
wait(1000)
Endif
endif
endif
if i==60 then
UO.DeleteJournal()
Repeat
UO.UseType(Food)
Wait(500)
Until UO.InJournal("simply too full")
i=0
else
i=i+1
endif
Wend
end sub