sub CompareBP()
   var x,z
   dim item[15],itemcount[15]
   
   ###reagent bp####
   item[0]="0x0F7A"
   itemcount[0]=1 #kolichestov bp
   ######################
   
   ###reagent  bm####
   item[1]="0x0F7B"
   itemcount[1]=1 #kolichestov bm
   ######################
   
   ###reagent  ga####
   item[2]="0x0F84"
   itemcount[2]=1 #kolichestov ga
   ###################
   
   ###reagent  gs####
   item[3]="0x0F85"
   itemcount[3]=1 #kolichestov gs
   ###################
   
   ###reagent  mr####
   item[4]="0x0F86"
   itemcount[4]=1 #kolichestov mr
   ###################
   
   ###reagent  ns####
   item[5]="0x0F88"
   itemcount[5]=1 #kolichestov ns
   ###################
   
   ###reagent  sa####
   item[6]="0x0F8C"
   itemcount[6]=1 #kolichestov sa
   ###################
   
   ###reagent  ss####
   item[7]="0x0F8D"
   itemcount[7]=1 #kolichestov ss
   ###################
   
   ###Ref Scroll####
   item[8]="0x1F50"
   itemcount[8]=1 #kolichestov REF Scroll
   ###################
   
   ###Lt Scroll####
   item[9]="0x1F4A"
   itemcount[9]=1 #kolichestov LT Scroll
   ###################
   
   ###EB Scroll####
   item[10]="0x1F56"
   itemcount[10]=1 #kolichestov EB Scroll
   ###################
   
   ###FS Scroll####
   item[11]="0x1F5F"
   itemcount[11]=10 #kolichestov FS Scroll
   ###################
   
   ###GH Scroll####
   item[12]="0x1F49"
   itemcount[12]=1 #kolichestov GH Scroll
   ###################
   
   ###bandage########
   item[13]="0x0E21"
   itemcount[13]=10 #kolichestov bandage
   ###################
   
   ###empty botle####
   item[14]="0x0E21"
   itemcount[14]=1 #kolichestov empty botle
   ###################
   
   ###GOLD####
   item[15]="0x0EED"
   itemcount[15]=400 # 0 vse zoloto
   ###################
   
   UO.Print("Vibirite container s resursami")
   uo.addobject('resbag')
   while uo.targeting()
      wait(200)
   wend
   
   UO.Print("Resouce compare start...")  
   UO.IgnoreReset()   
   for x = 0 to GetArrayLength(item)-1
      
      ##skidivaem vse v resursniy container
      ##povtorim 6 raz, vdrug stopki
      for z = 0 to 6
         UO.FindType(item[x], -1, 'backpack')
         if UO.FindCount() > 0 Then
            UO.moveitem('finditem',0,'resbag')
         else
            break
         endif
         Wait(30)
      next
      ##berem iz resursnogo containera
      UO.FindType(item[x], -1, 'resbag')
      if UO.FindCount() > 0 Then
         if x >=0 and x < 8 then
            UO.moveitem('finditem',itemcount[x],'backpack',400,0,0)
         else
            if x > 7 and  x < 13 then
               UO.moveitem('finditem',itemcount[x],'backpack',20,200,0)
            else
               UO.moveitem('finditem',itemcount[x],'backpack',200,200,0)
            endif
         endif
      endif
      Wait(10)  
   next
   UO.Print("Resouce compare Complete")
endsub