Yoko

Posted: **2006-03-23 12:44:54**

выложите если есть скриптик чтоб убивать птиц автоматом нходящихся на растоянии 4 на 4 клетки

Posted: **2006-03-23 15:49:21**

ну или хотябы чтобы чар на растоянии наводил на нее атаку

Posted: **2006-03-23 19:27:26**

GeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку

1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-

Posted: **2006-03-23 20:39:10**

Sfagnum wrote:
GeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку
1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-

вобщем понтаваться не буду =)))
не умею я писать макросы на инжекте =)))
то что ты написал я понял но как это все написать в проге для меня мрак =))

Posted: **2006-03-23 21:24:45**

GeR wrote:
Sfagnum wrote:
GeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку
1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-
вобщем понтаваться не буду =)))
не умею я писать макросы на инжекте =)))
то что ты написал я понял но как это все написать в проге для меня мрак =))

Вот скриптик попробуй тока втавь тип птички и дагера:

Code: Select all

sub ptichka()
VAR ptica= #тип птички
VAR ser

uo.exec('set finddistance 4')
while not uo.dead()
uo.findtype(ptica,-1,'ground')
wait(100)
while uo.findcount() > 0 
uo.findtype(ptica,-1,'ground') 
ser = uo.getserial('finditem')
wait(100)
while uo.getHP(ser) > 0
uo.attack(ser)
wait(100)
wend
uo.setarm('temp')
uo.waittargetobject(ser)
wait(500)
uo.usetype('0x0F51') ; Тип даггера 
wait(2000)
uo.arm('temp')
#тут если надо вставляешь лут
wend
uo.exec('set finddistance 15')
end sub

Posted: **2006-03-23 21:37:31**

ser = uo.setserial('finditem')

ругается на эту строчку
function not found - UO.SETSERIAL

Posted: **2006-03-23 21:39:20**

GeR wrote:ser = uo.setserial('finditem')

ругается на эту строчку
function not found - UO.SETSERIAL

исправил, смотри выше

Posted: **2006-03-23 21:43:14**

пасибо большое =)

Posted: **2006-03-23 21:44:55**

GeR wrote:пасибо большое =)

Если работает, то пожалуйста

Posted: **2006-03-23 21:46:34**

а еще вопросик можно сделать чтоб он сам щел по ласттаргету??? ну или до птички просто?

Posted: **2006-03-23 21:51:36**

GeR wrote:а еще вопросик можно сделать чтоб он сам щел по ласттаргету??? ну или до птички просто?

Ну если так:

Code: Select all

sub ptichka() 
VAR ptica= #тип птички 
VAR ser , x, y

uo.exec('set finddistance 4') 
while not uo.dead() 
uo.findtype(ptica,-1,'ground') 
wait(100) 
while uo.findcount() > 0 
uo.findtype(ptica,-1,'ground') 
ser = uo.getserial('finditem') 
wait(100) 
while uo.getHP(ser) > 0 
x = uo.GetX(ser)
wait(100)
y = uo.GetY(ser)
wait(100)
GotoXY(x, y)
wait(100)
uo.attack(ser) 
wait(100) 
wend 
uo.setarm('temp') 
uo.waittargetobject('lastcorpse') 
wait(500) 
uo.usetype('0x0F51') ; Тип даггера 
wait(2000) 
uo.arm('temp') 
#тут если надо вставляешь лут 
wend 
uo.exec('set finddistance 15') 
end sub 

sub GotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

Posted: **2006-03-23 21:58:55**

Здорово =))
но терь он бить не хочет =)))
он доходит до цели =)) вставляет ножик и начинает резать ее живую =)))

Posted: **2006-03-23 22:28:41**

GeR wrote:Здорово =))
но терь он бить не хочет =)))
он доходит до цели =)) вставляет ножик и начинает резать ее живую =)))

исправил, пробуй

Posted: **2006-03-23 23:57:27**

2 Cooper
вот тебе жить то скушно

Posted: **2006-03-24 06:13:31**

Sfagnum wrote:2 Cooper
вот тебе жить то скушно

??? Не понял...

Posted: **2006-03-24 22:53:41**

Cooper wrote:
Sfagnum wrote:2 Cooper
вот тебе жить то скушно
??? Не понял...

Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся

Posted: **2006-03-24 23:03:03**

Destruction wrote:
Cooper wrote:
Sfagnum wrote:2 Cooper
вот тебе жить то скушно
??? Не понял...
Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся

ыыы улыбнуло

я просто пьяный был, писал что в голову лезет

Posted: **2006-03-24 23:10:18**

Cooper wrote:
Destruction wrote:
Cooper wrote: ??? Не понял...
Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся
ыыы улыбнуло я просто пьяный был, писал что в голову лезет

Гмм..

Всё мужики, вот из-за этого ***, для атворизации на форуме надо будет подышать на монитор

Posted: **2006-03-24 23:16:22**

Destruction wrote:
Cooper wrote:
Destruction wrote: Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся
ыыы улыбнуло я просто пьяный был, писал что в голову лезет
Гмм..

Всё мужики, вот из-за этого ***, для атворизации на форуме надо будет подышать на монитор

ыы

РЖУНИМАГУ

А если серьезно, Дест как написать проверку на кол-во HP по серийнику, или проверку на "живость"

Code: Select all

wihle uo.getHP(ser) > 0 
uo.attack(ser)
wend

Не работает

Posted: **2006-03-25 10:43:45**

проверка на живость:

Code: Select all

if uo.IsNPC(ser) then
 uo.Print("Можно мочить!!!")
end if

Yoko

help

help