Конечный скрипт выглядит так:
Code:
sub kormim()
VAR cont = '0x400B6B7F' ; мешок с кормом
VAR target
VAR item = '-1' ; тип еды
VAR INFO = '-19 food' ; что именно пишется в журнале
VAR coll = 19 ; количество еды которое берешь за 1 раз.
VAR collLeft
VAR toMove
uo.deletejournal()
while 1
if uo.injournal( INFO ) then
collLeft = coll ;Reset counter
target=uo.JournalSerial(uo.InJournal( INFO )-1)
uo.deletejournal()
while (collLeft > 0)
uo.findtype(item,'-1',cont)
toMove = min(collLeft,UO.GetQuantity('finditem')) ;Amount we can move from found stack
collLeft = collLeft - toMove ;Amount left to be moved
uo.moveitem('finditem',toMove,target)
wait(500)
wend
endif
wait(500)
wend
end sub
Sub min(a,b)
if (a > b) then
return b
else
return a
endif
endsub
Спасибо всем кто помогал в его написании! =)