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

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
invis
Posts: 17
Joined: 2006-06-05 20:33:19

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

Post 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 
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

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

Post by Mirage »

в первом скрипте достаточно пропустить через мою подпись вторую строку и будет видно что как бы for есть а next нет, есть until а repeat нет.
Post Reply