sub perebros() var OreBox = '0x40483CE8' var HiOreBox = '0x40483CDE' var b, v, q var kol = 200 DIM Ore[4] Ore[0]='0x19B9' ; 1 ore Ore[1]='0x19BA' ; 2 ore Ore[2]='0x19B8' ; 3 ore Ore[3]='0x19B7' ; >3 ore dim Colors[6] Colors[0]="0x0193" ; Gorgan Colors[1]="0x0014" ; Steel Colors[3]="0x0032" ; Eldar Colors[4]="0x0482" ; Plut Colors[5]="0x0488" ; Plut UO.UseObject(OreBox) wait(1000) For b=0 to 3 For v=0 to 5 UO.FindType(Ore[b],Colors[v],'beckpack') while uo.findcount() UO.MoveItem(Ore[b],Colors[v], OreBox) wait(900) UO.FindType(Ore[b],Colors[v],'beckpack') wend end sub