Yoko

sub bs()
   VAR Exit=0, LastTimer, Forge='0x400D22C9', Cont='0x400F7BC7'
   while Exit<>1
      ToHide()
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fences','Spears','dagger')
      UO.UseType(0x1BEF) ; iron ings

      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 ;time to make a dagger
      EndIf

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

      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge) ;forge
      Endif

      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0000',Cont)
         wait(1000)
         UO.Grab('200','finditem')
      Endif
      wait(1000)
   wend   
   gong(2)
end sub

to Sergiusis
подскажи как переделать скрипт что бы когда айрон или металл из которого кую заканчивался в паке,он(скрипт) выкидывал даггеры в трэшь, не применяя цикл GoTo!!!!
заранее благодарю!

Все вопросы к Savage

_________________
邪魔ものは消え去れ　もがきながら　暗い　暗い　地の底。。。 [Jama mono wa kiesare mogaki nagara,
kurai kurai chi no soko] (Помехи исчезнут, страдая, в чёрных чёрных глубинах земли...)

А плавить не помогает что ли?

у нас на шарде можно плавить всё что выше бронзы ....а бронза и выше достаточно ходовой товар......мы на этом не качаемся так что трэшь это ед выход ...во вторых я таки сумел его сам переделать)))......воть ну еси что саваж я к тебе обращусь)))))

благодарю за ответы