Yoko

Не угадал я сам догнал, всем спасибо топ клоуз.
UO.DeleteJournal() один лишний.

sub Uhod()
UO.WarMode(0)
ten()
UO.Cast('Recall','0x40BD6DB0')
UO.DeleteJournal()
repeat
UO.DeleteJournal()
If UO.InJournal('You have') then; Вотъ тут ошибка!
ten()
else
wait(50)
endif

If UO&#46 ...

sub Loot()
VAR i
DIM Loot[2]
Loot[0]=0x0F87; Eyes of newt
Loot[1]=0x0F7E; Bones
Loot[2]=0x1078; Skin
AddObject()
UO.UseObject('Body')

if UO.GetQuantity('Body') then
UO.WaitTargetObject('Body')
UO.WarMode ...