Yoko
http://forum.yoko.com.ua/

help
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7096		 Page 1 of 1
Author:  GeR [ 2006-03-23 12:44:54 ]
Post subject:  help
выложите если есть скриптик чтоб убивать птиц автоматом нходящихся на растоянии 4 на 4 клетки
Author:  GeR [ 2006-03-23 15:49:21 ]
Post subject: 
ну или хотябы чтобы чар на растоянии наводил на нее атаку
Author:  Sfagnum [ 2006-03-23 19:27:26 ]
Post subject: 
GeR wrote:
ну или хотябы чтобы чар на растоянии наводил на нее атаку
1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-
Author:  GeR [ 2006-03-23 20:39:10 ]
Post subject: 
Sfagnum wrote:
GeR wrote:
ну или хотябы чтобы чар на растоянии наводил на нее атаку
1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-


вобщем понтаваться не буду =)))
не умею я писать макросы на инжекте =)))
то что ты написал я понял но как это все написать в проге для меня мрак =))
Author:  Kynep [ 2006-03-23 21:24:45 ]
Post subject: 
GeR wrote:
Sfagnum wrote:
GeR wrote:
ну или хотябы чтобы чар на растоянии наводил на нее атаку
1. устанвливаешь радиус поиска
2. ищешь по типу на земле птичку
3. атакуешь её
4. врубаешь проверку - не мертва ли она.
5. как ток птичка сдохла режешь/лутаешь
6. топаешь в п2.
-=всё=-


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



Вот скриптик попробуй тока втавь тип птички и дагера:
Code:
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
Author:  GeR [ 2006-03-23 21:37:31 ]
Post subject: 
ser = uo.setserial('finditem')

ругается на эту строчку
function not found - UO.SETSERIAL
Author:  Kynep [ 2006-03-23 21:39:20 ]
Post subject: 
GeR wrote:
ser = uo.setserial('finditem')

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


исправил, смотри выше
Author:  GeR [ 2006-03-23 21:43:14 ]
Post subject: 
пасибо большое =)
Author:  Kynep [ 2006-03-23 21:44:55 ]
Post subject: 
GeR wrote:
пасибо большое =)


Если работает, то пожалуйста :D
Author:  GeR [ 2006-03-23 21:46:34 ]
Post subject: 
а еще вопросик можно сделать чтоб он сам щел по ласттаргету??? ну или до птички просто?
Author:  Kynep [ 2006-03-23 21:51:36 ]
Post subject: 
GeR wrote:
а еще вопросик можно сделать чтоб он сам щел по ласттаргету??? ну или до птички просто?


Ну если так:

Code:
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

Author:  GeR [ 2006-03-23 21:58:55 ]
Post subject: 
Здорово =))
но терь он бить не хочет =)))
он доходит до цели =)) вставляет ножик и начинает резать ее живую =)))
Author:  Kynep [ 2006-03-23 22:28:41 ]
Post subject: 
GeR wrote:
Здорово =))
но терь он бить не хочет =)))
он доходит до цели =)) вставляет ножик и начинает резать ее живую =)))


исправил, пробуй
Author:  Sfagnum [ 2006-03-23 23:57:27 ]
Post subject: 
2 Cooper
вот тебе жить то скушно :roll:
Author:  Kynep [ 2006-03-24 06:13:31 ]
Post subject: 
Sfagnum wrote:
2 Cooper
вот тебе жить то скушно :roll:


??? Не понял... :shock:
Author:  Destruction [ 2006-03-24 22:53:41 ]
Post subject: 
Cooper wrote:
Sfagnum wrote:
2 Cooper
вот тебе жить то скушно :roll:


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

Да он про то, что сидишь раз не так написал, два не эдак - развлекаешся :wink:
Author:  Kynep [ 2006-03-24 23:03:03 ]
Post subject: 
Destruction wrote:
Cooper wrote:
Sfagnum wrote:
2 Cooper
вот тебе жить то скушно :roll:


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

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


ыыы улыбнуло :D я просто пьяный был, писал что в голову лезет :twisted:
Author:  Destruction [ 2006-03-24 23:10:18 ]
Post subject: 
Cooper wrote:
Destruction wrote:
Cooper wrote:
Sfagnum wrote:
2 Cooper
вот тебе жить то скушно :roll:


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

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


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

Гмм..

Всё мужики, вот из-за этого ***, для атворизации на форуме надо будет подышать на монитор :lol:
Author:  Kynep [ 2006-03-24 23:16:22 ]
Post subject: 
Destruction wrote:
Cooper wrote:
Destruction wrote:
Cooper wrote:
Sfagnum wrote:
2 Cooper
вот тебе жить то скушно :roll:


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

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


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

Гмм..

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


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

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


Не работает
Author:  SLAK [ 2006-03-25 10:43:45 ]
Post subject: 
проверка на живость:
Code:
if uo.IsNPC(ser) then
 uo.Print("Можно мочить!!!")
end if
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/