local a = 0 поменять на просто a = 0. хотя лучше вообще не использовать триггер нового дня и написать просто так:
function zoloto()
local week = GetDate(WEEK)
SetObjectDwellingCreatures('houseInferno', 16, 35*week);
SetObjectDwellingCreatures('houseInferno', 18, 34*week);
SetObjectDwellingCreatures('houseInferno', 20, 18*week);
SetObjectDwellingCreatures('houseInferno', 22, 10*week);
SetObjectDwellingCreatures('houseInferno', 24, 7*week);
SetObjectDwellingCreatures('houseInferno', 26, 4*week);
SetObjectDwellingCreatures('houseInferno', 28, 2*week);
end;
Trigger( OBJECT_CAPTURE_TRIGGER, 'houseInferno', "zoloto")