Вот макрос !!!

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Newbie1988
Posts: 2
Joined: 2008-01-10 09:00:47
Contact:

Вот макрос !!!

Post by Newbie1988 »

Чё он не робит интересно просто :)
Макрос на автопушку:

sub fire()
uo.UseObject('0x534A3A26')
wait(1500)
uo.set("finddistance","14")
ignor()
perezaryad()
While 1<2
uo.findtype("0x0190","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>4760 and uo.GetX('finditem')<4770 and uo.GetY('finditem')>3759 and uo.GetY('finditem')<3777) Then
uo.target('0x0000007','finditem')
wait(2500)
perezaryad()
endif
uo.findtype("0x0191","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>4760 and uo.GetX('finditem')<4770 and uo.GetY('finditem')>3759 and uo.GetY('finditem')<3777) Then
uo.target('0x0000007','finditem')
wait(2500)
perezaryad()
endif
uo.findtype("0x001C","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>4760 and uo.GetX('finditem')<4770 and uo.GetY('finditem')>3759 and uo.GetY('finditem')<3777) Then
uo.target('0x0000007','finditem')
wait(2500)
perezaryad()
endif
uo.findtype("0x0E","-1","ground")
If UO.FindCount()>0 and (uo.GetX('finditem')>4760 and uo.GetX('finditem')<4770 and uo.GetY('finditem')>3759 and uo.GetY('finditem')<3777) Then
uo.target('0x0000007','finditem')
wait(2500)
perezaryad()
endif
wait(1500)
wend
end sub

Sub perezaryad()
UO.WaitTargetObject('0x55A9A127')
UO.Exec("findtype 0x0E73 -1 0x534A3A26")
uo.useobject("finditem")
wait(850)
end sub

Sub ignor()
DIM ignor[9]
ignor[0]='self'
ignor[1]='0x00AB3FA8' #SEKTOR
ignor[2]='0x00AB3FA4' #DYXA
ignor[3]='0x008B06C7' #fish
ignor[4]='0x00775FA7' #MAZ
ignor[5]='0x0096AE81' #Kupull
ignor[6]='0x009EE723' #StarCraft
ignor[7]='0x0002A1D2' #miner1
ignor[8]='0x01D5C34F' #miner2
ignor[9]='0x009EE723' #miner3

############################################
var i=0
repeat
for i=0 to 9
Uo.Ignore(ignor[i])
next
until ignor[i]==ignor[9]
end sub


Чё я с ним только не делал всёравно не стреляет может ID не там поставил. Гляньте...
CuHTpoH
Posts: 287
Joined: 2007-11-01 19:09:30
Location: Moscow
Contact:

Post by CuHTpoH »

ужас какой..... :shock:
**Выставляем отступы в скриптах*** ©Destruction
Feel the Power of Dark Side
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

repeat
for i=0 to 9
Uo.Ignore(ignor[i])
next
until ignor[i]==ignor[9]

Это можно на доску почета вешать. :D
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

AGRS wrote:repeat
for i=0 to 9
Uo.Ignore(ignor[i])
next
until ignor[i]==ignor[9]

Это можно на доску почета вешать. :D


:twisted: :twisted:
CuHTpoH
Posts: 287
Joined: 2007-11-01 19:09:30
Location: Moscow
Contact:

Post by CuHTpoH »

:D :D :D :D
**Выставляем отступы в скриптах*** ©Destruction
Feel the Power of Dark Side
Post Reply