Page 4 of 4

Re: помогите пжслта с атакои

Posted: 2010-03-31 22:41:12
by lavdenis
Спасибо. Регистр имеет значение Sub sub вчем разница он и так и так читает? Если Sub писать он их просто прячет

Re: помогите пжслта с атакои

Posted: 2010-04-01 00:58:39
by lavdenis
кстати Beyonder вот так покатило

Code: Select all

until ((timeLeft>0) OR (timeout<=0)) AND (UO.GetSerial(name)=='0x00000000')### Я NOT убрал нафига он, есть ведь '=='  +)Ж

Re: помогите пжслта с атакои

Posted: 2010-04-01 01:02:10
by lavdenis
Но вот трабл заметил если таргет на себя указать то после этого он вообще таргет не показывает а пишет Auto target cancelled: и пока ID не удалиш из Enemy не хочет таргет брать. Что в условиях поменять чтоб таргет с меня не учитывался?

Re: помогите пжслта с атакои

Posted: 2010-04-01 08:42:56
by Beyonder
Фигня вышла, там именно "не равно" нужно. Попробуй так:

Code: Select all

until ((timeLeft>0) OR (timeout<=0)) AND (UO.GetSerial(name)<>'0x00000000')

Re: помогите пжслта с атакои

Posted: 2010-04-01 09:55:05
by lavdenis

Code: Select all

Sub addObjectWait(name,timeout)
    var timeLeft
   
   repeat
      UO.AddObject(name,0)
     
      if UO.waiting() then
         UO.canceltarget()
      endif
      uo.AddObject(name)
     
      timeLeft = timeout
      while (NOT UO.Targeting()) AND (timeLeft>0)
         wait(50)
         timeLeft = timeLeft -50
      wend
      while (UO.Targeting()) AND (timeLeft>0)
         wait(50)
         timeLeft = timeLeft -50
      wend
   until (timeLeft>0) OR (timeout<=0) AND (UO.GetSerial(name)<>'0x00000000')
   
   return UO.GetSerial(name)
Endsub


Не не работает. Мож дело в этом return addObjectWait(name,timeout) и return UO.GetSerial(name). Он начинает потому что без конца возвращать мне сериал и все вообще подвисает

Code: Select all

Sub addOrGetObject(name,distance,timeout)
    var oldObject = UO.GetSerial(name)
    if (( oldObject<>('0x00000000')) AND (UO.GetDistance(oldObject)<=distance) OR (distance==-1)) then
        return oldObject
    else
        return addObjectWait(name,timeout)
    endif
Endsub