Yoko

Posted: **2009-03-29 17:16:36**

Товарищи. выручайте)))
Вообщем все дело в скупке)

Помогите сделать так что бы скрипт не шел дальше пока он не найдет вена,чувака, не суть важно)))т.е пока не повявится тот кто нужен ждем его:)

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

Yoko

поиск человека

поиск человека