Проверка на проходимость

[ZeroDX]

Не подходит даже к fw, где углы простреливаются

[Mirage]

Вроде наметился положительный результат.
Проблема связана с
startx = startx - 1
starty = starty - 1

startx = startx + 1
starty = starty + 1

Шахматисты есть? Над алгоритм "коня".

[ZeroDX]

Надо писать по другому алгоритму. Что-то вроде

Code: Select all

dx = endx - startx
dy = endy - starty
While x <> endx or y <> endy
  If abs(dx) > abs(dy) then
    If x <> startx + int(abs(dx) / abs(dy)) * Sign(dx) then
      If dx > 0 then
        x = x + 1
       else
        x = x - 1
      Endif
     else
      startx = x   ; Прошёл int(abs(dx) / abs(dy)) тайлов вперёд, делает шаг в сторону
      If dy > 0 then
        y = y + 1
       else
        y = y - 1
      Endif
    Endif
   else
    ...
  Endif
  String = String + str(x) + ' ' + str(y) + ' ' ; Записываем тайл в строку
  Value = Value + 1 ; Считаем кол-во тайлов
Wend
Return str(Value) + String

Sign(число) вернёт 1 если число положительное, -1 если отрицательное

Но и тут будут свои недостатки:
- Нужно будет "оттягивать" назад на 1 тайл стартовую позицию, чтобы счёт начался с правильного тайла(иначе сдвинется вперёд на 1 тайл)
- Скрипт буде шикарно работать с целым abs(dx) / abs(dy), но с дробями вечный цикл или парсер. Хотя с (+6;+4) должно получиться что-то вроде этого

Code: Select all

---ХХ
---Х- 
--ХХ-
--Х--
-ХХ-- 
-Х---
ХХ---

Но только в теории и если обновлять dx и dy с каждым новым шагом

[Grin]

и как можно утверждать не проверив или не въехав?:)

Code: Select all

var DIR_N = 0
var DIR_NW = 7
var DIR_W = 6
var DIR_SW = 5
var DIR_S = 4
var DIR_SE = 3
var DIR_E	= 2
var DIR_NE = 1

var AXIS_X = 0
var AXIS_Y = 1

sub Point( point, x, y, z )
	
	point[0] = x
	point[1] = y
	point[2] = z

end sub

sub Point.toString( point )
	
	return str( point[0] ) + ' ' + str( point[1] ) + ' ' + str( point[2] )

end sub

sub Point.createFromLastTile( point )
	
	point[0] = UO.lastTile(1)
	point[1] = UO.lastTile(2)
	point[2] = UO.lastTile(3)

end sub

sub Point.createFromChar( point )
	
	point[0] = UO.getX()
	point[1] = UO.getY()
	point[2] = UO.getZ()

end sub
	

sub Point.move( point, dir )
	
	Point.moveN( point, dir, 1 )

end sub

sub Point.moveN( point, dir, dist )
	
	var dx, dy
	
	dx = Axis.getDirSign( AXIS_X, dir )
	dy = Axis.getDirSign( AXIS_Y, dir )

	point[0] = point[0] + dx*dist
	point[1] = point[1] + dy*dist

end sub

sub Point.distance( spoint, dpoint )
	
	var ax = Math.abs( spoint[0] - dpoint[0] )
	var ay = Math.abs( spoint[1] - dpoint[1] )
	
	return Math.max( ax, ay )

end sub
	
	
sub Point.getDir( spoint, dpoint )
	var dx, dy
	var ax, ay
	var slope
	
	dx = dpoint[0] - spoint[0]
	dy = dpoint[1] - spoint[1]
	
	ax = Math.abs( dx )
	ay = Math.abs( dy )

	if ( ay > ax ) then
	
		if ( not ax ) then
			return iif( dy < 0, DIR_N, DIR_S )
		end if
		
		slope = ay / ax
		if ( slope > 2 ) then
				return iif( dy < 0, DIR_N, DIR_S )
		end if
		
		if ( dx < 0 ) then
			return iif( dy < 0, DIR_NW, DIR_SW )
		end if
		
		return iif( dy < 0, DIR_NE, DIR_SE )
	
	else
		
		if ( not ay ) then
			if ( not ax ) then
				return UO.getDir()
			end if
			
			return iif( dx < 0, DIR_W, DIR_E )
		end if
			
		slope = ax / ay
		if ( slope > 2 ) then
			return iif( dx < 0, DIR_W, DIR_E )
		end if
		
		if ( dy < 0 ) then	
			return iif( dx < 0, DIR_NW, DIR_NE )
		end if
		
		return iif( dx < 0, DIR_SW, DIR_SE )
	end if
		
end sub					


 
sub Axis.getDirSign( axis, dir )

	dir = dir - 2*axis
	
	if ( dir > 0 ) and ( dir < 4) then
		return 1
	else
		return iif( ( dir == 0 ) or ( dir == 4 ), 0, -1 )
	end if

end sub	

sub Char.getDir( point )

	dim p[3]
	
	Point( p, UO.getX(), UO.getY(), 0 )
	return Point.getDir( p, point )
	
end sub

