скупка хадилка + плохо ищит + некторые остаются в игноре!
Posted: 2009-01-29 21:41:43
подскажите пожалуйста Хорошую ходилку( только не пошаговую, что бы с олвей рун он бежал) слышал что у ветерана хорошая но что то не нашел. и по поводу того что он не находит вендоров скорее всего находит но как указано в теме они просто остаются в игноре.
PS я как то находил тут прям тему где были одни ходилки но щас что то найти не могу!
Понатыкал игноррес но что то такая же проблема может надо!
Track World items галочка стоит))
Заранее спасибо! приму любую помощь:)
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