Yoko
http://forum.yoko.com.ua/

поиск человека
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14619		 Page 1 of 1
Author:  xarek [ 2009-03-29 17:16:36 ]
Post subject:  поиск человека
Товарищи. выручайте)))
Вообщем все дело в скупке)

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

Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/