Проверка армора и раскладка

ilove_skazi · Post by **ilove_skazi** » 2006-05-26 00:34:54

Ребята помогите,если есть у кого нить скрипт,который делает армс лорэ на арм,если новый кидает в одну сумку,если нет в другую.

DerMeister =) · Post by **DerMeister =)** » 2006-05-26 00:40:23

скрипт на 3 строчки... сам попробуй напиши :wink:

ilove_skazi · Post by **ilove_skazi** » 2006-05-26 00:41:54

попробывал

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

Не запускается даже!

Scripts Writer · Post by **Scripts Writer** » 2006-05-26 11:07:15

Напиши какие месаги и т.д. выложу.

Scripts Writer · Post by **Scripts Writer** » 2006-05-26 11:15:56

Code: Select all

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

Писал в окне ответа.Не проверял, посмотри .

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 16:46:20

until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)

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

Nmy · Post by **Nmy** » 2006-05-27 16:54:07

ilove_skazi wrote:until uo.InJournal(msg1) or uo.InJournal(msg2) or k(>50)

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

либо ты мсг неправильно прописал либо k > 50 должен быть так

Nmy · Post by **Nmy** » 2006-05-27 17:13:19

Code: Select all

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

пробуй...

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 17:27:26

Можешь добавить, чтоб проверяллось не по месаге о состоянии арма.... а по цыфре дефенса выдаваемой арм лором.... т.е. там пишется сначало уровень дефенса арма, а потом ток фулл репеер или велл вронг и тд!

Nmy · Post by **Nmy** » 2006-05-27 17:32:06

ilove_skazi wrote:Можешь добавить, чтоб проверяллось не по месаге о состоянии арма.... а по цыфре дефенса выдаваемой арм лором.... т.е. там пишется сначало уровень дефенса арма, а потом ток фулл репеер или велл вронг и тд!

зделай пару армс лоре и напишы ,showjournal потом сюда копируй

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 17:48:38

когда пишу showjournal просит линию и номер:)

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 17:55:00

------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

Nmy · Post by **Nmy** » 2006-05-27 17:57:35

просто пропишы var msg='fuly repair' и все

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 18:05:54

Мне почти новые тож надо оставлять.....Если новый арм дает 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

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 18:06:47

Defense [56] это не реальный дефенс

У этого 56 реальный девесн 22

Nmy · Post by **Nmy** » 2006-05-27 18:10:12

Code: Select all

var msg='This item is in full repair'

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 18:24:04

Блин.....

Мне надо в сумку отклыдвать не только полностью новые арморы, но и чуть-чуть побитые.... а средне побитые и сильно побитые в другую!

DerMeister =) · Post by **DerMeister =)** » 2006-05-27 18:29:02

Тогда тут надо сообщения обрабатывать... Удачи =)

Nmy · Post by **Nmy** » 2006-05-27 18:29:47

Code: Select all

var msg='full repair|bit worn'

ilove_skazi · Post by **ilove_skazi** » 2006-05-27 19:33:23

Бит ворн идет от армора по котрому 10 раз с меча ударили до велл ворна... а велл ворн уже не дает почти армора!