Yoko

if uo.injournal('text') then
действие
endif

var i
var Trup = 'lastcorpse'
var Text1="You see: Body"

sub main()
while 1==1
if uo.injournal(text1) then
rezat()
end if
wend
next
end sub

sub Rezat()
UO.UseObject(trup) 
      if UO.GetQuantity(trup) then 
   UO.SetArm('temp') 
   UO.WaitTargetObject(trup) 
   UO.UseType('0x0F51') ; Òèï Äàãåðà (Íþáè)
      wait(500) 
   UO.Arm('temp') 
      wait(1000) 
      endif 
      
lootall()
   uo.print('Zakonchili...') 
wait(500)
info()
wait(100)
end sub


sub Lootall()
DIM Loot[5]
   Loot[0] = '0x0EED'
   Loot[1] = '0x1BFB'
   Loot[2] = '0x1BDD'
   Loot[3] = '0x1BDD'
   Loot[4] = '0x0F90'
   
   
For i = 0 to 4
   Uo.FindType(Loot[i], '-1', trup)
         wait(100)
      while UO.FindCount() > 0
         wait(100)
   UO.MoveItem('finditem')
         wait(1000)
   Uo.FindType(Loot[i], '-1', trup)
   wend
   next
   uo.print('Netu nix...')
end sub

var Text1="You see: Body"

sub main() 
while 1==1 
if uo.injournal(text1) then 
rezat() 
end if 
wend 
next 
end sub 

var Text1 = "Body of" 

sub main()
while 1=1
if uo.injournal(text1) then
rezat()
Wait(100)
uo.deletejournal()
wait(5000)
else
up.print("vse...")
end if
wend
wait(10000)
end sub

var Text1 = "Body of" 

sub main()
while 1=1
if UO.InJournal(text1) then
rezat()
end if
wait(100)
wend
end sub

Sub rezat() 
uo.deletejournal() 
;и че там дальше у тебя
...
end sub