Yoko

Posted: **2007-03-12 10:43:03**

Ребят, решил написать свой скрипт на тинкеринг, ибо настало время учится писать самому

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

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

Posted: **2007-03-12 12:11:21**

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

Posted: **2007-03-12 13:09:23**

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

Posted: **2007-03-12 13:10:35**

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

Posted: **2007-03-12 13:31:15**

Разобрался

Прошу

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

Posted: **2007-03-12 16:03:25**

try this
viewtopic.php?t=11582

Posted: **2007-03-12 16:05:13**

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

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

Posted: **2007-03-22 22:44:45**

тоесть?

Posted: **2007-03-24 08:23:35**

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

Yoko

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

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