Search found 8 matches
- 2008-12-22 22:19:24
- Forum: Free
- Topic: Фортран. Нужна помощь.
- Replies: 0
- Views: 2379
Фортран. Нужна помощь.
Есть траблы с задачками. Может кто помочь?
- 2007-02-26 19:22:10
- Forum: Help
- Topic: Вопрос. Цикл с ресаньем у креста.
- Replies: 8
- Views: 3904
- 2007-02-25 20:21:54
- Forum: Help
- Topic: Вопрос. Цикл с ресаньем у креста.
- Replies: 8
- Views: 3904
Вопрос. Цикл с ресаньем у креста.
sub Healing()
var npc='0x0003'
uo.Set('finddistance','5')
while not uo.Dead()
while uo.life < 195
uo.FindType(npc,'-1','ground')
while uo.FindCount()
wait(1000)
uo.FindType(npc,'-1','ground')
wend
uo.bandageself()
wait(3500)
Shield()
wend
wait(1500)
wend
end sub
sub ...
var npc='0x0003'
uo.Set('finddistance','5')
while not uo.Dead()
while uo.life < 195
uo.FindType(npc,'-1','ground')
while uo.FindCount()
wait(1000)
uo.FindType(npc,'-1','ground')
wend
uo.bandageself()
wait(3500)
Shield()
wend
wait(1500)
wend
end sub
sub ...
- 2007-02-25 13:50:12
- Forum: Help
- Topic: Помогите плиз отредактировать ходилку.
- Replies: 6
- Views: 2956
Спасибо.volhram wrote:должно быть такCode: Select all
if abs(x-myX)<=1 AND abs(y-myY)==0 then
- 2007-02-25 12:42:05
- Forum: Help
- Topic: Помогите плиз отредактировать ходилку.
- Replies: 6
- Views: 2956
- 2007-02-25 12:24:12
- Forum: Help
- Topic: Помогите плиз отредактировать ходилку.
- Replies: 6
- Views: 2956
Спасибо.
У меня в скрипте прописано типа такого.
Проблема в том, что чар точно в эти точки иногда не приходит, становится рядом. В скрипте видимо есть допуски точности подхода. Где они написаны - для меня темный лес. Помогите пожалуйста.
У меня в скрипте прописано типа такого.
Code: Select all
...
gotoXY(1111,2222)
script()
gotoXY(2222,3333)
script()
...- 2007-02-25 12:02:48
- Forum: Help
- Topic: Помогите плиз отредактировать ходилку.
- Replies: 6
- Views: 2956
Помогите плиз отредактировать ходилку.
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 ...
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 ...
- 2005-07-02 15:59:31
- Forum: Free
- Topic: До свидания.
- Replies: 39
- Views: 28911
Re: До свидания.
Жаль. ( Помогли и РЕАЛЬНО )))Savage wrote:Меня забанили на ДРВ. Играть в уо скорее всего больше небуду. Надеюсь кому то реально помогли мои скрипты.