Laboratoř ČeskýchHer.cz - PasteBin

Vložit nový kód

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