Прошу дать пару советов.

[Azk]

Ребят, решил написать свой скрипт на тинкеринг, ибо настало время учится писать самому но как вы уже поняли, получилосьно не до конца. Вот прошу ващей помоши.
Что должен был делать скрипт : берет из сундука 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

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

[Nmy]

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

[Azk]

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

[mez]

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

[Azk]

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

Code: Select all

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

[Mihail]

try this
viewtopic.php?t=11582

[Nmy]

Code: Select all

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

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

[Azk]

тоесть?

[Question_GimFlex]

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