Yoko

Posted: **2009-03-24 08:52:39**

sub auto()
uo.useobject("0x779B994D")
uo.set("finddistance","18")
Uo.Ignore("0x015D40CB")
perezaryad()
While 1<2
uo.findtype("0x0191 -1 ground")
if uo.findcount() > 0 AND (uo.getX('finditem') >= 2570) and (uo.getX('finditem') <= 2575) and (uo.getY('finditem') >= 154) and (uo.getY('finditem') <= 160) then
uo.waittargetobject('finditem')
wait(3000)
uo.findtype("0x0191 -1 ground")
if uo.findcount() > 0 AND (uo.getX('finditem') >= 2570) and (uo.getX('finditem') <= 2575) and (uo.getY('finditem') >= 154) and (uo.getY('finditem') <= 160) then
uo.waittargetobject('finditem')
wait(3000)
wend
end sub

Sub perezaryad()
UO.WaitTargetObject('0x7ABA2BA1')
UO.Exec("findtype 0x0E73 -1 0x779B994D")
uo.useobject("finditem")
wait(550)
end sub

Макрос на автопушку, он открывает сундук, заряжает ядро в пушку, и ошибку выдает заместо того чтобы убивать цель.

вот такой вот макрос, пишет ошибку:
Line 24: Parse error

уже весь мозг сломал (так как в скрипте 23 строчки), ничего понять не могу...

Posted: **2009-03-24 10:25:11**

Code: Select all

###########
VAR ser#### НЕ удалять!
VAR sunduk = '0x779B994D'
VAR pushka = '0x7ABA2BA1'
VAR waitTime = 1 #Время в секундах между выстрелами

sub auto() 
   uo.useobject(sunduk)
   wait(500)
   uo.set("finddistance","18")
   Uo.Ignore('self')
   waitTime = waitTime * 1000
   While 1<2 
      uo.findtype('0x0191', '-1', 'ground') 
      if uo.findcount() > 0 AND (uo.getX('finditem') >= 2570) and (uo.getX('finditem') <= 2575) and (uo.getY('finditem') >= 154) and (uo.getY('finditem') <= 160) then
         ser = UO.GetSerial('finditem')
         wait(waitTime)
         perezaryad()
      else
         uo.findtype('0x0190', '-1', 'ground') 
         if uo.findcount() > 0 AND (uo.getX('finditem') >= 2570) and (uo.getX('finditem') <= 2575) and (uo.getY('finditem') >= 154) and (uo.getY('finditem') <= 160) then 
            ser = UO.GetSerial('finditem')
            wait(waitTime)
            perezaryad()
         endif
      endif
   wend 
end sub 

Sub perezaryad() 
   UO.Findtype('0x0E73', '-1', sunduk) 
   UO.WaitTargetObject(pushka, ser)
   uo.useobject('finditem') 
   wait(600) 
end sub

Posted: **2009-03-24 14:00:16**

спасибо куперу :-)

Yoko

Подскажите пожалуйста где ошибка...

Подскажите пожалуйста где ошибка...