Yoko

Orkish wrote:Нужен скрипт чтоб лутил с сумки которая лежит на полу 1 вещь в кол-ве 100 штук !!! Плз помогите !!!

sub Take100()
   VAR tip = '0x0000' #Тип предмета
   VAR sumka = '0x0000' #Тип сумки
   VAR kolvo = '100' #Кол-во предметов для взятия
   VAR ser
   UO.Set('finddistance', '2')
   UO.FindType(sumka, '-1', 'ground')
   If UO.FindCount() > 0 then
      ser = UO.GetSerial('finditem')
   else
      UO.Print('Нет ничего!')
   endif

   UO.UseObject(ser)
   wait(500)
   UO.FindType(tip, '-1', ser)
   If UO.FindCount() > 0 then
      UO.MoveItem('finditem', kolvo, 'backpack')
      wait(1000)
   else
      UO.Print('Нет ничего!')
   endif
   UO.Set('finddistance', '16')
end sub

Kynep wrote:

Orkish wrote:Нужен скрипт чтоб лутил с сумки которая лежит на полу 1 вещь в кол-ве 100 штук !!! Плз помогите !!!

Code: Select all

sub Take100()
   VAR tip = '0x0000' #Тип предмета
   VAR sumka = '0x00000000' #ID сумки
   VAR kolvo = '100' #Кол-во предметов для взятия

   UO.UseObject(sumka)
   wait(500)
   UO.FindType(tip, '-1', sumka)
   If UO.FindCount() > 0 then
      UO.MoveItem('finditem', kolvo, 'backpack')
      wait(1000)
   else
      UO.Print('Нет ничего!')
   endif
end sub