... keeping some distance from them I will apply A* pathfinding algorithm to decide which is the better location to go. Tried to use the TileReader.IsWorldCellPassable but its just an "line of sight" and its too slow. thankz in advance Hey! for such tasks i would recommend you to not use ...

... keeping some distance from them I will apply A* pathfinding algorithm to decide which is the better location to go. Tried to use the TileReader.IsWorldCellPassable but its just an "line of sight" and its too slow. thankz in advance

http://stealth.od.ua/Doc:Api/IsWorldCellPassable

examples - on forum - http://stealth.od.ua/forum/search.php?k ... 1%81%D0%BA

... недоступное место. В данном случае под себя (я стоял в непроходимом предмете). И стал искать способы решения. Остановился на переборе точек вокруг IsWorldCellPassable из (X - 1, Y) в (X, Y). Но правильно ли это? Мне кажется должна быть нативная возможность проверки именно возможности дропа, т.к. ...

Флаг, как я понял, дает какой-нибудь аналог IsWorldCellPassable? GetTileFlags, ConvertIntegerToFlags etc Чет OpenDoor как процедура числится :) потому что это скриптовая функция. А кусок, что я тебе скинул - из потрохов стелса, где OpenDoor - ...

Vizit0r wrote:по флагу определяет.

Флаг, как я понял, дает какой-нибудь аналог IsWorldCellPassable?

Чет OpenDoor как процедура числится

function StepQ(Direction : Byte; Running : Boolean) : Integer
256 - Была предпринята попытка открыть дверь, и чар развернулся в нужном направлении.

Что это означает?

... cz := PredictedZ; steps := idx + 4; if steps >= cnt then steps := cnt-1; for i := idx to steps do begin destX := path[i].X; destY := path[i].Y; if IsWorldCellPassable(cx, cy, cz, destX, destY, destZ, WorldNum) then begin cx := destX; cy := destY; cz := destZ; end else begin recompute := True; break; ...

... Color=$'+IntToHex(GetColor(Id),4)+', Flags='+FlagsToStr(GetArtFlags(Id))+', Z='+IntToStr(GetZ(Id))); end; FL.Free; end; if IsWorldCellPassable(GetX(Self), GetY(Self), GetZ(Self), X,Y,Z, WorldNum) then FillNewWindow('* Passable point') else FillNewWindow('* Impassable point') ...

софистикой заниматься лень. Ок. IsWorldCellPassable - в нем (не помню уже когда) взяли, да и поменяли местами два аргумента (не соврать это были вроде Z и WorldNum). а я помню. во времена тестовой версии, не после релиза. и да, именно для ...

... - т.е. "нужном для юза" направлении. Поскольку, по началу, все так и происходило, это казалось логичным. давай следующую попытку. Ок. IsWorldCellPassable - в нем (не помню уже когда) взяли, да и поменяли местами два аргумента (не соврать это были вроде Z и WorldNum). П.С. Сори за офф-топик, ...

... function ReadStaticsXY(X, Y : word; WorldNum : byte) : TStaticCellRealXY; function GetSurfaceZ(X, Y : word; WorldNum : Byte) : ShortInt; function IsWorldCellPassable(CurrX, CurrY : Word; CurrZ : ShortInt; DestX, DestY : Word; var DestZ : ShortInt; WorldNum : byte) : Boolean; function GetStaticTilesArray(Xmin, ...

... на 4 шага вперед steps := idx + 4; if steps >= cnt then steps := cnt-1; for i := idx to steps do begin destX := path[i].X; destY := path[i].Y; if IsWorldCellPassable(cx, cy, cz, destX, destY, destZ, WorldNum) then begin cx := destX; cy := destY; cz := destZ; end else begin // точка по курсу не ...

... массив так как тебе больше нравится создать большой массив, в который записывать теже дочки в другой очередности? попробую, спс. Добавлю, что isworldcellpassable проверяет проходимость только соседнего с чаром тайла (+-1) для более дальних тайлов, функция вернет неправильный результат. На ...

Добавлю, что isworldcellpassable проверяет проходимость только соседнего с чаром тайла (+-1) для более дальних тайлов, функция вернет неправильный результат.

for i := 0 to getstatictilesarray(minx, miny, maxx, maxy, 1, 1339, foundtilesarray) do begin if isworldcellpassable(getx(self), gety(self), getz(self), foundtilesarray[i].x, foundtilesarray[i].y, foundtilesarray[i].z, 1) then newmovexy(foundtilesarray[i].x, foundtilesarray[i].y, ...