Stealth Client Forum

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

Code: Select all

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

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.