Yoko
http://forum.yoko.com.ua/

Подскажите почему в моем скрипте не берет
http://forum.yoko.com.ua/viewtopic.php?f=3&t=4137		 Page 1 of 1
Author:  TAHK [ 2005-06-05 20:57:51 ]
Post subject:  Подскажите почему в моем скрипте не берет
Вобщем перетаскивает только ийрон руду...

Code:
;=====================================================================================
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
Author:  TAHK [ 2005-06-05 20:58:56 ]
Post subject: 
многие цвета руд не вбиты, но все равно те что вбиты не перетаскивает :(
Author:  I'm [ 2005-06-05 22:21:14 ]
Post subject: 
Начнем с того что в твоем массиве 23 элемента а не 22.
Code:
DIM RudaColor[22]
Author:  TAHK [ 2005-06-05 22:40:16 ]
Post subject: 
Да точно ошибочка, но странно сто фолт не выдает о переменной необьявленой :D

Но дело то не в этом...
Author:  666Man666 [ 2005-06-06 00:27:54 ]
Post subject: 
Code:
  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
Author:  Solaire [ 2005-06-06 06:40:49 ]
Post subject: 
После wend вставь Exit=0
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/