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

Ask for scripts here

Moderators: Murderator+, Murderator

lavdenis
Posts: 87
Joined: 2010-03-27 06:15:56
Contact:

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

Post by lavdenis »

Спасибо. Регистр имеет значение Sub sub вчем разница он и так и так читает? Если Sub писать он их просто прячет
lavdenis
Posts: 87
Joined: 2010-03-27 06:15:56
Contact:

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

Post by lavdenis »

кстати Beyonder вот так покатило

Code: Select all

until ((timeLeft>0) OR (timeout<=0)) AND (UO.GetSerial(name)=='0x00000000')### Я NOT убрал нафига он, есть ведь '=='  +)Ж
Last edited by lavdenis on 2010-04-01 01:02:45, edited 1 time in total.
lavdenis
Posts: 87
Joined: 2010-03-27 06:15:56
Contact:

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

Post by lavdenis »

Но вот трабл заметил если таргет на себя указать то после этого он вообще таргет не показывает а пишет Auto target cancelled: и пока ID не удалиш из Enemy не хочет таргет брать. Что в условиях поменять чтоб таргет с меня не учитывался?
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:

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

Post by Beyonder »

Фигня вышла, там именно "не равно" нужно. Попробуй так:

Code: Select all

until ((timeLeft>0) OR (timeout<=0)) AND (UO.GetSerial(name)<>'0x00000000')
lavdenis
Posts: 87
Joined: 2010-03-27 06:15:56
Contact:

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

Post 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
Post Reply