Yoko

Подходим к реагенту прежде чем его собрать.
После набора макс. кол-ва до сообщения "Прежде чем собирать далее переработайте собранный реагент" перерабатываем то что уже собрали в бекпеке типом prereg и затем продолжаем сбор.
После того как соберём всё на поле перерабатываем то что в бекпеке и прекращаем работу скрипта.

Собираем стоя на месте.

sub Get_Reg(reg,prereg)
  uo.Set('finddistance','15')
  uo.FindType(reg,'-1','ground')
  if uo.FindCount() then
    while uo.FindCount()
  #  WalkN(uo.GetX('finditem'),uo.GetY('finditem'),'finditem')
      uo.UseObject('finditem')
      wait(5000)
      uo.Print('We have '+STR(reg)+' regs.')
      if uo.InJournal('Прежде чем') then
        uo.FindType(prereg,'-1','backpack')
        while uo.FIndCount()
          uo.UseObject('finditem')
          wait(500)
          uo.FindType(prereg,'-1','backpack')
        wend
        uo.DeleteJournal()
      end if
      uo.FindType(reg,'-1','ground')      
    wend
  end if
  uo.FindType(prereg,'-1','backpack')
  while uo.FIndCount()
    uo.UseObject('finditem')
    wait(500)
    uo.FindType(prereg,'-1','backpack')
  wend
end sub
  
sub Get_MR()
  Get_Reg('0x18DF','0x18DD')
end sub

sub Get_Reg(reg,prereg)
  uo.Set('finddistance','15')
  uo.FindType(reg,'-1','ground')
  if uo.FindCount() then
    while uo.FindCount()
      WalkN(uo.GetX('finditem'),uo.GetY('finditem'),'finditem')
      uo.UseObject('finditem')
      wait(5000)
      uo.Print('We have '+STR(reg)+' regs.')
      if uo.InJournal('Прежде чем') then
        uo.FindType(prereg,'-1','backpack')
        while uo.FIndCount()
          uo.UseObject('finditem')
          wait(500)
          uo.FindType(prereg,'-1','backpack')
        wend
        uo.DeleteJournal()
      end if
      uo.FindType(reg,'-1','ground')      
    wend
  end if
  uo.FindType(prereg,'-1','backpack')
  while uo.FIndCount()
    uo.UseObject('finditem')
    wait(500)
    uo.FindType(prereg,'-1','backpack')
  wend
end sub
  
sub Get_MR()
  Get_Reg('0x18DF','0x18DD')
end sub