sub Char.LOSVisualise( dpoint )

	dim spoint[3]
	var dir
	Point.createFromChar( spoint )
	
	UO.mfgi( "add", 1332, spoint[0], spoint[1], 0 )  
	while Point.distance( spoint, dpoint )
		UO.print( 'in' )
		dir = Point.getDir( spoint, dpoint )
		
		UO.print( 'dir: ' + str( dir ) + ' point: ' + Point.toString( spoint ) )
		Point.move( spoint, dir )
		UO.print( 'move -> ' + Point.toString( spoint ) )
		UO.exec( 'mfgi add 1332 ' + Point.toString( spoint ) )
		UO.print( 'out' )
	wend
	
end sub

sub Math.abs( x )
	
	if x < 0 then
		return -x
	end if
	
	return x

end sub

sub Math.max( x, y )
	
	if x < y then
		return y
	end if
	
	return x

end sub

sub iif( condition, trueValue, elseValue )
	
	if ( condition ) then
		return trueValue
	end if
	
	return elseValue
	
end sub

sub test()
	
	dim dpoint[3]
	var dir
	
	UO.info()
	while UO.targeting()
		wait(100)
	wend
	
	Point.createFromLastTile( dpoint )
	dir = Char.getDir( dpoint )
	UO.print( str( UO.getDir() ) + ' ' + str( dir ) )	
	UO.print( 'x: ' + str( Axis.getDirSign( AXIS_X, dir ) ) + ' y: ' + str( Axis.getDirSign( AXIS_Y, dir ) ) )
	Char.LOSVisualise( dpoint )
	
end sub

test() - визуальный пример

[ZeroDX]

Ты вообще читаешь тему?

[Grin]

Конечно нет, содержание уже давно ушло от темы:) А империалистические методы поиска алгоритма, так вообще радуют:)
Мое участие изначально было для наставления вас ( тебя в частности ) на путь истинный:) Но это вечная проблема, может когда нибудь просветление к вам придет:)

[ZeroDX]

Я ищу алгоритм, кторый выдаст мне траекторию полёта стрелы. Ты предложил 2 варианта: 1-ый ЦДА, 2-ой ты продвигаешь уже второй раз, не смотря на то, что я уже написал, что на сфере (в частности 56) стрела так не летает. При этом ты утверждаешь, что я не понимаю того, что твой 2-ой вариант - идеальное решение всех проблемм и стрела летит так, как ты скажешь.

[Grin]

Не пробовал от стрелы бегать?:)

Начнем с самого простого, понятие "траектория стрелы" - сервером не рассчитывается является только визуальным эффектом на стороне клиента. Сервером же рассчитывает ВОЗМОЖНОСТЬ из данной позиции поразить цель.

Почему так хорошо думать рационально? потому что это резко упрощает жизнь:)
Вы не явления природы пытаетесь описать, а уже реализованную, рабочую модель... Хреново когда эта модель не описана естественным языком, для этого есть реверс и общее понимание как эта модель работает... Но когда модель описана полностью или хотя бы частично... то что вы сейчас пытаетесь делать кроме как онанизмом не назвать:)

О понимании...
Достаточно маломальский ознакомится сферой и увидеть... что оказывается конфигом предусмотрен выбор экспериментального алгоритма:) Проведя реверс, вы заметите что он отличается от РанУО не значительно...

О заблуждении...
Что за бредовые попытки рассчитывать нечто не принимая во внимание исходные данные?:) Что бы ваши "алгоритмы" проверять нужно абсолютно чистое поле:) Вы даже не берете в расчет о существовании таких фундаментальных вещей как свойства объектов (флаги tiledata)... в некоторых конфигурациях стелы могут пролетать через окна:) не всякий предмет будет блокировать видимость, а еще у предметов есть высота:)

Легко выбрать тайлы которые надо проверить, а вот как проверять то будете?:)

И еще раз, у сеферы один алгоритм проверки, в 56б добавлен экспериментальный:)

[ZeroDX]

Начнем с самого простого, понятие "траектория стрелы" - сервером не рассчитывается является только визуальным эффектом на стороне клиента. Сервером же рассчитывает ВОЗМОЖНОСТЬ из данной позиции поразить цель.

В нашем растровом пространстве это можно назвать траекторией полёта стелы. Ведь технически она полетит по тайлам

Достаточно маломальский ознакомится сферой и увидеть... что оказывается конфигом предусмотрен выбор экспериментального алгоритма:) Проведя реверс, вы заметите что он отличается от РанУО не значительно...

Пошагово:
1)Скачал сферу 56b
2)Завёл
3)Поставил 2-ух чаров с луками и командами атаки друг на друга
4)3-им чаром начал обкладывать сундуками
5)Получил 3 разных комбинации расположения сундуков, при которых чары стреляли друг в друга
6)Накидал 3 картинки и запостил выше
Ни один из предложенных тобой алгоритмов не выдаёт хотя бы 1 похожий результат

Что за бредовые попытки рассчитывать нечто не принимая во внимание исходные данные?:) Что бы ваши "алгоритмы" проверять нужно абсолютно чистое поле:) Вы даже не берете в расчет о существовании таких фундаментальных вещей как свойства объектов (флаги tiledata)... в некоторых конфигурациях стелы могут пролетать через окна:) не всякий предмет будет блокировать видимость, а еще у предметов есть высота:)

