sub Main()
 While not UO.Hidden() 
   UO.Useskill("Hiding") 
   Wait(10000) 
  Wend
var tk=25 
UO.addtype('kirka1','0x0e85')
UO.addtype('kirka2','0x0e86')
Var X, Y, dX, dY
For dX = -2 To 2
For dY = -2 To 2
X = UO.GetX() + dX
Y = UO.GetY() +dY
kopat(x, y, tk)
tk=tk-1
Next
Next
end sub
########################################
###############################
sub kopat(x, y, tk)
while not UO.InJournal("far") OR not UO.InJournal("else") OR not UO.InJournal("mine") OR not UO.InJournal("Proto") 
   UO.DeleteJournal()
   UO.print(str(tk))
   UO.Exec("waittargettile 0 " + STR(X) + " " + STR(Y) + " 1")
      if UO.count('kirka1')>0 then
         UO.Usetype('kirka1')
      else
         UO.Usetype('kirka2')
      end if
      while not UO.InJournal("loosen") OR not UO.InJournal("Luxury") OR not UO.InJournal("Common") OR not UO.InJournal("Arch") OR not UO.InJournal("Elemental")
         wait(250)
      wend
wend
end sub