Сортировка

Lui Vegas · Post by **Lui Vegas** » 2007-09-27 22:20:01

Дали мне значит скрипт на сортировку, рабочий. Отредактил его под себя и вуаля, он перестал работать

Пишет ошибку Line 41: parse error

Ошибку в упор не вижу

41 линия - I[1] = '0x1410'# Platemail Arms

sub Separation()

;==============================================================================
Var Trash        =  '0x40EC7EAE'# Мешок с мусором
Var Gems         =  '0x401A27D2'# Мешок для драгоценных камней
Var Ironmongery  =  '0x401A0B54'# Мешок для железных изделий
Var Jewellery    =  '0x401A1092'# Мешок для бижутерии
Var Other        =  '0x40972A10'# Мешок для всего остольного
;==============================================================================

;------------------------------------------------
; Драгоценные камни
;------------------------------------------------

DIM G[9]
Var A
G[1] = '0x0F26'# Granates, Diamonds
G[2] = '0x0F25'# Ambers
G[3] = '0x0F13'# Rubys
G[4] = '0x0F11'# Sapphires
G[5] = '0x0F18'# Tourmalines
G[6] = '0x0F15'# Citrines
G[7] = '0x0F10'# Emeralds
G[8] = '0x0F16'# Amethysts

UO.Print("[Gems] In process...")
Wait(1000)
For A=1 to 9
UO.FindType(G[A],-1,Trash)
Wait(200)
UO.MoveItem('finditem',0,Gems')
Next
Wait(1000)

;------------------------------------------------
; Железные изделия
;------------------------------------------------

DIM I[90]
Var B
I[1] = '0x1410'# Platemail Arms
I[2] = '0x1411'# Platemail Legs
I[3] = '0x1412'# Platemail Helm
I[4] = '0x1413'# Platemail Gorget
I[5] = '0x1414'# Platemail Gloves
I[6] = '0x1415'# Platemail Chest

I[7] = '0x1417'# Platemail Arms
I[8] = '0x141A'# Platemail Legs
I[9] = '0x1419'# Platemail Helm
I[10] = '0x1418'# Platemail Gloves
I[11] = '0x1416'# Platemail Chest

;------------------------------------------------

I[12] = '0x13BB'# Chainmail Coif
I[13] = '0x13BE'# Chainmail Leggings
I[14] = '0x13BF'# Chainmail Tunic

I[15] = '0x13C0'# Chainmail Coif
I[16] = '0x13C3'# Chainmail Leggings
I[17] = '0x13C4'# Chainmail Tunic

;------------------------------------------------

I[18] = '0x13EE'# Ringmail Sleeves
I[19] = '0x13EB'# Ringmail Gloves
I[20] = '0x13EC'# Ringmail Tunic
I[21] = '0x13F0'# Ringmail Leggings

I[22] = '0x13EF'# Ringmail Sleeves
I[23] = '0x13F2'# Ringmail Gloves
I[24] = '0x13ED'# Ringmail Tunic
I[25] = '0x13F1'# Ringmail Leggings

;------------------------------------------------

I[26] = '0x1B76'# Heater Shield
I[27] = '0x1B74'# Kite Metal Shield
I[28] = '0x1B7B'# Metal Shield

I[29] = '0x1B77'# Heater Shield
I[30] = '0x1B75'# Kite Metal Shield

;------------------------------------------------

I[31] = '0x1408'# Close Helm
I[32] = '0x140A'# Helmet
I[33] = '0x140C'# Bascinet
I[34] = '0x140E'# Nose Helm

I[35] = '0x1409'# Close Helm
I[36] = '0x140B'# Helmet
I[37] = '0x140D'# Bascinet
I[38] = '0x140F'# Nose Helm

;------------------------------------------------

I[39] = '0x0F49'# Axe
I[40] = '0x0F47'# Battle Axe
I[41] = '0x0F4B'# Double Axe
I[42] = '0x0F45'# Executioner's Axe
I[43] = '0x0F43'# Hatchet
I[44] = '0x13FA'# Large Battle Axe
I[45] = '0x1442'# Two Handed Axe
I[46] = '0x0F5E'# Broad Sword
I[47] = '0x1440'# Cutlass
I[48] = '0x13FE'# Katana
I[49] = '0x0F60'# Long Sword
I[50] = '0x13B5'# Scimitar
I[51] = '0x13B9'# Viking Sword
I[52] = '0x0F4D'# Bardiche
I[53] = '0x143E'# Halberd

I[54] = '0x0F4A'# Axe
I[55] = '0x0F48'# Battle Axe
I[56] = '0x0F4C'# Double Axe
I[57] = '0x0F46'# Executioner's Axe
I[58] = '0x0F44'# Hatchet
I[59] = '0x13FB'# Large Battle Axe
I[60] = '0x1443'# Two Handed Axe
I[61] = '0x0F5F'# Broad Sword
I[62] = '0x1441'# Cutlass
I[63] = '0x13FF'# Katana
I[64] = '0x0F61'# Long Sword
I[65] = '0x13B6'# Scimitar
I[66] = '0x13BA'# Viking Sword
I[67] = '0x0F4E'# Bardiche
I[68] = '0x143F'# Halberd

;------------------------------------------------

I[69] = '0x13AF'# War Axe
I[70] = '0x143C'# Hammer Pick
I[71] = '0x0F5C'# Mace
I[72] = '0x143A'# Maul
I[73] = '0x1438'# War Hammer
I[74] = '0x1406'# War Mace

I[75] = '0x13B0'# War Axe
I[76] = '0x143D'# Hammer Pick
I[77] = '0x0F5D'# Mace
I[78] = '0x143B'# Maul
I[79] = '0x1439'# War Hammer
I[80] = '0x1407'# War Mace

;------------------------------------------------

I[81] = '0x1400'# Kryss
I[82] = '0x0E87'# Pitchfork
I[83] = '0x1402'# Short Spear
I[84] = '0x0F62'# Spear
I[85] = '0x1404'# War Fork

I[86] = '0x1401'# Kryss
I[87] = '0x0E88'# Pitchfork
I[88] = '0x1403'# Short Spear
I[89] = '0x0F63'# Spear
I[90] = '0x1405'# War Fork

UO.Print("[Ironmongery] In process...")
Wait(2000)
For B=1 to 90
UO.FindType(I[B],-1,Trash)
Wait(200)
UO.MoveItem('finditem',0,Ironmongery')
Next
Wait(1000)

;------------------------------------------------
; Бижутерия
;------------------------------------------------

DIM J[2]
Var C
J[1] = '0x1F09'# Rings
J[2] = '0x1F07'# Earrings

UO.Print("[Jewellery] In process...")
Wait(2000)
For C=1 to 2
UO.FindType(J[C],-1,Trash)
Wait(200)
UO.MoveItem('finditem',0,Jewellery')
Next
Wait(1000)

;------------------------------------------------
; Все остольное
;------------------------------------------------

DIM O[3]
Var D
O[1] = '0x14FB'# Lockpicks
O[2] = '0x14EF'# Deeds, Reagent's Pack
O[3] = '0x09AA'# Pandorra's Box

UO.Print("[Other] In process...")
Wait(2000)
For D=1 to 3
UO.FindType(O[D],-1,Trash)
Wait(200)
UO.MoveItem('finditem',0,Other')
Next
Wait(1000)
Until not UO.FindCount()
UO.Print("Finished")
End sub

ZeroDX · Post by **ZeroDX** » 2007-09-28 06:13:26

Типо вот тебе пример массива

Code: Select all

DIM Bugaga[4] 
Bugaga[0] = '0x0000'#Типо № 0, а не 1 =)
Bugaga[1] = '0x0000'
Bugaga[2] = '0x0000'
Bugaga[3] = '0x0000'

Lui Vegas · Post by **Lui Vegas** » 2007-09-28 11:51:36

ZeroDX wrote:Типо вот тебе пример массива
Code: Select all
DIM Bugaga[4] 
Bugaga[0] = '0x0000'#Типо № 0, а не 1 =)
Bugaga[1] = '0x0000'
Bugaga[2] = '0x0000'
Bugaga[3] = '0x0000'

Не думаю, что дело в этом... скрипт до этого работал с № 1

З.Ы. Проверил, все равно тоже самое...

ZeroDX · Post by **ZeroDX** » 2007-09-28 15:41:20

Code: Select all

DIM G[9] 
Var A 
G[1] = '0x0F26'# Granates, Diamonds 
G[2] = '0x0F25'# Ambers 
G[3] = '0x0F13'# Rubys 
G[4] = '0x0F11'# Sapphires 
G[5] = '0x0F18'# Tourmalines 
G[6] = '0x0F15'# Citrines 
G[7] = '0x0F10'# Emeralds 
G[8] = '0x0F16'# Amethysts

Все дело в переменной. У тебя в массиве 9 типов, а присутствует всего 8. Попробуй поставить либо переменную вынести за пределы массива и с как я предлогал с 0 начать, либо DIM I[91] сделать

Lui Vegas · Post by **Lui Vegas** » 2007-09-28 19:58:52

Все поправил как ты сказал, но ошибка остается. Либо я тормоз, либо не высыпаюсь

Code: Select all

sub Separation() 

;============================================================================== 
Var Trash        =  '0x40EC7EAE'# Мешок с мусором 
Var Gems         =  '0x401A27D2'# Мешок для драгоценных камней 
Var Ironmongery  =  '0x401A0B54'# Мешок для железных изделий 
Var Jewellery    =  '0x401A1092'# Мешок для бижутерии 
Var Other        =  '0x40972A10'# Мешок для всего остольного 
;============================================================================== 

;------------------------------------------------ 
; Драгоценные камни 
;------------------------------------------------ 

DIM G[8] 
Var A 
G[0] = '0x0F26'# Granates, Diamonds 
G[1] = '0x0F25'# Ambers 
G[2] = '0x0F13'# Rubys 
G[3] = '0x0F11'# Sapphires 
G[4] = '0x0F18'# Tourmalines 
G[5] = '0x0F15'# Citrines 
G[6] = '0x0F10'# Emeralds 
G[7] = '0x0F16'# Amethysts 

UO.Print("[Gems] In process...") 
Wait(1000) 
For A=0 to 7
UO.FindType(G[A],-1,Trash) 
Wait(200) 
UO.MoveItem('finditem',0,Gems') 
Next 
Wait(1000) 

;------------------------------------------------ 
; Железные изделия 
;------------------------------------------------ 

DIM I[90] 
Var B 
I[0] = '0x1410'# Platemail Arms 
I[1] = '0x1411'# Platemail Legs 
I[2] = '0x1412'# Platemail Helm 
I[3] = '0x1413'# Platemail Gorget 
I[4] = '0x1414'# Platemail Gloves 
I[5] = '0x1415'# Platemail Chest 

I[6] = '0x1417'# Platemail Arms 
I[7] = '0x141A'# Platemail Legs 
I[8] = '0x1419'# Platemail Helm 
I[9] = '0x1418'# Platemail Gloves 
I[10] = '0x1416'# Platemail Chest 

;------------------------------------------------ 

I[11] = '0x13BB'# Chainmail Coif 
I[12] = '0x13BE'# Chainmail Leggings 
I[13] = '0x13BF'# Chainmail Tunic 

I[14] = '0x13C0'# Chainmail Coif 
I[15] = '0x13C3'# Chainmail Leggings 
I[16] = '0x13C4'# Chainmail Tunic 

;------------------------------------------------ 

I[17] = '0x13EE'# Ringmail Sleeves 
I[18] = '0x13EB'# Ringmail Gloves 
I[19] = '0x13EC'# Ringmail Tunic 
I[20] = '0x13F0'# Ringmail Leggings 

I[21] = '0x13EF'# Ringmail Sleeves 
I[22] = '0x13F2'# Ringmail Gloves 
I[23] = '0x13ED'# Ringmail Tunic 
I[24] = '0x13F1'# Ringmail Leggings 

;------------------------------------------------ 

I[25] = '0x1B76'# Heater Shield 
I[26] = '0x1B74'# Kite Metal Shield 
I[27] = '0x1B7B'# Metal Shield 

I[28] = '0x1B77'# Heater Shield 
I[29] = '0x1B75'# Kite Metal Shield 

;------------------------------------------------ 

I[30] = '0x1408'# Close Helm 
I[31] = '0x140A'# Helmet 
I[32] = '0x140C'# Bascinet 
I[33] = '0x140E'# Nose Helm 

I[34] = '0x1409'# Close Helm 
I[35] = '0x140B'# Helmet 
I[36] = '0x140D'# Bascinet 
I[37] = '0x140F'# Nose Helm 

;------------------------------------------------ 

I[38] = '0x0F49'# Axe 
I[39] = '0x0F47'# Battle Axe 
I[40] = '0x0F4B'# Double Axe 
I[41] = '0x0F45'# Executioner's Axe 
I[42] = '0x0F43'# Hatchet 
I[43] = '0x13FA'# Large Battle Axe 
I[44] = '0x1442'# Two Handed Axe 
I[45] = '0x0F5E'# Broad Sword 
I[46] = '0x1440'# Cutlass 
I[47] = '0x13FE'# Katana 
I[48] = '0x0F60'# Long Sword 
I[49] = '0x13B5'# Scimitar 
I[50] = '0x13B9'# Viking Sword 
I[51] = '0x0F4D'# Bardiche 
I[52] = '0x143E'# Halberd 

I[53] = '0x0F4A'# Axe 
I[54] = '0x0F48'# Battle Axe 
I[55] = '0x0F4C'# Double Axe 
I[56] = '0x0F46'# Executioner's Axe 
I[57] = '0x0F44'# Hatchet 
I[58] = '0x13FB'# Large Battle Axe 
I[59] = '0x1443'# Two Handed Axe 
I[60] = '0x0F5F'# Broad Sword 
I[61] = '0x1441'# Cutlass 
I[62] = '0x13FF'# Katana 
I[63] = '0x0F61'# Long Sword 
I[64] = '0x13B6'# Scimitar 
I[65] = '0x13BA'# Viking Sword 
I[66] = '0x0F4E'# Bardiche 
I[67] = '0x143F'# Halberd 

;------------------------------------------------ 

I[68] = '0x13AF'# War Axe 
I[69] = '0x143C'# Hammer Pick 
I[70] = '0x0F5C'# Mace 
I[71] = '0x143A'# Maul 
I[72] = '0x1438'# War Hammer 
I[73] = '0x1406'# War Mace 

I[74] = '0x13B0'# War Axe 
I[75] = '0x143D'# Hammer Pick 
I[76] = '0x0F5D'# Mace 
I[77] = '0x143B'# Maul 
I[78] = '0x1439'# War Hammer 
I[79] = '0x1407'# War Mace 

;------------------------------------------------ 

I[80] = '0x1400'# Kryss 
I[81] = '0x0E87'# Pitchfork 
I[82] = '0x1402'# Short Spear 
I[83] = '0x0F62'# Spear 
I[84] = '0x1404'# War Fork 

I[85] = '0x1401'# Kryss 
I[86] = '0x0E88'# Pitchfork 
I[87] = '0x1403'# Short Spear 
I[88] = '0x0F63'# Spear 
I[89] = '0x1405'# War Fork 

UO.Print("[Ironmongery] In process...") 
Wait(2000) 
For B=0 to 89 
UO.FindType(I[B],-1,Trash) 
Wait(200) 
UO.MoveItem('finditem',0,Ironmongery') 
Next 
Wait(1000) 

;------------------------------------------------ 
; Бижутерия 
;------------------------------------------------ 

DIM J[2] 
Var C 
J[0] = '0x1F09'# Rings
J[1] = '0x1F07'# Earrings

UO.Print("[Jewellery] In process...") 
Wait(2000) 
For C=0 to 1 
UO.FindType(J[C],-1,Trash) 
Wait(200) 
UO.MoveItem('finditem',0,Jewellery') 
Next 
Wait(1000) 

;------------------------------------------------ 
; Все остольное 
;------------------------------------------------ 

DIM O[4] 
Var D 
O[0] = '0x14FB'# Lockpicks
O[1] = '0x14EF'# Deeds, Reagent's Pack
O[2] = '0x09AA'# Pandorra's Box
O[3] = '0x1869'# Weapon Enchant

UO.Print("[Other] In process...") 
Wait(2000) 
For D=0 to 3
UO.FindType(O[D],-1,Trash) 
Wait(200) 
UO.MoveItem('finditem',0,Other') 
Next 
Wait(1000) 
Until not UO.FindCount() 
UO.Print("Finished") 
End sub

Scripts Writer · Post by **Scripts Writer** » 2007-09-28 20:11:29

Закрывающую ковычку в uo.MoveItem() третьим параметром везде убери

Почему until not uo.FindCount() без repeat?

Code: Select all

sub Separation() 

UO.Print("[Gems] In process...") 
Wait(1000) 
For A=0 to 7 

Next 
Wait(1000) 

UO.Print("[Ironmongery] In process...") 
Wait(2000) 
For B=0 to 89 

Next 
Wait(1000) 

UO.Print("[Jewellery] In process...") 
Wait(2000) 
For C=0 to 1 

Next 
Wait(1000) 

UO.Print("[Other] In process...") 
Wait(2000) 
For D=0 to 3 

Next 

Until not UO.FindCount() 

End sub

Lui Vegas · Post by **Lui Vegas** » 2007-09-28 21:19:14

1. Кавычьки поправил.
2. Последний Next удалил, так как он не нужен.
3. Если поставить Repeat, то он будет повторять скрипт без конца, а мне нужно, чтобы он отключался если в мешке больше нету прописаных вещей

4. После того как удалил лишнии третьи кавычки в MoveItem, скрипт стал писать "Unhandled exception in parser".

Scripts Writer · Post by **Scripts Writer** » 2007-09-28 21:22:56

Изучай инжект и уроки,-они не просто так написаны были и тогда меньше времени будешь тратить как на поиск так и на корректировку.

п.с. убери енд саб, он тоже лишний

Lui Vegas · Post by **Lui Vegas** » 2007-09-28 21:27:28

Ну ладно, Next вернул. Что делать с Unhandled exception in parser?

Scripts Writer · Post by **Scripts Writer** » 2007-09-28 21:28:22

Ладно/Не ладно дело твоё. Я тебе сказал что делать, удачи в познаниях или ожиданиях

Lui Vegas · Post by **Lui Vegas** » 2007-09-28 21:31:02

Scripts Writer wrote:Ладно/Не ладно дело твоё. Я тебе сказал что делать, удачи в познаниях или ожиданиях

Хех, спасибо и на этом

ZeroDX · Post by **ZeroDX** » 2007-09-29 00:24:08

Вот пробуй. Сори что коменты потёр (не люблю я когда скрипт что-то "разрывает".. Глаз не радует)

Code: Select all

sub Separation() 
 Var Trash        =  '0x40EC7EAE'# Мешок с мусором 
 Var Gems         =  '0x401A27D2'# Мешок для драгоценных камней 
 Var Ironmongery  =  '0x401A0B54'# Мешок для железных изделий 
 Var Jewellery    =  '0x401A1092'# Мешок для бижутерии 
 Var Other        =  '0x40972A10'# Мешок для всего остольного 
 Var A, Z
  DIM G[8] 
   G[0] = 0x0F26 # Granates, Diamonds 
   G[1] = 0x0F25 # Ambers 
   G[2] = 0x0F13 # Rubys  
   G[3] = 0x0F11 # Sapphires 
   G[4] = 0x0F18 # Tourmalines 
   G[5] = 0x0F15 # Citrines 
   G[6] = 0x0F10 # Emeralds 
   G[7] = 0x0F16 # Amethysts 
  UO.Print("[Gems] In process...") 
  Wait(1000)
  UO.SetReceivingContainer(Gems)
  Wait(500)
  For A = 0 to 7
    Z = 0
    Repeat
      UO.FindType(G[A], -1, trash)
      If UO.GetQuantity('finditem') > 0 then
        UO.Grab('0', 'finditem')
        Wait(500)
       Else
        Z = 1
      Endif
    Until Z == 1
  Next
  UO.UnSetReceivingContainer()
  Wait(1000) 
  DIM I[90] 
   I[0] = '0x1410'# Platemail Arms 
   I[1] = '0x1411'# Platemail Legs 
   I[2] = '0x1412'# Platemail Helm 
   I[3] = '0x1413'# Platemail Gorget 
   I[4] = '0x1414'# Platemail Gloves 
   I[5] = '0x1415'# Platemail Chest 
   I[6] = '0x1417'# Platemail Arms 
   I[7] = '0x141A'# Platemail Legs 
   I[8] = '0x1419'# Platemail Helm 
   I[9] = '0x1418'# Platemail Gloves 
   I[10] = '0x1416'# Platemail Chest 
   I[11] = '0x13BB'# Chainmail Coif 
   I[12] = '0x13BE'# Chainmail Leggings 
   I[13] = '0x13BF'# Chainmail Tunic 
   I[14] = '0x13C0'# Chainmail Coif 
   I[15] = '0x13C3'# Chainmail Leggings 
   I[16] = '0x13C4'# Chainmail Tunic 
   I[17] = '0x13EE'# Ringmail Sleeves 
   I[18] = '0x13EB'# Ringmail Gloves 
   I[19] = '0x13EC'# Ringmail Tunic 
   I[20] = '0x13F0'# Ringmail Leggings 
   I[21] = '0x13EF'# Ringmail Sleeves 
   I[22] = '0x13F2'# Ringmail Gloves 
   I[23] = '0x13ED'# Ringmail Tunic 
   I[24] = '0x13F1'# Ringmail Leggings 
   I[25] = '0x1B76'# Heater Shield 
   I[26] = '0x1B74'# Kite Metal Shield 
   I[27] = '0x1B7B'# Metal Shield 
   I[28] = '0x1B77'# Heater Shield 
   I[29] = '0x1B75'# Kite Metal Shield 
   I[30] = '0x1408'# Close Helm 
   I[31] = '0x140A'# Helmet 
   I[32] = '0x140C'# Bascinet 
   I[33] = '0x140E'# Nose Helm 
   I[34] = '0x1409'# Close Helm 
   I[35] = '0x140B'# Helmet 
   I[36] = '0x140D'# Bascinet 
   I[37] = '0x140F'# Nose Helm 
   I[38] = '0x0F49'# Axe 
   I[39] = '0x0F47'# Battle Axe 
   I[40] = '0x0F4B'# Double Axe 
   I[41] = '0x0F45'# Executioner's Axe 
   I[42] = '0x0F43'# Hatchet 
   I[43] = '0x13FA'# Large Battle Axe 
   I[44] = '0x1442'# Two Handed Axe 
   I[45] = '0x0F5E'# Broad Sword 
   I[46] = '0x1440'# Cutlass 
   I[47] = '0x13FE'# Katana 
   I[48] = '0x0F60'# Long Sword 
   I[49] = '0x13B5'# Scimitar 
   I[50] = '0x13B9'# Viking Sword 
   I[51] = '0x0F4D'# Bardiche 
   I[52] = '0x143E'# Halberd 
   I[53] = '0x0F4A'# Axe 
   I[54] = '0x0F48'# Battle Axe 
   I[55] = '0x0F4C'# Double Axe 
   I[56] = '0x0F46'# Executioner's Axe 
   I[57] = '0x0F44'# Hatchet 
   I[58] = '0x13FB'# Large Battle Axe 
   I[59] = '0x1443'# Two Handed Axe 
   I[60] = '0x0F5F'# Broad Sword 
   I[61] = '0x1441'# Cutlass 
   I[62] = '0x13FF'# Katana 
   I[63] = '0x0F61'# Long Sword 
   I[64] = '0x13B6'# Scimitar 
   I[65] = '0x13BA'# Viking Sword 
   I[66] = '0x0F4E'# Bardiche 
   I[67] = '0x143F'# Halberd 
   I[68] = '0x13AF'# War Axe 
   I[69] = '0x143C'# Hammer Pick 
   I[70] = '0x0F5C'# Mace 
   I[71] = '0x143A'# Maul 
   I[72] = '0x1438'# War Hammer 
   I[73] = '0x1406'# War Mace 
   I[74] = '0x13B0'# War Axe 
   I[75] = '0x143D'# Hammer Pick 
   I[76] = '0x0F5D'# Mace 
   I[77] = '0x143B'# Maul 
   I[78] = '0x1439'# War Hammer 
   I[79] = '0x1407'# War Mace 
   I[80] = '0x1400'# Kryss 
   I[81] = '0x0E87'# Pitchfork 
   I[82] = '0x1402'# Short Spear 
   I[83] = '0x0F62'# Spear 
   I[84] = '0x1404'# War Fork 
   I[85] = '0x1401'# Kryss 
   I[86] = '0x0E88'# Pitchfork 
   I[87] = '0x1403'# Short Spear 
   I[88] = '0x0F63'# Spear 
   I[89] = '0x1405'# War Fork 
  UO.Print("[Ironmongery] In process...") 
  Wait(2000)  
  UO.SetReceivingContainer(Ironmongery)
  Wait(500)
  For A = 0 to 89
    Z = 0
    Repeat
      UO.FindType(I[A], -1, trash)
      If UO.GetQuantity('finditem') > 0 then
        UO.Grab('0', 'finditem')
        Wait(500)
       Else
        Z = 1
      Endif
    Until Z == 1
  Next
  UO.UnSetReceivingContainer()
  Wait(1000)
  DIM J[2]  
   J[0] = '0x1F09'# Rings 
   J[1] = '0x1F07'# Earrings 
  UO.Print("[Jewellery] In process...") 
  Wait(2000) 
  UO.SetReceivingContainer(Jewellery)
  Wait(500)
  For A = 0 to 1
    Z = 0
    Repeat
      UO.FindType(J[A], -1, trash)
      If UO.GetQuantity('finditem') > 0 then
        UO.Grab('0', 'finditem')
        Wait(500)
       Else
        Z = 1
      Endif
    Until Z == 1
  Next
  UO.UnSetReceivingContainer()
  Wait(1000)
  DIM O[4] 
   O[0] = '0x14FB'# Lockpicks 
   O[1] = '0x14EF'# Deeds, Reagent's Pack 
   O[2] = '0x09AA'# Pandorra's Box 
   O[3] = '0x1869'# Weapon Enchant 
  UO.Print("[Other] In process...") 
  Wait(2000) 
  UO.SetReceivingContainer(Other)
  Wait(500)
  For A = 0 to 3
    Z = 0
    Repeat
      UO.FindType(O[A], -1, trash)
      If UO.GetQuantity('finditem') > 0 then
        UO.Grab('0', 'finditem')
        Wait(500)
       Else
        Z = 1
      Endif
    Until Z == 1
  Next
  UO.UnSetReceivingContainer()
  Wait(1000) 
  UO.Print("Finished") 
End sub

Lui Vegas · Post by **Lui Vegas** » 2007-09-29 09:24:44

Отлично работает! Всем спасибо за помощь.