If the responder is causing too much lag, try calling it less often.
Right now you run the responder every time you check for randoms.
You can leave it where it is, but call it less often by doing something like this...
SCAR Code:12: if (random(10)=0) then Look;
That will check once every ten times you call the randoms procedures, on average. Try doing random(3) or random(4) and seeing how much lag you're getting.
Or you could have it check every X times by making a global variable that adds up each time you call the randoms.
SCAR Code:12: begin
RespondCounter:=RespondCounter+1;
if RespondCounter>=10 then
begin
RespondCounter:=0;
Look;
end;
end;
Either way will help you reduce lag while keeping the responder in place.