Выше я писал, что дело будет исключительно в лесу, ровном и без рек озёр и полян, на которых можно ставить дома. Да в чём-то ты прав... Вдруг кого-нибудь посетит мысль разбросать в глухом лесу сундуки или ящики.

Легко выбрать тайлы которые надо проверить, а вот как проверять то будете?:)

Это уже другой разговор, но думаю, что в глухом лесу приватгеттайла и диапазона непроходимых тайлов будет достаточно.

И еще раз, у сеферы один алгоритм проверки, в 56б добавлен экспериментальный:)

Видимо то что мне нужно и есть этот алгоритм. В каком конфиге? Как примерно строчка называется?

[Grin]

Code: Select all

sub Point.getDir( spoint, dpoint )
   var dx, dy
   var ax, ay
   var slope
   
   dx = spoint[0] - dpoint[0]
   dy = spoint[1] - dpoint[1]
   
   ax = Math.abs( dx )
   ay = Math.abs( dy )

   if ( ay <= ax ) then
      if ( not ay ) then
         if ( not ax ) then
            return UO.getDir()
         end if
         
         return iif( dx > 0, DIR_W, DIR_E )
      end if
         
      slope = int( ax / ay )
      if ( slope > 2 ) then
         return iif( dx > 0, DIR_W, DIR_E )
      end if
      
      if ( dy > 0 ) then   
         return iif( dx > 0, DIR_NW, DIR_NE )
      end if
      
      return iif( dx > 0, DIR_SW, DIR_SE )
   end if
   
   if ( ax ) then
   	
		slope = int( ay / ax )
		if ( slope <= 2 ) then
		 if ( dx <= 0 ) then
		 	return iif( dy <= 0, DIR_SE, DIR_NE )
		 else
		 	return iif( dy > 0, DIR_NW, DIR_SW )
		 end if
		end if
	end if
	return iif( dy > 0, DIR_N, DIR_S )
	
end sub

Отреверсил 56б, линия другая, но логика не особо изменилась. Это не экспериментальный, а уточненный из исходников 0.99 сферы, то есть алгоритм по умолчанию.

Алгоритм выбирается в sphere.ini

Code: Select all

// Uses the new LoS algorithm
// ADVANCEDLOS_DISABLED   0x00 // Disabled, use the old method
// ADVANCEDLOS_PLAYER     0x01 // Enabled only for players
// ADVANCEDLOS_NPC        0x02 // Enabled only for NPCs
AdvancedLos=0

[Grin]

в эксперементально алгоритме, все тоже самое что и в РаугнУО за исключением округления...

Правило округление 5\6, а не как принято 4\5

Вот тебе и траектория стрелы:) из этого положения стрелять не будет, хотя визуально проблем нет:)

[Grin]

Проект умер?:(

[Mirage]

Проект живее всех живых. Как Ильич. Я просто пытаюсь пересилить свою лень и все таки разобраться то что вы тут наобсуждали.



А то я ниче ни понял.

[ZeroDX]

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

[Grin]

проверял на 51а

Опять таки не стоит забывать что, это алгоритм выборки тайлов, после выборки идет индивидуальная проверка каждого тайла на "прозрачность"...

[ZeroDX]

Ну вот сейчас задача именно придумать/украсть/найти алгоритм именно к 56-ой. Я тестил и обнаружил, что между двумя точками (0;0) (+2;+6) может быть больше, чем одна, разных "траектории". Уже даже не столько скрипт, как интерес как это реализовано подстегивает

Где достать сурсы на 56? На оффсайте поискал, но они по ходу дела не выкладывали.

Алгоритм можно составить так. Кол-во преломлений = либо дистанции по Х, либо по У в зависимости от того, какая из них меньше. А длина отрезка до преломления = Большая дистанция, деленая на меньшую. ЧТобы выдавать разные траектории, нужно вводить погрешность, разовую, чтобы 1 раз посчиталась...

ЗЫ Под пивом не объяснить нормально

[Tiger1989]

Миссия невыполнима =)

[CFA81]

Разбирался с LoS на разных эмулях, вот результат изысканий - если эта тема еще интересна готов поделится наработками.

[Mirage]

выше было тестовым методом установлено что такой вариант работать не будет - при 1 клетке по диагонали тайл не проходим на сфере.

а что за прога? Самописная?

[ZeroDX]

выше было тестовым методом установлено что такой вариант работать не будет - при 1 клетке по диагонали тайл не проходим на сфере.

Ссылка на пост с картинками
Поясню, что в этих трех вариантах, чары стоят на одном и том же месте. Стреляет только если на желтых клетках нет препятствий и только при таких раскладах. четвертого не дано.

Попробуй вбить в программку координаты А(2 2 z) B(4 8 z) и сравнить с картинками с этого же поста с картинками.

И хотелось бы поглядень на сам расчёт в виде кода (понимаю только инжект(бэйсик???) и немного С++), если это конечно не государственная тайна