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.InJournal('fizzles') then
UO.Cast('Recall','0x40BD6DB0')
else
wait(50)
end if
until UO.InJournal ...

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(0)
UO.UseType('0x0F51');dagger
wait(500)
UO.UseType('0x13B1');bow
UO.WarMode(1)
wait ...