From Stealth Client

Jump to: navigation, search


CheckLOS

Проверка прямой видимости между двумя точками.

def CheckLOS(xf, yf, zf, xt, yt, zt, WorldNum : Integer) -> Boolean


Для того, чтобы CheckLos работало - надо перед вызовом ОБЯЗАТЕЛЬНО установить тип сервера уо в переменной:

losOptions (losTypeRunUO, losTypeSphere, losTypeSphereAdv, losTypeRunUO);

Пример:

Program Check1;
 
function CheckLosToTarget(Target : Cardinal) : Boolean;
begin
   Result := False;
   losOptions := losTypeRunUO;
   if CheckLos(GetX(self), GetY(self), GetZ(self), GetX(Target), GetY(Target), GetZ(Target), WorldNum) then
      Result := True;
end;
 
begin
  if CheckLosToTarget($0000025B) then
    AddToSystemJournal('True')
  else
    AddToSystemJournal('False');
end.