sub doplnit_regy_350()

     var pauza_presun = 1000

      var i

      dim regy[7] 

        regy[0] = 0x0F86

        regy[1] = 0x0F7B

        regy[2] = 0x0F8C

        regy[3] = 0x0F88

        regy[4] = 0x0F7A

        regy[5] = 0x0F84

        regy[6] = 0x0F8D

        regy[7] = 0x0F85

#   addobject("pytel", "Oznac pytel do ktereho se daji regy")

#   addobject("bedna", "Oznac bednu s regama")



    For i = 0 to 7

        UO.FindType(regy[i], -1, "pytel")

        UO.MoveItem("finditem", -1, "bedna")

        Wait(pauza_presun) 

        UO.FindType(regy[i], -1, "bedna")

        UO.MoveItem("finditem", 350, "pytel")

        Wait(pauza_presun) 

   Next

   UO.Print("Hotovo!") 

end sub