Скрипт на стрельбу из пушки, ищет цели в определенном радиусе, найдя стреляет. Раньше он у меня работал, но щас ни как не хочет стрелять, появляется прицел и он продолжает искать цели.
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
Помогите разобраться, а то минера ни на секунду нельзя оставить сразу убивают. Заранее Спасибо!!!
|