Yoko

Подскажите чем можно заменить вот ниже приведенную функцию:

Sub GetNumb(C,I) 
var J,T,K 
J=0 
K=1 
While K>0 
  J=J+1 
  If (Mid(C,J,1)==' ') Or (J>=Len(C)-1) Then 
   If I==0 Then 
    T=Val(Left(C,J)) 
   Else 
    T=GetNumb(Right(C,Len(C)-J-1),I-1) 
   EndIf 
   K=0 
  EndIf 
wend 
UO.Print(T) 
return T 
endsub

Из-за нее, когда чар доходит до последней точки в макре на мининг он не начинает заново обходить их.

Помница мне Grin что то советовал на счет этого, но я забыл и макр тот стер.

Сам макр вот отсюда: viewtopic.php?t=2624&highlight=

_________________
-=^NOVA RunUO 2 Server^=-
www.nova-uo.com
сферовское ПВП
IRC Server: irc.netbynet.ru; канал: #nova

up

_________________
-=^NOVA RunUO 2 Server^=-

www.nova-uo.com

сферовское ПВП

IRC Server: irc.netbynet.ru; канал: #nova

приведи цепочку раздумий, в результате которых ты пришёл к такому выводу.

ЗЫ влом так просто читать чужой скрипт.

Ну там связвнно что то с двойными пробелами т.к. точки вынесены в отдельный файл, я точно не помню что мне Grin говорил.

_________________
-=^NOVA RunUO 2 Server^=-

www.nova-uo.com

сферовское ПВП

IRC Server: irc.netbynet.ru; канал: #nova

Добавь в конец строки с числами пробел.

ЗЫ: Эта функция сделана с рекурсией. Поэтому если в строке больше 100 чисел - могут полезть проблемы. Если используешь много координат в строке - лучше замени эту функцию на мою GetWord(). Она здесь есть в каждом втором топике.

_________________
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...

в файле 33 координаты всего

выглядит этот файл c координатами вот так:

1546 5464 849 -1
**************
1548 5487 851 -1

где "**********" - это остальные 31 число.

_________________
-=^NOVA RunUO 2 Server^=-

www.nova-uo.com

сферовское ПВП

IRC Server: irc.netbynet.ru; канал: #nova

Ну так я тебе сказал же. Добавь пробел в скрипте. то бишь вставь в эту (выше) функцию строчку (куда-нибудь в начало, до цикла):

c = c + ' '

По идее, надо просто исправить:

(J>=Len(C)-1)

на

(J>=Len(C))

но это навскидку. Не тестил и не буду. Проще приписать пробел.

_________________
Ни один скрипт не работает? Пора обновить Инжект...

Все работает, но хочется большего? Пора переходить на стелс...

В таком случае он идет просто к несуществующей точке.
№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№
Ну вобщем я сделал через другой "проход", когда он доходит до 33 тайла макр просто перезапускается. На больше мне познаний не хватило

_________________
-=^NOVA RunUO 2 Server^=-

www.nova-uo.com

сферовское ПВП

IRC Server: irc.netbynet.ru; канал: #nova