sub war()
dim monster[2]
    monster[1]='0x0023' ;lizard
    monster[2]='0x0011' ;ogr
var i
uo.set('finddistance','10')
for i=1 to 2
   uo.findtype(monster[i],'-1','ground')
        wait(100) 
   if uo.findcount()>0 then
      uo.attack('finditem')
          repeat
           wait(500)
          until uo.getx('finditem')==0
   if UO.Weight>=UO.Str*4 then 
           wait(500) 
          UO.Ignore('finditem') 
           unload() 
    end if 
until uo.dead() 
end sub 

sub zz() 
   VAR Trigger=2 
   Repeat 
      If UO.GetDistance('lastattack')>2 AND Trigger<>1 Then 
         UO.Exec(',exec archery') 
         Trigger=1 
      Endif 
      If UO.GetDistance('lastattack')<2 AND Trigger<>2 Then 
         UO.Exec(',exec sword') 
         Trigger=2 
      Endif    
      If UO.Life<50 Then 
         uo.usetype(0x0F0E)  # invizka 
           wait(10000) 
         UO.Say('boo') 
           wait(100) 
      Endif 
      wait(100) 
   Until UO.Dead() 
end sub