Yoko

Code: Select all

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