| Yoko http://forum.yoko.com.ua/ |
|
| Вот макрос !!! http://forum.yoko.com.ua/viewtopic.php?f=3&t=13069 |
Page 1 of 1 |
| Author: | Newbie1988 [ 2008-01-15 12:41:25 ] |
| Post subject: | Вот макрос !!! |
Чё он не робит интересно просто Макрос на автопушку: 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 не там поставил. Гляньте... |
|
| Author: | CuHTpoH [ 2008-01-17 20:35:08 ] |
| Post subject: | |
ужас какой..... |
|
| Author: | AGRS [ 2008-01-18 11:37:10 ] |
| Post subject: | |
repeat for i=0 to 9 Uo.Ignore(ignor[i]) next until ignor[i]==ignor[9] Это можно на доску почета вешать. |
|
| Author: | Kynep [ 2008-01-18 11:56:37 ] |
| Post subject: | |
AGRS wrote: repeat
for i=0 to 9 Uo.Ignore(ignor[i]) next until ignor[i]==ignor[9] Это можно на доску почета вешать. |
|
| Author: | CuHTpoH [ 2008-01-19 13:09:21 ] |
| Post subject: | |
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|