var corpse
while uo.injournal("Body of")
  corpse = uo.journalserial(uo.injournal("Body of")-1)
  # тут обработка трупа
  #...
  #перейти к следующему
  uo.setjournalline(uo.injournal("Body of")-1,"none")
wend

sub Looter()
  var i = 0,j = 0,k
  var corpse
  dim buf[7] #буфер для трупов
  for i = 0 to 6
    buf[i] = "0x00000000"
  next
  uo.deletejournal()
  while 1
    while uo.injournal("Body of")
      i = 0
      while i < 7
        if buf[i] == "0x00000000" then
          k = uo.injournal("Body of")-1
          buf[i] = uo.journalserial(k)
          i = 7
          uo.setjournalline(k,"deleted")
        endif
        i = i + 1
      wend
    wend
    for k = 0 to 6
      if buf[k] <> "0x00000000" and abs(uo.getx()-uo.getx(buf[k])) <= 3 and abs(uo.gety()-uo.gety(buf[k])) <= 3 then
        uo.useobject(buf[k])
        wait(100)
        corpse = buf[k]
        uo.useobject(corpse)
        buf[k] = "0x00000000"
      endif
    next
    wait(1000)
  wend
end sub