Page 1 of 1

переделать авто-атаку

Posted: 2011-11-15 10:28:03
by invis
вот такой скриптик он выключаеться сам после 2 мобов

Code: Select all

sub war()
dim monster[2]
    monster[1]='0x0023' ;lizard
    monster[2]='0x0011' ;ogr
var i
uo.set('finddistance','10')
for i=1 to 2
   uo.findtype(monster[i],'-1','ground')
        wait(100)
   if uo.findcount()>0 then
      uo.attack('finditem')
          repeat
           wait(500)
          until uo.getx('finditem')==0
   if UO.Weight>=UO.Str*4 then
           wait(500)
          UO.Ignore('finditem')
           unload()
    end if
until uo.dead()
end sub


помогите исправить за рание спасибо

было бы не плохо если можно было бы еще присобачить вот это

Code: Select all

sub zz() 
   VAR Trigger=2
   Repeat
      If UO.GetDistance('lastattack')>2 AND Trigger<>1 Then
         UO.Exec(',exec archery')
         Trigger=1
      Endif
      If UO.GetDistance('lastattack')<2 AND Trigger<>2 Then
         UO.Exec(',exec sword')
         Trigger=2
      Endif   
      If UO.Life<50 Then
         uo.usetype(0x0F0E)  # invizka
           wait(10000)
         UO.Say('boo')
           wait(100)
      Endif
      wait(100)
   Until UO.Dead()
end sub

Re: переделать авто-атаку

Posted: 2011-11-16 07:51:16
by Mirage
в первом скрипте достаточно пропустить через мою подпись вторую строку и будет видно что как бы for есть а next нет, есть until а repeat нет.