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

Лут драконов
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13863		 Page 1 of 1
Author:  pivovar [ 2008-08-04 21:05:10 ]
Post subject:  Лут драконов
Вобщем нашёл я тут скрипт на лут драконов. смысл такой режет , открывает труп лутает. но есть 2 проблемы
1) Если я скриптом лутаю дракона, то он берёт нож режет труп, открывает и лутает по списку кроме гп, хотя они прописаны. А если я вручную режу труп ножом, а потом запускаю скрипт , то он лутает всё + гп.
2) в драконах есть сумочки и сейфы, реально ли реализовать, открытие сумок и сейфов в трупе (в сейфе тоже могут быть сумки) и лут из сейфа\сумок гп.

вот сам скрипт
Code:
 sub LootDragons()
 
  DIM loot[30]
 
  
  
  loot[1]='0x0EED'      # GOLD COIN 
  loot[2]='0x1078'     # DRAGON KOZHA
  loot[3]='0x1F13'     # elemental point 
  loot[4]='0x1057'     # kompass
  loot[5]='0x1BFB'     # bolts 
  var i
  var weapon=0x40CB9EEC
 
  uo.WaitTargetObject('lastcorpse')
  uo.UseObject(weapon)
  wait(500)
  uo.UseObject('lastcorpse')
  for i = 1 to 5
    uo.FindType(loot[i],'-1','lastcorpse')
    if uo.FindCount() then
      uo.MoveItem('finditem')
      wait(750)
    end if
    wait(50)
  next
end sub
Author:  Scripts Writer [ 2008-08-04 22:19:22 ]
Post subject: 
1) Сначало сделай корректное кол-во элементов массива, начни с 0 и пускай цикл с 0. Золото упомяни дважды/трижды в массиве
2) Возможно. Если находишь сумку, то открытие её и лут всех вещей из неё
Author:  pivovar [ 2008-08-04 22:35:41 ]
Post subject: 
1) тоесть типа такого нужно переделатЬ?
Code:
 sub LootDragons()
 
  DIM loot[30]
 
 
 
  loot[0]='0x0EED'      # GOLD COIN
  loot[1]='0x1078'     # DRAGON KOZHA
  loot[2]='0x0EED'      # GOLD COIN
  loot[3]='0x1F13'     # elemental point
  loot[4]='0x1057'     # kompass
  loot[5]='0x0EED'      # GOLD COIN
  loot[6]='0x1BFB'     # bolts
  var i
  var weapon=0x40CB9EEC
 
  uo.WaitTargetObject('lastcorpse')
  uo.UseObject(weapon)
  wait(500)
  uo.UseObject('lastcorpse')
  for i = 0 to 6
    uo.FindType(loot[i],'-1','lastcorpse')
    if uo.FindCount() then
      uo.MoveItem('finditem')
      wait(750)
    end if
    wait(50)
  next
end sub


2) вот тут не совсем понял. сам я скрипты и цикли пишу ужасно плохо, могу только немного под себя подредактировать. ещё подсказаньки есть?)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/