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

Проверка армора и раскладка
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7760		 Page 1 of 1
Author:  ilove_skazi [ 2006-05-26 00:34:54 ]
Post subject:  Проверка армора и раскладка
Ребята помогите,если есть у кого нить скрипт,который делает армс лорэ на арм,если новый кидает в одну сумку,если нет в другую.
Author:  DerMeister =) [ 2006-05-26 00:40:23 ]
Post subject: 
скрипт на 3 строчки... сам попробуй напиши :wink:
Author:  ilove_skazi [ 2006-05-26 00:41:54 ]
Post subject: 
попробывал

Хня получилась

Не запускается даже!
Author:  Scripts Writer [ 2006-05-26 11:07:15 ]
Post subject: 
Напиши какие месаги и т.д. выложу.
Author:  Scripts Writer [ 2006-05-26 11:15:56 ]
Post subject: 
Code:
sub rasklad()
  var arm=' type of armor '
  var pack1=' ID of pack where are full repeared armors '
  var pack2=' ID of pack where are badly damaged armors '
  var sunduk=' ID of pack-where are all arms '
  var msg1=' msg of full repeared arms '
  var msg2=' msg of badly demaged armors '
  var k
  uo.FindType(arm,'-1',sunduk)
  while uo.FindCount()
    uo.FindType(arm,'-1',sunduk)   
    uo.WaitTargetObject('finditem')
    uo.UseSkill('Arms Lore')
    k = 0
    uo.DeleteJournal()
    repeat
      wait(100) 
      k = k + 1
    until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)
    if uo.InJournal(msg1) then
      uo.MoveItem('finditem','-1',pack1)
      wait(1000)
    end if
    if uo.InJournal(msg2) then
      uo.MoveItem('finditem','-1',pack2)
      wait(1000)
    end if   
  wend
end sub


Писал в окне ответа.Не проверял, посмотри .
Author:  ilove_skazi [ 2006-05-27 16:46:20 ]
Post subject: 
until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)

в этой строке ошибку выдает!
Author:  Nmy [ 2006-05-27 16:54:07 ]
Post subject: 
ilove_skazi wrote:
until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)

в этой строке ошибку выдает!


либо ты мсг неправильно прописал либо k > 50 должен быть так
Author:  Nmy [ 2006-05-27 17:13:19 ]
Post subject: 
Code:
sub unload()
  var n
  var pack1=' ID of pack where are full repeared armors '
  var pack2=' ID of pack where are badly damaged armors '
  var sunduk=' ID of pack-where are all arms '
  var msg=' msg of full repeared arms '
Dim arm[7]
arm[1] = '0x1412' #helm
arm[2] = '0x1413' #gorget
arm[3] = '0x1410' #arms
arm[4] = '0x1414' #gauntlets
arm[5] = '0x1415' #platemail
arm[6] = '0x1411' #legs
arm[7] = '0x1B76' #heater

For n=1 To 7
  repeat
    uo.FindType(arm[n],'-1',sunduk)
    if uo.findcount() then
    uo.deletejournal()
    uo.WaitTargetObject('finditem')
    uo.UseSkill('Arms Lore')
    if uo.InJournal(msg) then
      uo.MoveItem('finditem','-1',pack1)
      wait(1000)
      else
      uo.MoveItem('finditem','-1',pack2)
      wait(1000)
     until uo.findcount()==0
      next
    end if   
   end if
end sub


пробуй...
Author:  ilove_skazi [ 2006-05-27 17:27:26 ]
Post subject: 
Можешь добавить, чтоб проверяллось не по месаге о состоянии арма.... а по цыфре дефенса выдаваемой арм лором.... т.е. там пишется сначало уровень дефенса арма, а потом ток фулл репеер или велл вронг и тд!
Author:  Nmy [ 2006-05-27 17:32:06 ]
Post subject: 
ilove_skazi wrote:
Можешь добавить, чтоб проверяллось не по месаге о состоянии арма.... а по цыфре дефенса выдаваемой арм лором.... т.е. там пишется сначало уровень дефенса арма, а потом ток фулл репеер или велл вронг и тд!


зделай пару армс лоре и напишы ,showjournal потом сюда копируй
Author:  ilove_skazi [ 2006-05-27 17:48:38 ]
Post subject: 
когда пишу showjournal просит линию и номер:)
Author:  ilove_skazi [ 2006-05-27 17:55:00 ]
Post subject: 
------Journal [10]------
What would you like to evaluate?
Defense [42].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [56].This item is a bit worn. It is not repairable.
Select Target
Targeting Cancelled
Select Target


написал showjournal all
Author:  Nmy [ 2006-05-27 17:57:35 ]
Post subject: 
просто пропишы var msg='fuly repair' и все
Author:  ilove_skazi [ 2006-05-27 18:05:54 ]
Post subject: 
Мне почти новые тож надо оставлять.....Если новый арм дает 23 арма, то до 20 арма можно оставлять вещь!

What would you like to evaluate?
You must wait to perform another action
Defense [42].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [45].This item is a bit worn. It is not repairable.
What would you like to evaluate?
You must wait to perform another action
Defense [53].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [57].This item is in full repair. It is not repairable.
What would you like to evaluate?
Defense [39].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [29].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [23].This item is well worn. It is not repairable.
What would you like to evaluate?
Defense [42].This item is a bit worn. It is not repairable.
What would you like to evaluate?
Defense [56].This item is a bit worn. It is not repairable.
Select Target
Author:  ilove_skazi [ 2006-05-27 18:06:47 ]
Post subject: 
Defense [56] это не реальный дефенс :)
У этого 56 реальный девесн 22
Author:  Nmy [ 2006-05-27 18:10:12 ]
Post subject: 
Code:
var msg='This item is in full repair'
Author:  ilove_skazi [ 2006-05-27 18:24:04 ]
Post subject: 
Блин.....

Мне надо в сумку отклыдвать не только полностью новые арморы, но и чуть-чуть побитые.... а средне побитые и сильно побитые в другую!
Author:  DerMeister =) [ 2006-05-27 18:29:02 ]
Post subject: 
Тогда тут надо сообщения обрабатывать... Удачи =)
Author:  Nmy [ 2006-05-27 18:29:47 ]
Post subject: 
Code:
var msg='full repair|bit worn'
Author:  ilove_skazi [ 2006-05-27 19:33:23 ]
Post subject: 
Бит ворн идет от армора по котрому 10 раз с меча ударили до велл ворна... а велл ворн уже не дает почти армора!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/