help Run

Ask for help

Moderators: Murderator+, Murderator

Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: help Run

Post by Mirage »

Последняя попытка. Если опять будет вылетать значит выкинь инжект :)

Code: Select all

sub Looting()
   var t,l,m
   m=12
   t=1820
   dim LootingItem[13]
   LootingItem[0] = '0x13BA' ##Sw
   LootingItem[1] = '0x023F' ##Shield
   LootingItem[2] = '0x13FE' ##Katana
   LootingItem[3] = '0x1515' ##Cloak
   LootingItem[4] = '0x13FC' ##Crossbow
   LootingItem[5] = '0x143E' ##Scythe
   LootingItem[6] = '0x13FD' ##CrossBow
   LootingItem[7] = '0x1BC3' ##Shield
   LootingItem[8] = '0x0287' ##Sw
   LootingItem[9] = '0x204E' ##DeathRobe
   LootingItem[10] = '0x143F' ##FScythe
   LootingItem[11] = '0x1530' ##Cloak
   LootingItem[12] = '0x0284' ##Robe
   uo.set("finddistance",4)
   for l=0 to m
      uo.findtype(LootingItem[l],"-1","1")
      while uo.FindCount() > 0
         uo.grab("0","finditem")
         wait(t)
         uo.findtype(LootingItem[l],"-1","1")
      wend
      if uo.GetSerial("lastcontainer") <> uo.GetSerial(uo.ObjAtLayer('Bpack')) then
         uo.FindType(LootingItem[l],"-1","lastcontainer")
         while UO.FindCount() > 0
            uo.grab(0,"finditem")
            wait(t)
            uo.FindType(LootingItem[l],"-1","lastcontainer")
         wend
      endif
   next
end sub


Зы а у тебя сколько ядер на компе? (CTRL+Shift+ESC -> Быстродействие -> Хронология загрузки... сколько графиков?)
Last edited by Mirage on 2010-09-28 10:16:14, edited 2 times in total.
kirpaaa
Posts: 35
Joined: 2010-04-22 09:39:37
Location: Riga - Norge

Re: help Run

Post by kirpaaa »

2 ядра ...
Attachments
Windows.JPG
Windows.JPG (51.06 KiB) Viewed 1159 times
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: help Run

Post by Mirage »

тогда помимо инжекта для работоспособности таких скриптов необходимо использовать прогу дуал коре лаунчер. В МОДИФИКАЦИЯХ по моему есть в важных темах.
У меня после ее установки ламбер крашевший с регулярностью в 2-3 часа стал работать по несколько суток.
kirpaaa
Posts: 35
Joined: 2010-04-22 09:39:37
Location: Riga - Norge

Re: help Run

Post by kirpaaa »

Mirage wrote:Последняя попытка. Если опять будет вылетать значит выкинь инжект :)

Code: Select all

sub Looting()
   var t,l,m
   m=13
   t=1820
   dim LootingItem[m]
   LootingItem[0] = '0x13BA' ##Sw
   LootingItem[1] = '0x023F' ##Shield
   LootingItem[2] = '0x13FE' ##Katana
   LootingItem[3] = '0x1515' ##Cloak
   LootingItem[4] = '0x13FC' ##Crossbow
   LootingItem[5] = '0x143E' ##Scythe
   LootingItem[6] = '0x13FD' ##CrossBow
   LootingItem[7] = '0x1BC3' ##Shield
   LootingItem[8] = '0x0287' ##Sw
   LootingItem[9] = '0x204E' ##DeathRobe
   LootingItem[10] = '0x143F' ##FScythe
   LootingItem[11] = '0x1530' ##Cloak
   LootingItem[12] = '0x0284' ##Robe
   uo.set("finddistance",4)
   for l=1 to m
      uo.findtype(LootingItem[l],"-1","1")
      while uo.FindCount() > 0
         uo.grab("0","finditem")
         wait(t)
         uo.findtype(LootingItem[l],"-1","1")
      wend
      if uo.GetSerial("lastcontainer") <> uo.GetSerial(uo.ObjAtLayer('Bpack')) then
         uo.FindType(LootingItem[l],"-1","lastcontainer")
         while UO.FindCount() > 0
            uo.grab(0,"finditem")
            wait(t)
            uo.FindType(LootingItem[l],"-1","lastcontainer")
         wend
      endif
   next
end sub


Зы а у тебя сколько ядер на компе? (CTRL+Shift+ESC -> Быстродействие -> Хронология загрузки... сколько графиков?)


на все скрипты этот эррер наверное ты где-то ошибся
Attachments
erro.JPG
erro.JPG (7.49 KiB) Viewed 1153 times
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: help Run

Post by Mirage »

опечатался сори. Исправил вверху скрипт.
Post Reply