Search found 8 matches

by Black Widow
2008-12-22 22:19:24
Forum: Free
Topic: Фортран. Нужна помощь.
Replies: 0
Views: 2379

Фортран. Нужна помощь.

Есть траблы с задачками. Может кто помочь?
by Black Widow
2007-02-26 19:22:10
Forum: Help
Topic: Вопрос. Цикл с ресаньем у креста.
Replies: 8
Views: 3904

проблема решена. всем спасибо. тему можно закрыть.
by Black Widow
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 ...
by Black Widow
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 
должно быть так
Спасибо.
by Black Widow
2007-02-25 12:42:05
Forum: Help
Topic: Помогите плиз отредактировать ходилку.
Replies: 6
Views: 2956

prof wrote:Тогда тебе проще найти другую ходилку.
Очень жаль, т.к. ходилка очень устраивает на предмет обхода препятствий.
by Black Widow
2007-02-25 12:24:12
Forum: Help
Topic: Помогите плиз отредактировать ходилку.
Replies: 6
Views: 2956

Спасибо.
У меня в скрипте прописано типа такого.

Code: Select all

...
gotoXY(1111,2222)
script()
gotoXY(2222,3333)
script()
...
Проблема в том, что чар точно в эти точки иногда не приходит, становится рядом. В скрипте видимо есть допуски точности подхода. Где они написаны - для меня темный лес. Помогите пожалуйста.
by Black Widow
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 ...
by Black Widow
2005-07-02 15:59:31
Forum: Free
Topic: До свидания.
Replies: 39
Views: 28911

Re: До свидания.

Savage wrote:Меня забанили на ДРВ. Играть в уо скорее всего больше небуду. Надеюсь кому то реально помогли мои скрипты.
Жаль. ( Помогли и РЕАЛЬНО )))