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
народ помогите пожалуйсто, сделайте так чтобы етот скрипт сумонил медведя на землю
[img]http://fomenko.ru/pic/pic/archive/94.jpg[/img]
В передаче "За стеклом" стекло поменяли на лупу. Теперь думают как назвать передачу
