7
« on: April 01, 2013, 10:03:05 AM »
I am having difficulties with LOS issues and checking between assigned friends healthbars
I am using
begin
losOptions := losTypeRunUO;
while not dead do
begin
//edited out
begin
c := GetPathArray(PredictedX, PredictedY, PredictedZ, GetX(Host), GetY(Host), 1, True, p);
if c > 0 then StepQ(CalcDir(PredictedX, PredictedY, p[0].X, p[0].Y), True);
end;
//edited out
end;
end.
procedure checkthem;
begin
Friend := [$assigned, $assigned, $assigned, $assigned];
for i := 0 to Length(Friend) -1 do
begin
res := CheckLoS(getX(self), getY(self), getZ(self) + 15, getX(Friend[i]), getY(Friend[i]), getZ(Friend[i]) + 15, WorldNum);
//edited out
end;
end;
constant is defined as my chars ID$
and vars i : Integer;
Friend: array of Cardinal;
any ideas? Ive tried to pm a few people with no luck, seems this community is a graveyard.