Yoko

All sides of Injection
It is currently 2025-10-21 20:29:04

All times are UTC+02:00




Post new topic  Reply to topic  [ 13 posts ] 
Author Message
 Post subject: Сортировка
PostPosted: 2007-09-27 22:20:01 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
Дали мне значит скрипт на сортировку, рабочий. Отредактил его под себя и вуаля, он перестал работать :D

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

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

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

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


Top
   
 Post subject:
PostPosted: 2007-09-28 06:13:26 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Типо вот тебе пример массива

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


Top
   
 Post subject:
PostPosted: 2007-09-28 11:51:36 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
ZeroDX wrote:
Типо вот тебе пример массива

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


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

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


Top
   
 Post subject:
PostPosted: 2007-09-28 15:41:20 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Code:
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] сделать


Top
   
 Post subject:
PostPosted: 2007-09-28 19:58:52 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
Все поправил как ты сказал, но ошибка остается. Либо я тормоз, либо не высыпаюсь :x

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


Top
   
 Post subject:
PostPosted: 2007-09-28 20:11:29 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Закрывающую ковычку в uo.MoveItem() третьим параметром везде убери

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

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


Top
   
 Post subject:
PostPosted: 2007-09-28 21:19:14 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
1. Кавычьки поправил.
2. Последний Next удалил, так как он не нужен.
3. Если поставить Repeat, то он будет повторять скрипт без конца, а мне нужно, чтобы он отключался если в мешке больше нету прописаных вещей :)

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


Last edited by Lui Vegas on 2007-09-28 21:23:03, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2007-09-28 21:22:56 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Изучай инжект и уроки,-они не просто так написаны были и тогда меньше времени будешь тратить как на поиск так и на корректировку.

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


Top
   
 Post subject:
PostPosted: 2007-09-28 21:27:28 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
Ну ладно, Next вернул. Что делать с Unhandled exception in parser? :x


Top
   
 Post subject:
PostPosted: 2007-09-28 21:28:22 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Ладно/Не ладно дело твоё. Я тебе сказал что делать, удачи в познаниях или ожиданиях


Top
   
 Post subject:
PostPosted: 2007-09-28 21:31:02 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
Scripts Writer wrote:
Ладно/Не ладно дело твоё. Я тебе сказал что делать, удачи в познаниях или ожиданиях


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


Top
   
 Post subject:
PostPosted: 2007-09-29 00:24:08 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Вот пробуй. Сори что коменты потёр (не люблю я когда скрипт что-то "разрывает".. Глаз не радует)

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


Top
   
 Post subject:
PostPosted: 2007-09-29 09:24:44 
Offline
User avatar

Joined: 2007-09-27 22:10:42
Posts: 7
Отлично работает! Всем спасибо за помощь. :)

_________________
Image


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 13 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 13 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited