type TPlayer = record
        Storehouse: integer;
               RepairEnabled: Boolean;
               end;

var
PLAYER: array [0..8] of TPlayer;

procedure SetPlayers;
var
aAr: array of Integer;
j, k: integer;
begin
for j:= 0 to MAX_PLAYERS-1 do begin
    if States.PlayerEnabled(j) then begin
        PLAYER[j].RepairEnabled:= false;
        aAr:= States.PlayerGetAllHouses(j);
        for k:= 0 to Length(aAr)-1 do begin
            if States.HouseType(aAr[k]) = 11 then begin
                PLAYER[j].Storehouse:= aAr[k];
            end;
        end;
    end;
end;

procedure CheckRepair;
var j: integer;
begin
    for j:= 0 to MAX_PLAYERS-1 do begin
        if States.PlayerEnabled(j) then begin
            if States.HouseRepair(PLAYER[j].Storehouse) then
                PLAYER[j].RepairEnabled:= true;
        end;
    end;
end;

procedure ShowScore;
var j: integer;
begin
    Actions.OverlayTextSetFormatted(-1, 'Repairs:', []);
    Actions.OverlayTextAppend(-1, '|');
    for j:= 0 to MAX_PLAYERS-1 do begin
        if States.PlayerEnabled(j) then begin
            if PLAYER[j].RepairEnabled then
                  Actions.OverlayTextAppend(-1, 'test');
        end;
    end;
end;

procedure OnTick;
begin
        if(states.gameTime mod 10 = 0) then begin
            CheckRepair;
        ShowScore;
        end;
end;

procedure OnMissionStart;
begin
    SetPlayers;
end;