такой вопрос. у меня есть очень хороший и рабочий скрипт на пушку. но принцип в нем такой : когда его запускаешь все кто прописаны в игнорах должны стоять рядом иначе он всё равно стреляет в них. можите переделать ?
Code: 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
|