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

Возможно ли сделать так.....
http://forum.yoko.com.ua/viewtopic.php?f=20&t=134		 Page 1 of 1
Author:  ИгорьАлек [ 2004-04-19 18:01:04 ]
Post subject:  Возможно ли сделать так.....
Есть скрипт на лесорубство.

выглядит так:
Code:
sub main()

rub(тут координаты деревьев)
rub(...,...,...,...)
rub(...,...,...,...)
.......
end sub

sub rub()
.......
end sub

Так вот, можно ли как нить сделать, чтоб в зависимости от того где стоит чар, он начинал скрипт с с того дерева, которое к нему ближе (по списку) и продалжал дальше по списку?
Author:  totus [ 2004-04-19 18:24:32 ]
Post subject:  Можно.
Делаем массив с координатами деревьев и перебором находим нужные нам деревья.
Или сортируем массив соотв. образом.

Искренне Ваш, Тотус Маньяковски.
Author:  necron [ 2004-04-19 18:44:26 ]
Post subject:  Re: Возможно ли сделать так.....
ИгорьАлек wrote:
Есть скрипт на лесорубство.

выглядит так:
Code:
sub main()

rub(тут координаты деревьев)
rub(...,...,...,...)
rub(...,...,...,...)
.......
end sub

sub rub()
.......
end sub

Так вот, можно ли как нить сделать, чтоб в зависимости от того где стоит чар, он начинал скрипт с с того дерева, которое к нему ближе (по списку) и продалжал дальше по списку?

качай старый форум там уже были такие скрипты
Author:  ИгорьАлек [ 2004-04-20 16:17:24 ]
Post subject: 
Скрипт мне не нужен, у меня есть и все прекрасно работает. Что то в старом форуме не нашел подобного.
Мне надо как нить замутить, чтоб рубить он начинал не с начала списка деревьев, а определив свое положение, выбирал ближайшее к нему дерево, и начинал с него рубить и шел дальше по списку.
Author:  ИгорьАлек [ 2004-04-21 19:51:34 ]
Post subject: 
Неужели никто не знает как такое можно замутить?

Может как нить и что нить писать в файл какой нить индентификатор дерева и потом при запуске скрипта читать этот файл найти индентификатор и с него начать.
Author:  totus [ 2004-04-21 20:01:07 ]
Post subject:  Я же уже отвечал.
Делай массив деревьев и сортируй его.
А потом ходи рубить по сортированному массиву.

Искренне Ваш, Тотус Маньяковски.
Author:  Sergiusis [ 2004-04-21 20:36:46 ]
Post subject:  T
Навскидку, с использованием моей системы (чтение из файла):

Code:
Sub SeekNear(FileName)
 Var F=File(FileName)
 Var T,R,A,B
 R=Trim(safecall F.Readln())
 A=Abs(UO.GetX()-GetNumb(R,1))+Abs(UO.GetY()-GetNumb(R,2))
 While not (F.Eof() or (T=='File read error'))
  T=Trim(safecall F.Readln())
  B=Abs(UO.GetX()-GetNumb(T,1))+Abs(UO.GetY()-GetNumb(T,2))
  If B<A Then
   R=T
   A=B
  EndIf
 Wend
 Return R
EndSub


+ процедуры GetNumb и Abs отсюда http://yokoinjection.narod.ru/scripts/AllUnit.sc
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/