help

[GeR]

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

[GeR]

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

[Sfagnum]

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

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

[GeR]

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

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

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

[Kynep]

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

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

[GeR]

ser = uo.setserial('finditem')

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

[Kynep]

ser = uo.setserial('finditem')

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

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

[GeR]

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

[Kynep]

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

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

[GeR]

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

[Kynep]

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

Ну если так:

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 

[GeR]

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

[Kynep]

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

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

[Sfagnum]

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

[Kynep]

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

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

[Destruction]

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

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

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

[Kynep]

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

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

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

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

[Destruction]

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

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

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

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

Гмм..

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

[Kynep]

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

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

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

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

Гмм..

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

ыы РЖУНИМАГУ
А если серьезно, Дест как написать проверку на кол-во HP по серийнику, или проверку на "живость"

Code: Select all

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

Не работает

[SLAK]

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

Code: Select all

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