Yoko

Ребят, решил написать свой скрипт на тинкеринг, ибо настало время учится писать самому но как вы уже поняли, получилосьно не до конца. Вот прошу ващей помоши.
Что должен был делать скрипт : берет из сундука 200 ингов, делает из них Геарсы, выкладывает герсы, и по кругу.
Проблема : Бывает слитает на середине. Но самая большая трабла, это то что когда заканчивается инги в паке, скрипт тупо вылетает. Геарсы тоже не выкладывает.

sub Tinker()

VAR Ingnots='xxxxx'
VAR Sunduk='xxxxxxxxxx'
VAR tools='xxxxxxxx'
VAR Gears='xxxxxxx'
VAR Ammount=200

While NOT UO.Dead()
UO.UnSetReceivingContainer(Sunduk)
UO.FindType(Ingnots,'0x0000',Sunduk)
UO.Grab(STR(Ammount),'finditem')
wait(1000)
Checklag()
repeat
UO.FindType(Ingnots,'0x0000','backpack')
UO.CancelMenu()
UO.AutoMenu('Tinkering','Parts')
UO.AutoMenu('Parts','gears')
wait(4000)
UO.Usetype(tools)
wait(1000)
Until UO.count(Ingnots)<2
Next
UO.SetReceivingContainer(Sunduk)
UO.FindType(Gears,'0x0000','backpack')
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer(Sunduk)
Wend
end sub

Зарание спасибо.

пока скрипт небудет в коде иго некто небудет читать

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Если подскажете, как его выложить в коде, выложу!

короче когда пишеш сообзение сверху есть мишюша Code выдели что хочеш заключить в код и нажми на код!

Разобрался Прошу

sub Tinker()

VAR Ingnots='xxxxx'
VAR Sunduk='xxxxxxxx'
VAR tools='xxxxxx'
VAR Gears='xxxxx'
VAR Ammount=200

   While NOT UO.Dead()
      UO.UnSetReceivingContainer(Sunduk)
      UO.FindType(Ingnots,'0x0000',Sunduk)
      UO.Grab(STR(Ammount),'finditem')
         wait(1000)
   Checklag()
   repeat
      UO.FindType(Ingnots,'0x0000','backpack')
      UO.CancelMenu()
      UO.AutoMenu('Tinkering','Parts')
      UO.AutoMenu('Parts','gears')
         wait(4000)
      UO.Usetype(tools)
         wait(1000)
      Until UO.count(Ingnots)<2
   Next
      UO.SetReceivingContainer(Sunduk)
      UO.FindType(Gears,'0x0000','backpack')
      UO.Grab('all','finditem')
         wait(1000)
      UO.UnSetReceivingContainer(Sunduk)
   Wend
end sub

try this
viewtopic.php?t=11582

sub Tinker()

VAR Ingots='xxxxx'
VAR Sunduk='xxxxxxxx'
VAR tools='xxxxxx'
VAR Gears='xxxxx'
VAR Ammount='200'

   While NOT UO.Dead()
   
   If uo.Count( Ingots ) < 10 then
      UO.FindType(Ingnots,'0x0000',Sunduk)
      if uo.FindCount() then
      uo.moveitem('finditem',Ammount,'backpack')
        else
            return
        endif
        
   Checklag()
   repeat
        UO.CancelMenu()
            UO.AutoMenu('Tinkering','Parts')
            UO.AutoMenu('Parts','gears')
            UO.Usetype(tools)
         wait(5000)
   Until UO.count(Ingots)<2
      
      UO.FindType(Gears,'0x0000','backpack')
      if uo.FindCount() then
        uo.moveitem('finditem', -1 ,Sunduk)
        wait(1000) 
      endif
      
   Wend
end sub

хрен знает что получилось

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

тоесть?

viewtopic.php?t=5539&highlight=necklace
не в кассу