Yoko
http://forum.yoko.com.ua/

Прошу дать пару советов.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11586		 Page 1 of 1
Author:  Azk [ 2007-03-12 10:43:03 ]
Post subject:  Прошу дать пару советов.
Ребят, решил написать свой скрипт на тинкеринг, ибо настало время учится писать самому :) но как вы уже поняли, получилосьно не до конца. Вот прошу ващей помоши.
Что должен был делать скрипт : берет из сундука 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

Зарание спасибо.
Author:  Nmy [ 2007-03-12 12:11:21 ]
Post subject: 
пока скрипт небудет в коде иго некто небудет читать :roll:
Author:  Azk [ 2007-03-12 13:09:23 ]
Post subject: 
Если подскажете, как его выложить в коде, выложу!
Author:  mez [ 2007-03-12 13:10:35 ]
Post subject: 
короче когда пишеш сообзение сверху есть мишюша Code выдели что хочеш заключить в код и нажми на код!
Author:  Azk [ 2007-03-12 13:31:15 ]
Post subject: 
Разобрался :) Прошу :)

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
Author:  Mihail [ 2007-03-12 16:03:25 ]
Post subject: 
try this
viewtopic.php?t=11582
Author:  Nmy [ 2007-03-12 16:05:13 ]
Post subject: 
Code:
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


хрен знает что получилось
Author:  Azk [ 2007-03-22 22:44:45 ]
Post subject: 
тоесть?
Author:  Question_GimFlex [ 2007-03-24 08:23:35 ]
Post subject: 
:)
viewtopic.php?t=5539&highlight=necklace
не в кассу :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/