Скрипт на стрельбу из пушки, ищет цели в определенном радиусе, найдя стреляет. Раньше он у меня работал, но щас ни как не хочет стрелять, появляется прицел и он продолжает искать цели.
Code: sub fire()
uo.UseObject('0x5704BC2B') #открывает сундук с ядрами
wait(1000)
uo.set("finddistance","12")
ignor()
perezaryad()
While 1<2
uo.findtype("0x0190","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>1833 and uo.GetX('finditem')<1838 and uo.GetY('finditem')>1033 and uo.GetY('finditem')<1038) Then
uo.target('0x5704BC2B','finditem')
wait(3000)
perezaryad()
endif
uo.findtype("0x0191","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>1833 and uo.GetX('finditem')<1838 and uo.GetY('finditem')>1034 and uo.GetY('finditem')<1038) Then
uo.target('0x5704BC2B','finditem')
wait(3000)
perezaryad()
endif
wait(1000)
wend
end sub
Sub perezaryad()
UO.WaitTargetObject('0x57287F63')
UO.Exec("findtype 0x0E73 -1 0x5704BC2B")
uo.useobject("finditem")
wait(550)
end sub
Sub ignor()
DIM ignor[21]
ignor[0]='self'
ignor[1]='' #
ignor[2]='' #
ignor[3]='' #
ignor[4]='' #
ignor[5]='' #
ignor[6]='' #
ignor[7]='' #
ignor[8]='' #
ignor[9]='' #
ignor[10]='' #
ignor[11]='' #
ignor[12]='' #
ignor[13]='' #
ignor[14]='' #
ignor[15]='' #
ignor[16]='' #
ignor[17]='' #
ignor[18]='' #
ignor[19]='' #
ignor[20]='' #
############################################
var i=0
repeat
for i=0 to 20
Uo.Ignore(ignor[i])
next
until ignor[i]==ignor[20]
end sub
Помогите разобраться, а то минера ни на секунду нельзя оставить сразу убивают. Заранее Спасибо!!!
|