Подскажите почему в моем скрипте не берет

TAHK · Post by **TAHK** » 2005-06-05 20:57:51

Вобщем перетаскивает только ийрон руду...

;=====================================================================================
sub UnloadSortRuda()
   ;VAR SourceContainer='0x400D1BFC'
   VAR DestContainer='0x4038D9F4'
   var i
   VAR Exit=0
   DIM RudaColor[22]
   RudaColor[0]  = '0x0000' ;Iron
   RudaColor[1]  = '0x0750' ;Rusty
   RudaColor[2]  = '0xFFFF' ;Old Copper
   RudaColor[3]  = '0x060A' ;Dull Copper
   RudaColor[4]  = '0x0088' ;Copper
   RudaColor[5]  = '0x0488' ;Bronze
   RudaColor[6]  = '0xFFFF' ;Silver
   RudaColor[7]  = '0xFFFF' ;Gold
   RudaColor[8]  = '0xFFFF' ;Shadow
   RudaColor[9]  = '0xFFFF' ;Rose
   RudaColor[10] = '0xFFFF' ;Agapite
   RudaColor[11] = '0x04C2' ;Blood Rock
   RudaColor[12] = '0xFFFF' ;Verite
   RudaColor[13] = '0xFFFF' ;Valorite
   RudaColor[14] = '0xFFFF' ;Mytheril
   RudaColor[15] = '0xFFFF' ;Black Rock
   RudaColor[16] = '0xFFFF' ;Obsidian
   RudaColor[17] = '0xFFFF' ;Plutonium
   
   RudaColor[18] = '0xFFFF' ;Elvin
   RudaColor[19] = '0xFFFF' ;Gorgan
   RudaColor[20] = '0xFFFF' ;Crystaline
   RudaColor[21] = '0xFFFF' ;Steel
   RudaColor[22] = '0xFFFF' ;Blood Crest

   for i=0 To 22   
      While Exit<>1
         UO.FindType(-1,RudaColor[i],'NewSymka')
         If UO.GetQuantity('finditem')>0 Then
            CheckLag()
            UO.MoveItem('finditem','4000',DestContainer)
         Else
            Exit=1
         Endif
      Wend
   Next
endsub

TAHK · Post by **TAHK** » 2005-06-05 20:58:56

многие цвета руд не вбиты, но все равно те что вбиты не перетаскивает

I'm · Post by **I'm** » 2005-06-05 22:21:14

Начнем с того что в твоем массиве 23 элемента а не 22.

Code: Select all

DIM RudaColor[22]

TAHK · Post by **TAHK** » 2005-06-05 22:40:16

Да точно ошибочка, но странно сто фолт не выдает о переменной необьявленой

Но дело то не в этом...

666Man666 · Post by **666Man666** » 2005-06-06 00:27:54

Code: Select all

  for i=0 To 22    
         UO.FindType(-1,RudaColor[i],'NewSymka') 
         If UO.FindCount() Then 
            CheckLag() 
            UO.MoveItem('finditem','all',DestContainer)
            Wait(2500)
         Endif 
   Next

Solaire · Post by **Solaire** » 2005-06-06 06:40:49

После wend вставь Exit=0