Code:
sub battle() 
var t 
UO.CancelMenu() 
UO.DeleteJournal() 
UO.Setarm('arm') 
UO.AutoMenu('What','Polar') 
while NOT UO.Dead() 
if UO.Life<UO.Str then 
repeat 
UO.Bandageself() 
wait(5000) 
if UO.Count('0x0e21')==0 then 
uo.waittargettype('0x1008') 
uo.usetype('0x0E20') 
wait(500) 
UO.DeleteJournal() 
endif 
until UO.Life==UO.Str 
endif 
UO.Arm('arm') 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
wait(500) 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
t=0 
repeat 
wait(500) 
t=t+1 
if t>15 then 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
t=0 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
endif 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()>0 
UO.WarMode(1) 
repeat 
wait(500) 
if abs(UO.GetX('finditem')-UO.GetX())>2 or abs(UO.GetY('finditem')-UO.GetY())>1 then 
UO.UseType('0x0F4F') 
endif 
if UO.InJournal('too close') then 
UO.Arm('arm') 
endif 
if UO.Life<35 then 
UO.UseType('0x0F0E','0x09BB') 
endif 
UO.DeleteJournal() 
UO.Attack('finditem') 
wait(2000) 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()==0 
wend 
end sub
народ помогите пожалуйсто, сделайте так чтобы етот скрипт сумонил медведя на землю
 
					
																_________________
В передаче "За стеклом" стекло поменяли на лупу. Теперь думают как назвать передачу