sub latka_1ks_zvedni()

   UO.exec("exec gain")
   UO.exec("exec AFK_Kontrola")

   UO.deletejournal()

   UO.print("Na jakem stroji budem pracovat?")
   UO.addobject("stroj")
   while UO.targeting()
      wait(100)
   wend

   UO.print("Odkud budes brat material?")
   UO.addobject("bagl_zdroj")
   while UO.targeting()
      wait(100)
   wend

   UO.print("S jakym materialem budem pracovat?")
   UO.addobject("material")
   while UO.targeting()
      wait(100)
   wend

   UO.print("Ukaz vyrobek, ktery budeme vyrabet.")
   UO.addobject("vyrobek")
   while UO.targeting()
      wait(100)
   wend

   var typ,typ2,n
   typ = UO.getgraphic("vyrobek")
   typ2 = UO.getgraphic("material")

   repeat
      if (UO.getdistance("stroj") > 0) then

         UO.findtype(typ2, -1, "bagl_zdroj")
         if UO.findcount() then
            UO.moveitem("finditem","1","backpack")
         end if

         if UO.injournal("Save imminent") then
            UO.deletejournal()
            repeat
               wait(1000)
               UO.print("CEKAM!")
            until UO.injournal("Next scheduled")
            UO.deletejournal()
         else
            wait(500)
         endif

         UO.Waittargetobject("stroj")
         UO.usetype(typ2)

         for n=1 to 100
            if UO.injournal("Save imminent") then
               UO.deletejournal()
               repeat
                  wait(1000)
                  UO.print("CEKAM!")
               until UO.injournal("Next scheduled")
               UO.deletejournal()
            else
               wait(50)
            endif
         next

         UO.FindType(typ,-1,"backpack")
         if (UO.findcount()>0) then
            UO.moveitem("finditem",-1,"bagl_zdroj")
         endif

         if UO.injournal("Save imminent") then
            UO.deletejournal()
            repeat
               wait(1000)
               UO.print("CEKAM!")
            until UO.injournal("Next scheduled")
            UO.deletejournal()
         else
            wait(500)
         endif

         #UO.moveitem("bagl_zdroj",-1,"backpack") # zvedani baglu ze zeme
      else
         wait(150)
      endif

      if ((UO.count(typ2))==0) then
         UO.findtype(typ2, -1, "bagl_zdroj")
         if not UO.findcount() then
            UO.print("Dosel Material nebo nebyl zadny nalezen. Ukoncuji Script.")
            UO.Playwav("c:\UO\Wavs\Oyessir4.wav")
            UO.exec("terminate all")
         endif
      endif
   until UO.dead()

end sub