Sub podschet()
    var fl=1
    var tip,name="",chis=0
    uo.print('Conteiner dly podscheta?')
    uo.exec('addobject cont')
    while uo.targeting()
       wait(100)
    wend
    uo.textclear()
    uo.textopen()
    uo.useobject('cont')
    wait(1000)
    while fl==1
       uo.findtype('-1','-1','cont')
       if uo.findcount() then
          uo.click('finditem')
          while name==""
             name=uo.getname('finditem')
             wait(10)
          wend
          tip=uo.GetGraphic('finditem')
          uo.findtype(tip,'-1','cont')
          while uo.findcount()
             chis=uo.getquantity('finditem')+chis
             uo.ignore('finditem')
             uo.findtype(tip,'-1','cont')
          wend
          uo.textprint(name+"  общее количество:  "+str(chis))
       else
          fl=0  
       endif
       name=""
       chis=0
    wend
    uo.ignorereset()
endsub

sub Luk ()   
UO.Print("Berem luk")   
UO.Exec("usetype 0x13B1")   
UO.Attack('laststatus')
end sub

sub Spear ()   
Var Svord='0x0F62'   
UO.Print("Berem speru")   
UO.Equipt('Rhand',Svord)   
UO.Attack('laststatus')
end sub

sub zerkalo()
   VAR ManaNeed=6
   VAR ManaNeedScroll=3
    UO.FindType('0x1F37',-1,'my')
    If UO.FindCount()>0 Then
     If UO.Mana>=ManaNeedScroll Then
      UO.WaitTargetSelf()
      UO.UseObject('finditem')
      UO.Print("Scroll!!!")
     Else
      UO.Print("Low mana scroll!!!")
     Endif
    Else
     If UO.Mana>=ManaNeed Then
      UO.Cast('Magic Reflection','self')
      UO.Print("Spell!!!")
     Else
      UO.Print("Low mana spell!!!")
     Endif
    Endif
end sub

sub Paral()
   UO.Set('lasttarget','laststatus')
   UO.FindType('0x1F52',-1,'my')
   If UO.GetQuantity('finditem')>0 then
    if UO.Mana>=14 then
     UO.WaitTargetObject('lasttarget')
     UO.UseObject('finditem')
     UO.Print("Scroll")
    else
     UO.Print("Low mana!!! Scroll!")
    endif
   else
    if UO.Mana>=28 then
     UO.Cast('Paralyze','laststatus')
     UO.Print("Spell")
    else
     UO.Print("Low mana!!! Spell!")
    endif
   endif
end sub

sub ky()
  VAR WaitTime=500
  VAR Exit=0, i
  DIM Loot[30]
   

  Loot[0]=0x0F80 ; kosti
  Loot[1]=0x0F90 ; dead woods
  Loot[2]=0x0F7B ; BM
  Loot[3]=0x0F7A ; BP
  Loot[4]=0x0F84 ; GA
  Loot[5]=0x0F85 ; GI
  Loot[6]=0x0F86 ; MR
  Loot[7]=0x0F88 ; NS
  Loot[8]=0x0F8C ; SA
  Loot[9]=0x0F8D ; SS
  Loot[10]=0x0F78 ; batwing
  Loot[11]=0x0F7E ; Sceleton Bones
  Loot[12]=0x0F87 ; Eyes of newt
  Loot[13]=0x0E76 ; Bag
  Loot[14]=0x0F0E ; Банки
  Loot[15]=0x0EED ; gp
  Loot[16]=0x0F91 ; wirm hearts
  Loot[17]=0x1BFB ; Bolts
  Loot[18]=0x0E34 ; Blanc Scroll
  Loot[19]=0x13B9 ; викинг
  Loot[20]=0x1B77 ; щит
  Loot[21]=0x13B1 ; Luk
  Loot[22]=0x0E87 ; Vilki
  Loot[23]=0x143E ; Aleba
  Loot[24]=0x0F8E ; Serpent Scales
  Loot[25]=0x14EB ; Treassure Map
  Loot[26]=0x0F79 ; Blackmoor
  Loot[27]=0x0F3F ; Arrow
  Loot[28]=0x0F79 ; Blackmoor
  Loot[29]=0x0F79 ; Blackmoor
   
  UO.UseObject('lastcorpse')

  if UO.GetQuantity('lastcorpse') then
   UO.SetArm('temp')
   UO.WaitTargetObject('lastcorpse')
   UO.UseType('0x0F51') ;dagger
   wait(1000)
   UO.Arm('temp')
   wait(1500)
  endif
   
;    UO.SetReceivingContainer('0x404CB2D1') ; loot store bag

  For i=0 to 27
   UO.FindType(Loot[i],-1,'ground')
   if UO.GetQuantity('finditem') then
   wait (100)
    UO.Grab(STR(0),'finditem')
    wait(WaitTime)
   endif

   if UO.GetQuantity('lastcorpse') then
    UO.FindType(Loot[i],-1,'lastcorpse')
    if UO.GetQuantity('finditem') then  
     if Loot[i]==0x1078 then
      UO.WaitTargetObject('finditem')
      UO.UseType('0x0F9E')
     else
      UO.Grab(STR(0),'finditem')
     endif     
     wait(Wa itTime)
    endif
   endif
  next

;    UO.UnSetReceivingContainer()
end sub

sub Sworda()
Var Svord='0x13B9'
UO.Equipt('Rhand',Svord)    
UO.Exec("usetype 0x1B76")
UO.Attack('laststatus')
endsub

sub Poison()
    VAR ManaNeed=9
    VAR ScrollManaNeed=4
    UO.Set('lasttarget','laststatus')
    If NOT UO.Poisoned('lasttarget') Then
     UO.FindType('0x1F40',-1,'my')
     If UO.GetQuantity('finditem')>0 Then
      If UO.Mana>=ScrollManaNeed Then
       UO.WaitTargetObject('lasttarget')
       UO.UseObject('finditem')
       UO.Print("Scroll")
      Else
       UO.Print("Low mana!!! Scroll!")
      Endif
     Else
      If UO.Mana>=ManaNeed Then
       UO.Cast('Poison','laststatus')
      Else
       UO.Print("Low mana!!!")
      Endif
     Endif
    Else
     UO.Print("Character already poisoned!")
    Endif
end sub