TV audio damper (prototype)

#include <avr/wdt.h>
#include <Wire.h>
#include "RTClib.h"
#include "IRremote.h"

RTC_DS1307 rtc; //modulo ora
float media_letture;
int lettura;

float media;
int livello_suono;
long somma = 0;
int soglia_sup;
int soglia_inf;
int i;
int lettura1;
int lettura2;
int lettura3;
int lettura4;
unsigned int ora;
unsigned int  rawData[67] = {4450, 4450, 550, 1700, 500, 1750, 500, 1700, 500, 600, 500, 600, 550, 550, 550, 600, 500, 600, 500, 1750, 500, 1700, 500, 1750, 500, 550, 550, 600, 500, 600, 500, 600, 550, 550, 550, 1700, 500, 1750, 500, 600, 500, 1700, 500, 600, 550, 550, 550, 600, 500, 600, 500, 600, 550, 550, 550, 1700, 500, 600, 500, 1750, 500, 1700, 500, 1750, 500, 1700, 500};
unsigned int timer;
IRsend irsend;                                                             //Utilizzare PIN 3~ per LED IR
int freq_ir = 38;

void calibrazione() {
  delay(20);
  somma = 0;
  lettura = 0;
  soglia_sup = 0;
  soglia_inf = 0;
  media = 0;
  for (i = 0; i < 50; i++) {
    lettura = analogRead(A0);
    somma = somma + lettura;
    delay(30);
    digitalWrite(8, HIGH);
  }
  
  media = (somma / 50);
  soglia_sup = (int)(media) + 2 ; //valore soglia
  soglia_inf = (int)(media) - 5 ;
  digitalWrite(8, LOW);
}


void setup() {

  wdt_disable();
  rtc.begin();

  pinMode(13, OUTPUT);
  pinMode(18, OUTPUT);
  //Serial.begin(9600);
  calibrazione();
  wdt_enable(WDTO_500MS);
}

void loop() {


  DateTime now = rtc.now();     //interroga il modulo ora
  ora = now.hour(), DEC;
  //Serial.println(ora);
  //delay (300);
  if (ora >=23 || ora <= 2) {
    digitalWrite(13, LOW);
    do {
      if (analogRead(A0) > ((int)media + 18) || analogRead(A0) < ((int)media - 34)) {
        delay(2000);
      }
      if (analogRead(A0) > soglia_sup)   {
        irsend.sendRaw(rawData, 67, freq_ir);
        digitalWrite(13, HIGH);
        //Serial.println(analogRead(A0));
        delay(200);
        lettura1 = analogRead(A0);
        delay(100);
        lettura2 = analogRead(A0);
        delay(100);
        lettura3 = analogRead(A0);
        somma = lettura1 + lettura2 + lettura3;
        media = somma / 3;
        if (int(media) > soglia_sup + 1) {
          delay(2000);
        }

      }
      else {
        digitalWrite(13, LOW);
      }
      wdt_reset();
      lettura4 = analogRead(A0);
    } while (lettura4 <= soglia_sup);
    wdt_reset();
  } wdt_reset();
}