Вообщем все дело в скупке)
Помогите сделать так что бы скрипт не шел дальше пока он не найдет вена,чувака, не суть важно)))т.е пока не повявится тот кто нужен ждем его:)
Code: Select all
sub Sk()
Var VND,q,z,b,ckey
ckey = 0
uo.press(122)
uo.ignorereset()
uo.press(122)
Dim scan[4]
scan[1] = '0x0190' ; мужик
scan[2] = '0x0191' ; не мужик
scan[3] = '0x0190' ; мужик
scan[4] = '0x0191' ; не мужик
uo.press(122)
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.press(122)
Uo.Buy('Zakupka',VND)
wait(3500)
uo.forget('finditem')
Uo.Ignore('finditem')
wait(1000)
next
endif
uo.ignorereset()
next
uo.ignorereset()
end sub