Yoko

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu("Blacksmithing","Colored Armor & Weapons")
UO.WaitMenu("Colored Armor & Weapons"," Copper Weapons")
UO.WaitMenu(" Copper Weapons"," Copper Swords & Blades")
UO.WaitMenu(" Copper Swords & Blades"," Copper Dagger")
; UO.WaitMenu(" Copper Dagger")
UO.UseType(0x1BE3) ;Инги айрона

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

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf

UO.FindType('0x0F51',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4021FCAC) ; Форж
Endif

UO.FindType('0x1BE3',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BE3','0x0000','0x402D1AC4') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
Uze vsjo pereprobival !!! Script vidajot-"No item found" ili line 8 parse eror!!! Esli kto mozet izpravte pls...!!!