IsWorldCellPassable

[nikbk]

странная штука на отрез не хочет работать

Code: Select all

Program New;

begin
 if IsWorldCellPassable(getX(self),getY(self),getx(self)-1,gety(self)-1,WorldNum,getz(self)) then
 AddToSystemJournal('True');
 else
 AddToSystemJournal('false');
end.

Code: Select all

Compiling
 Compiler: [Error] (1.sc at 4:92):  Variable Expected
 Compiling failed
 Script 1.sc stopped successfuly

Шард дрв, винда семерка, стелс последний релиз 3.2.4

[CFA]

В свое время поменялся порядок аргументов у этой функции. сейчас она выглядит так:

Code: Select all

function IsWorldCellPassable(CurrX, CurrY : Word; Z : ShortInt; DestX, DestY : Word; var DestZ : ShortInt; WorldNum : Byte) : Boolean

в destZ записывается координата куда шагнет чар, если точка вообще проходимая

[nikbk]

тоесть надо написать так

Code: Select all

Program New;
var destZ:shortint;
begin
 if IsWorldCellPassable(getX(self),getY(self),0,getx(self)-1,gety(self)-1,destZ,WorldNum) then
 begin
 AddToSystemJournal('True');
 end
 else
 begin
 AddToSystemJournal('false');
 end
end.

вобщем как то так?

[CFA]

да, только вместо 0 лучше подставить GetZ(self)