PS я как то находил тут прям тему где были одни ходилки но щас что то найти не могу!
Понатыкал игноррес но что то такая же проблема может надо!
Track World items галочка стоит))
Заранее спасибо! приму любую помощь:)
Code: Select all
sub Skupka()
Var VND,q,z,b,ckey
ckey = 0
uo.resend()
uo.ignorereset()
Dim scan[4]
scan[1] = '0x0190' ; мужик
scan[2] = '0x0191' ; не мужик
scan[3] = '0x0190' ; мужик
scan[4] = '0x0191' ; не мужик
uo.ignore('self')
uo.set( 'finddistance', '7' )
for q=1 to 4
uo.findtype( scan[q], '-1', 'ground' )
if Uo.FindCount() then
for z=1 to Uo.FindCount()
uo.findtype( scan[q], '-1', 'ground' )
ckey=ckey+1
wait(300)
uo.ignorereset()
VND = Uo.GetSerial('finditem')
uo.ignorereset()
b=UO.GetDistance(vnd)
while b>1
SuperWalk(0,0,vnd)
b=UO.GetDistance(vnd)
VND = Uo.GetName('finditem')
Uo.IgnoreReset()
uo.Set('buydelay',1500)
Uo.Buy('Zakupka',VND)
wait(2000)
Uo.Ignore('finditem')
wait(1000)
next
endif
uo.ignorereset()
next
uo.ignorereset()
end sub