добор стрел

[lblmit]

всем привет! слепил вот такой на арчери.
я стреляю в манекен, потом его же и лечу;
манекен перекладывает стрелы из-под себя и из себя в склад.
я добираю стрелы со склада. Почему-то он добирает по 100 стрел на каждом круге, хотелось бы чтобы он добирал только когда меньше 100. в чем моя ошибка?

Code: Select all

while UO.SkillVal( 'Archery' ) < 1000



uo.warmode(true) 
uo.attack('opponent') 
repeat 
  if uo.getHP() < uo.getMaxHP()/4 || uo.getHP('opponent') < uo.getMaxHP('opponent')/2 then  
    uo.warmode(false) 
    repeat 
      uo.waittargetobject('self') 
      uo.usetype(uo.getGraphic('bandages')) 
      wait(350) 
    until uo.getHP() == uo.getMaxHP() 
    repeat 
      uo.waittargetobject('opponent') 
      uo.usetype(uo.getGraphic('bandages')) 
      wait(350) 
    until uo.getHP('opponent') == uo.getMaxHP('opponent') 
    wait(250) 
    uo.UseObject('shield')  
    wait(500) 
    uo.UseObject('weapon') 
    wait(500)
   UO.canceltarget()
   
If UO.Count( 'strela' ) < 100 Then
UO.Findtype( 'strela', -1, 'sklad')
UO.Grab( '100', 'finditem')
wait(1000)
CheckLag()
Endif
      

    uo.warmode(true) 
    uo.attack('opponent')
    

  endif 
  wait(700) 
until uo.dead() 
wend
endsub 


sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
while uo.injournal('backpack') 
uo.setJournalLine(uo.Injournal('backpack')-1,'is Empty!') 
wend 
end sub

[Mirage]

Code: Select all

If UO.Count( 'strela' ) < 100 Then ; если стрел в паке меньше 100 тогда
UO.Findtype( 'strela', -1, 'sklad')
UO.Grab( '100', 'finditem') ; берем 100 стрел
wait(1000)
CheckLag()
Endif

Если нужно добрать до 100 то будет вот такая строка:

Code: Select all

If UO.Count( 'strela' ) < 100 Then ; если стрел в паке меньше 100 тогда
UO.Findtype( 'strela', -1, 'sklad')
UO.Grab( str(100-UO.Count( 'strela' )), 'finditem') ; ДОБИРАЕМ до 100 стрел
wait(1000)
CheckLag()
Endif

[lblmit]

Code: Select all

If UO.Count( 'strela' ) < 100 Then ; если стрел в паке меньше 100 тогда
UO.Findtype( 'strela', -1, 'sklad')
UO.Grab( '100', 'finditem') ; берем 100 стрел
wait(1000)
CheckLag()
Endif

Если нужно добрать до 100 то будет вот такая строка:

Code: Select all

If UO.Count( 'strela' ) < 100 Then ; если стрел в паке меньше 100 тогда
UO.Findtype( 'strela', -1, 'sklad')
UO.Grab( str(100-UO.Count( 'strela' )), 'finditem') ; ДОБИРАЕМ до 100 стрел
wait(1000)
CheckLag()
Endif

так же добирает на каждом круге по 100 стрел, надо чтобы добирал ЕСЛИ ИХ МЕНЬШЕ 100

[Mirage]

какое то странное цитирование