Скрипт на автопушку (проблема с игнорами)

[lethal!]

такой вопрос. у меня есть очень хороший и рабочий скрипт на пушку. но принцип в нем такой : когда его запускаешь все кто прописаны в игнорах должны стоять рядом иначе он всё равно стреляет в них. можите переделать ?

Code: Select all

sub pushka()
  Var CBall     = "0x0E73"     # yadro
  Var CannonID  = "0x40E46F87" # id pushka
  
  Var j
  Var Exit
  
  Dim Npc[2]
  Npc[1]=0x0191; Women
  Npc[2]=0x0190; Men
  
  
  Var CBallPack = 0x40DA8C98 # konteyner s yadrami

  Var LeftX  = 2023
  Var RigthX = 2028
  Var UpY    = 725
  Var DownY  = 731
  
  
  UO.DeleteJournal()
  Exit = 0
  UO.FindType(CBall,'0xffff',CBallPack)
  If Uo.FindCount() >0 Then
    UO.WaitTargetObject(CannonID)
    wait(300)
    Uo.UseObject("finditem")
    wait(300)
  else  
    Exit = 1
  endif  
  
  if Exit ==0 then
    UO.Set("finddistance","12")
        UO.Ignore('0x0075417E')#Armani
    UO.Ignore('0x011DC267')#lethal [KingS]
    UO.Ignore('0x003D97F7')#The ManchesteR
    UO.Ignore('0x03128EAF')#RAZVETKA PRIEM
    UO.Ignore('0x018EAA83')#Jimmy Had Jane [KingS]
    UO.Ignore('0x0003E807')#Antiseptic [KingS]
    UO.Ignore('0x004ED63F')#Antibiotic [KingS]
    UO.Ignore('0x008B9B99')#Anastetic [KingS]



    Repeat
    for j=1 to 2          
      UO.FindType(Npc[j], '0xffff', 'ground')
      If Uo.FindCount() >0 Then        
        Uo.GetStatus("finditem")
        if (Uo.GetHP("finditem")>0) and (Uo.GetX("finditem")>=LeftX) and (Uo.GetX("finditem")<=RigthX) and (Uo.GetY("finditem")>=UpY) and (Uo.GetY("finditem")<=DownY) then
          uo.target("0x00000007","finditem")
          Wait(3500)
          #perezarytka
  UO.FindType(CBall,'0xffff',CBallPack)
  If Uo.FindCount() >0 Then
    UO.WaitTargetObject(CannonID)
    wait(150)
    Uo.UseObject("finditem")
    wait(150)
  else
    Exit = 1
  endif  
  
      Endif
      Endif
    Next
   Until (Exit==1) 
  Endif  
end Sub

ася 263645110