Yoko

Ребята есть у вас скрипт на мининг с записью координат для хотьбы вдоль скал/стен выложите плиз.. я по поиску нашел несколько но они без описания и я нифига не могу их настроить

Скрипт такого плана как ты просишь тебе никто не выложит ....и на форуме его нету. Стучи кому нить в асю и покупай.

_________________
Все просто.
BETEPAH ™

Сколько стоит твой на ДРВ ?

Все цены в асе

_________________
Все просто.

BETEPAH ™

Ты же сам говорил что все бесплатно напишем.

Беб бе бе....... он сам спрасил сколько стоит мой. )))))
Кста я заломил цену он отпал ....Анрызич .....скрафти челу Майнинг за 400к .

_________________
Все просто.

BETEPAH ™

люди!! плиз скиньте скриптик ПРОСТО на МИНИГ (можно и на копку в хайду)
без РЕКОЛА и т.д прочто при перевесе скрипт останавливается а чар отаётся в хайде или просто останавливается

http://yoko.netroof.net/forum/search.php их тут полно.

Это в рублях или в зелени?

А если без шуток, я беру обычно 2-3 суток прибыли. Тобишь за майнинг будет 3-4 ляма. Если индивидуальный план (не то о чем все подумали), то дороже.

Сама запись маршрута до омерзения тривиальна:

Sub MarkMassive()
;
; Еще более новая процедура разметки массивов. На самом деле даже не
; массивов, а маршрутов. Работает просто: в цикле с паузой в 50 мс 
; проверяются координаты чара, сверяются с предыдущими, если отличаются - 
; объединяются через пробел и присоединяются к строке с маршрутом.
; Окончание разметки массива - подтверждение прерывания в висящем в фоне
; запросе. После окончания разметки маршрута скрипт записывает получившийся
; маршрут в соответствующую строку файла mine&lumb.ini в папке инжекта.
;
   VAR CurX, CurY, LastX, LastY, ToDo, typmas, Flag = 0
   VAR MyPatch = '', numstr
   UO.SetGlobal( 'EndOfPatch', '' )
   ToDo = UO.asmInputList("Какой тип массива?","'Копка стен скал';'Копка стен пещер'")
   If ToDo == 1 Then
      typmas = 'walls'
   Else
      typmas = 'dangs'
   Endif
   numstr = UO.asmInputString( "Задайте имя файла массива:", "1" )
   CurX = UO.GetX()
   CurY = UO.GetY()
   MyPatch = MyPatch + str(CurX) + ' ' + str(CurY)
   LastX = CurX
   LastY = CurY
   UO.Exec( 'exec PromptForEnd' )
   repeat
      wait(50)
      CurX = UO.GetX()
      CurY = UO.GetY()
      If CurX <> LastX OR CurY <> LastY Then
         MyPatch = MyPatch + ' ' + str(CurX) + ' ' + str(CurY)
         LastX = CurX
         LastY = CurY
      Endif
   until UO.GetGlobal( 'EndOfPatch' ) <> ''
   If UO.GetGlobal( 'EndOfPatch' ) == '0' Then
      UO.Print( 'Mark of patch canceled. Script terminated' )
      return
   Endif
   If UO.GetGlobal( 'EndOfPatch' ) == '1' Then
      UO.Print( 'Mark of patch finished. Please wait for saving information...' )
      Flag = WritePath( typmas + numstr, MyPatch )
      If Flag == 0 Then
         UO.Print( 'Error of writing patch! Script terminated' )
         return
      Endif
      UO.Print( 'Script finished' )
      return
   Endif
   UO.Print( 'Mark of patch canceled. Script terminated' )
endsub

Кидаю без сопутствующих функций, так как что они делают - понятно из названий, а тебе, насколько я понял, нужна идея как сделать.