биндишь макрос в игре с текстом
Say ,terminate all
Чтоже вы все какието сложности то себе придумываете.
| Yoko http://forum.yoko.com.ua/ |
|
| Помогите дороботать http://forum.yoko.com.ua/viewtopic.php?f=17&t=15966 |
Page 1 of 1 |
| Author: | antonia [ 2010-11-17 23:46:01 ] |
| Post subject: | Помогите дороботать |
Вот нашел скрипт,на догонялку.Нужно чтоб зделали что бы я его мог выключать. sub chase() VAR target If UO.Targeting() Then UO.CancelTarget() Endif UO.Print( 'Please, choice of enemy:' ) UO.AddObject( 'enemy' ) While UO.Targeting() wait(100) Wend target = uo.getserial('enemy') while not uo.dead() and target<>"" if UO.GetDistance(target)>1 then Chaser(target) endif wait(100) wend end sub Sub Chaser(Target) VAR dx, dy While uo.getdistance(target) >1 If Target<>"" and uo.getdistance(target) >1 and not uo.dead() Then dx=UO.GetX(Target)-UO.GetX() dy=UO.GetY(Target)-UO.GetY() If UO.GetDistance(Target)<2 Then return Endif else Return Endif If dx<>0 AND dy<>0 Then If dx>0 AND dy>0 Then UO.Press(40) ; DownArrow Endif If dx>0 AND dy<0 Then UO.Press(39) ; RightArrow Endif If dx<0 AND dy>0 Then UO.Press(37) ; LeftArrow Endif If dx<0 AND dy<0 Then UO.Press(38) ; UpArrow Endif Endif If dx<>0 AND dy==0 Then If dx>0 Then UO.Press(34) ; PgDown Endif If dx<0 Then UO.Press(36) ; Home key Endif Endif If dx==0 AND dy<>0 Then If dy>0 Then UO.Press(35) ; End Endif If dy<0 Then UO.Press(33) ; PgUp Endif Endif Wend end sub |
|
| Author: | Mirage [ 2010-11-18 08:48:37 ] |
| Post subject: | Re: Помогите дороботать |
биндишь макрос в игре с текстом Say ,terminate all Чтоже вы все какието сложности то себе придумываете.
|
|
| Author: | antonia [ 2010-11-18 09:22:36 ] |
| Post subject: | Re: Помогите дороботать |
Mirage wrote: биндишь макрос в игре с текстом Say ,terminate all Чтоже вы все какието сложности то себе придумываете. Спасиб большое,помогло. |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|