Подходим к реагенту прежде чем его собрать.
После набора макс. кол-ва до сообщения "Прежде чем собирать далее переработайте собранный реагент" перерабатываем то что уже собрали в бекпеке типом prereg и затем продолжаем сбор.
После того как соберём всё на поле перерабатываем то что в бекпеке и прекращаем работу скрипта.
Собираем стоя на месте.
Code: 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
Code: 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
|