Yoko

Code: Select all

sub unloadore() 
 var Time,Space
 Time = Time() 
Space = ' '

   VAR TempX,TempY,i,Exit, Exit1, ConTainer, j 
   VAR SundukX=5518 
   VAR SundukY=1088 
   VAR Index=16 ; количество элементов массива 
   DIM Ore[12], Colors[16] 

Colors[0]="0x09F0" ; Gorgan 
Colors[1]="0x09D3" ; Steel 
Colors[3]="0x0BA7" ; Eldar 
Colors[4]="0x08AF" ; Plut 
Colors[5]="0x0085" ; Dragon 
Colors[6]="0x0060" ; Aqua 
Colors[7]="0x09E6" ; Elvin 
Colors[8]="0x010F" ; Krinit 
Colors[9]="0x09DA" ; Vulkan 
Colors[10]="0x09EC" ; Blood Crest 
Colors[11]="0x008F" ; Sand Rock 
Colors[12]="0x09B9" ; Acid 
Colors[13]="0x09A4" ; Crystaline 
Colors[14]="0x0455" ; BlackRock
Colors[15]="0x0028" ; Obsid



   TempX=UO.GetX() 
   TempY=UO.GetY() 
    
   walkn(SundukX,SundukY,"") 
   ToHide() 
   
   UO.UseObject('Sunduk') 
   wait(500)
   UO.UseObject('BESTBag')
   wait(500)
   UO.UseObject('IronBag')

Ore[0]=0x19B9 ; >3 ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
Ore[4]=0x0F11 ; saphires 
Ore[5]=0x0F16 ; amethysts 
Ore[6]=0x0F18 ; tourmalines 
Ore[7]=0x0F15 ; citrines 
Ore[8]=0x0F10 ; emeralds 
Ore[9]=0x0F0F ; star sapphires 
Ore[10]=0x0F26 ; diamonds 
Ore[11]=0x1F4C ; recall scrolls 
Ore[12]=0x0EED ; gold 

   For i=0 to 12 
      Exit=0 
      repeat 
         UO.FindType(Ore[i]) 
          
         if UO.GetQuantity('finditem')>0 then 
            If UO.GetColor('finditem')=='0x0000' Then 
               Container=UO.GetSerial('IronBag') 
            Else 
               Container=UO.GetSerial('OtherBag') 
               Exit1=0 
               j=0 
               While j<Index AND Exit1<>1 
                  If UO.GetColor('finditem')==Colors[j] Then 
                     Container=UO.GetSerial('BESTBag') 
                     Exit1=1 
                  Endif 
                  j=j+1 
               Wend 
            Endif 
            UO.MoveItem('finditem',0,Container) 
            CheckLag() 
            wait(1000) 
         Else 
            Exit=1 
         endif 
      until Exit==1 
   Next 
ToEat() 
uo.textopen() 
UO.TextPrint('Выгрузка произведена: '+Space +Time)  
   walkn(TempX,TempY,"") 
   ToHide() 
end sub 

Code: Select all

Container=UO.GetSerial('BESTBag')

Code: Select all

                  If UO.GetColor('finditem')==Colors[j] Then 
                  tColor = uo.getcolor('finditem') 
            if (tColor>='0x09A4') or (tColor=='0x0060') or (tColor=='0x0085') or (tColor=='0x008F') or (tColor=='0x010F') then 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem'))
Endif
                     Container=UO.GetSerial('BESTBag') 

Code: Select all

uo.click('finditem')

Code: Select all

uo.click('finditem') 
Cheklag() 

Code: Select all

If UO.GetColor('finditem')==Colors[j] Then 
uo.click('finditem') 
CheckLag() 
tColor = uo.getcolor('finditem') 
if (tColor>='0x09A4') or (tColor=='0x0060') or (tColor=='0x0085') or (tColor=='0x008F') or (tColor=='0x010F') then 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem')) 
Endif 
Container=UO.GetSerial('BESTBag') 

Code: Select all

If UO.GetColor('finditem')==Colors[j] Then 
uo.click('finditem') 
CheckLag() 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem')) 
Container=UO.GetSerial('BESTBag')