Лут с сумки !!!

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Orkish
Posts: 8
Joined: 2007-10-09 20:08:53
Contact:

Лут с сумки !!!

Post by Orkish »

Нужен скрипт чтоб лутил с сумки которая лежит на полу 1 вещь в кол-ве 100 штук !!! Плз помогите !!!
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: Лут с сумки !!!

Post by Kynep »

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


Code: Select all

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
Last edited by Kynep on 2009-03-02 17:30:18, edited 2 times in total.
Orkish
Posts: 8
Joined: 2007-10-09 20:08:53
Contact:

Re: Лут с сумки !!!

Post by Orkish »

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





а если сумка напостой меняет айди но все время появляется под тобой ???
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

Поправил, пробуй.
Post Reply