help
Posted: 2006-03-23 12:44:54
выложите если есть скриптик чтоб убивать птиц автоматом нходящихся на растоянии 4 на 4 клетки
Page 1 of 1
Posted: 2006-03-23 15:49:21
ну или хотябы чтобы чар на растоянии наводил на нее атаку
Posted: 2006-03-23 19:27:26
1. устанвливаешь радиус поискаGeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-
Posted: 2006-03-23 20:39:10
Sfagnum wrote:1. устанвливаешь радиус поискаGeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-
вобщем понтаваться не буду =)))
не умею я писать макросы на инжекте =)))
то что ты написал я понял но как это все написать в проге для меня мрак =))
Posted: 2006-03-23 21:24:45
GeR wrote:Sfagnum wrote:1. устанвливаешь радиус поискаGeR wrote:ну или хотябы чтобы чар на растоянии наводил на нее атаку
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
ругается на эту строчку
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:Sfagnum wrote:2 Cooper
вот тебе жить то скушно
??? Не понял...
Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся
ыыы улыбнуло
Гмм..
Всё мужики, вот из-за этого ***, для атворизации на форуме надо будет подышать на монитор
Posted: 2006-03-24 23:16:22
Destruction wrote:Cooper wrote:Destruction wrote:Cooper wrote:Sfagnum wrote:2 Cooper
вот тебе жить то скушно
??? Не понял...
Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся
ыыы улыбнуло
Гмм..
Всё мужики, вот из-за этого ***, для атворизации на форуме надо будет подышать на монитор
ыы
РЖУНИМАГУ
А если серьезно, Дест как написать проверку на кол-во 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