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