Yoko

Posted: **2009-10-20 11:18:17**

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

Скрипт состоит в следующем!!!
Есть сундук в котором много одинаковых мешочков и в кажом мешочке очень много вещей 2х типов!
И надо сделать так что бы персонаж открывал сундук, потом сумку в которой есть вещи и перекладывал ее на НПЦ который принимает эти вещи!!!
(сундук в котором лежат сумки

ID=0x410E510C Type=0x09AA
Colour: 0x0000

(Сумки

Type=0x0E76 Colour: 0x0000

(изделие номер 1

Type=0x1EFF Colour: 0x0000

(изделие номер 2

Type=0x1F03 Colour: 0x0000

( НПЦ на которого кидать вещи

ID=0x003EBFDD Type=0x0190 Name=Leif Colour: 0x0403

Помогите пожалуйста кто сможет!!!
А то мне так их и за год не перекинуть

Posted: **2009-10-20 17:39:28**

Code: Select all

sub MoveALotOfItems()
  var idSundukWithBags='0x410E510C'
  var tBag='0x0E76'
  var idNpc='0x003EBFDD'
  var idTmpBag
  var movedelay=750
  var i

  Dim tItem[2]
  tItem[0]='0x1EFF'
  tItem[1]='0x1F03'

  uo.UseObject(idSundukWithBags)
  wait(1000)
  uo.FindType(tBag,'-1',idSundukWithBags)
  if uo.FindCount() then
    idTmpBag=uo.GetSerial('finditem')
    uo.UseObject(idTmpBag)
    wait(1000)
    for i = 0 to 1
      uo.FindType(tItem[i],'-1',idTmpBag)
      repeat
        uo.MoveItem('finditem','all',idNpc)
        wait(movedelay)
        uo.FindType(tItem[i],'-1',idTmpBag)
      until uo.FindCount() == 0  
    next
  else
    uo.Print('There are not any Bags with Items.')
  endif  
end sub

Yoko

Не как не могу состряпать :(

Не как не могу состряпать :(