#include <Keypad.h>
#include <LiquidCrystal_I2C.h>


LiquidCrystal_I2C lcd(0x27, 16, 2);


//Variable
bool passc = true;
bool ins = false;
bool home = true;
bool man = false;
bool passmanc = false;
const unsigned long durata = 4000;
const unsigned long durataIns = 10000;
long noRetro = 0;
unsigned long startTime = 0;
long tempIns = 0;
bool condizione;
bool reset;
bool canSound = false;
char key;
const byte ROWS = 4; //four rows
const byte COLS = 4; //four columns
char keys[ROWS][COLS] = {
  {'1','2','3','a'},
  {'4','5','6','b'},
  {'7','8','9','c'},
  {'*','0','#','d'}
};
byte rowPins[ROWS] = {9, 8, 7, 6}; //connect to the row pinouts of the keypad
byte colPins[COLS] = {5, 4, 3, 2}; //connect to the column pinouts of the keypad
 
Keypad keypad = Keypad( makeKeymap(keys), rowPins, colPins, ROWS, COLS );
 
 
char password[5] = "b030";//password 
char tempPassword[5];
int tempPasswordIndex = 0;



void pass(){
 
  key = keypad.getKey();
  if (ins){
    scatto();
    scattopre();
  }
  if (millis() - tempIns >= durataIns) {
    passc = false;
    home = false;
    lcd.clear();
    for(int i; i >= 5; i++){
      tempPassword[i] = "";
    }
    tempPasswordIndex = 0;
  }
  if (key){
    noRetro = millis();
    lcd.backlight();
    tempPassword[tempPasswordIndex] = key; //reading password
    tempPasswordIndex++;
    lcd.setCursor(tempPasswordIndex - 1,1);
    lcd.print(F("*"));
    tone(1,1200);
    delay(20);
    noTone(1);
    if(tempPasswordIndex>4) //4 char for password
    {
      tempPasswordIndex = 0;
      if(checkPassword()) //if true...
      {
        lcd.clear();
        lcd.setCursor(4, 1);
  		  lcd.print(F("DifAlarm"));
        delay(500);
        lcd.setCursor(3,0);
        lcd.print(F("Password V"));
        delay(500);
        passc = false;
        reset = false;
        condizione = false;
        lcd.clear();
        

      }
      else  //if false...
      {
        lcd.clear();
        lcd.setCursor(4, 1);
  		  lcd.print(F("DifAlarm"));
        delay(500);
        lcd.setCursor(3,0);
        lcd.print(F("Password X"));
        delay(500);
        lcd.clear();
        lcd.setCursor(0, 0);
    	  lcd.print(F("Password"));
      }
    }
  }
  delay(50);

  
}

//----------------------------------------
void passman(){
 
  key = keypad.getKey();
  if (ins){
    scatto();
    scattopre();
  }
  if (millis() - tempIns >= durataIns) {
    passmanc = false;
    lcd.clear();
    for(int i; i >= 5; i++){
      tempPassword[i] = "";
    }
    tempPasswordIndex = 0;
  }
  if (key){
    noRetro = millis();
    lcd.backlight();
    tempPassword[tempPasswordIndex] = key; //reading password
    tempPasswordIndex++;
    lcd.setCursor(tempPasswordIndex - 1,1);
    lcd.print(F("*"));
    tone(1,1200);
    delay(20);
    noTone(1);
    if(tempPasswordIndex>4) //4 char for password
    {
      tempPasswordIndex = 0;
      if(checkPassword()) //if true...
      {
        lcd.clear();
        lcd.setCursor(4, 1);
  		  lcd.print(F("DifAlarm"));
        delay(500);
        lcd.setCursor(3,0);
        lcd.print(F("Password V"));
        delay(500);
        passmanc = false;
        ins = false;
        man = !man;
        lcd.clear();
        

      }
      else  //if false...
      {
        lcd.clear();
        lcd.setCursor(4, 1);
  		  lcd.print(F("DifAlarm"));
        delay(500);
        lcd.setCursor(3,0);
        lcd.print(F("Password X"));
        delay(500);
        lcd.clear();
        lcd.setCursor(0, 0);
    	  lcd.print(F("Password"));
      }
    }
  }
  delay(50);

  
} 

 
 
boolean checkPassword(){ // checking password

  if(strncmp(password, tempPassword, 4) == 0)
  {
    return true;
  }
  else {   
  return false;
  }
}

void controllo(){
  lcd.setCursor(14, 0);
  if(digitalRead(13) == HIGH){
    lcd.print(F("V"));
  }
  else if(digitalRead(13) == LOW){
    lcd.print(F("X"));
  }
  lcd.setCursor(15, 0);
  if(digitalRead(12) == HIGH){
    lcd.print(F("V"));
  }
  else if(digitalRead(12) == LOW){
    lcd.print(F("X"));
  }
}

void retro(){
  if (digitalRead(11) == LOW){
    if (millis() - noRetro >= 5000) {
      lcd.noBacklight();
    }
  }
  else{
    lcd.backlight();
  }
}

void stato(){
  lcd.setCursor(4, 1);
  lcd.print(F("DifAlarm"));
  if (man){
  lcd.setCursor(13,0);
  lcd.print(F("MAN"));
  }
  else{
    scattoman();
  }

  if(ins == false && reset == false){
    digitalWrite(11,LOW);
    lcd.setCursor(0,0);
    lcd.print(F("OFF"));
  }
  else{
    lcd.setCursor(0,0);
    lcd.print(F("ON"));
    scatto();
    scattopre();
  }
}

void scatto(){
  if(digitalRead(13) == LOW){
    lcd.setCursor(13,0);
    lcd.print(F("ALM"));
    digitalWrite(11,HIGH);
  }
  delay(20);
}

void scattopre(){
  if (condizione == false){
  	condizione = digitalRead(12) == LOW;
    canSound = true;
  }

  if (condizione) {
    if (canSound){
      tone(1, 1200);
      delay(50);
      noTone(1);
      delay(50);
  	}
    reset = true;
      if (startTime == 0) {
          startTime = millis(); // Memorizza il tempo di inizio
      }
        
      if (millis() - startTime >= durata) {
        lcd.setCursor(13,0);
    	  lcd.print(F("ALM"));
        digitalWrite(11,HIGH);
        canSound = false;
        noTone(1);
      }
  }
}
void scattoman(){
  if(digitalRead(10) == LOW){
    lcd.setCursor(13,0);
    lcd.print(F("ALM"));
    digitalWrite(11,HIGH);
  }
  delay(20);
}

void setup() {
  pinMode(13,INPUT);
  pinMode(12,INPUT);
  pinMode(10,INPUT);
  pinMode(11,OUTPUT);
  pinMode(1,OUTPUT);


  lcd.init(); //Init with pin default ESP8266 or ARDUINO
  lcd.backlight(); //accende la retroilluminazione
  delay(700);
  lcd.noBacklight();
  delay(700);
  lcd.backlight();
  delay(700);
  lcd.setCursor(4, 1);
  lcd.print(F("DifAlarm"));
  delay (1000);
  lcd.setCursor(0, 0);
  lcd.print(F("Inizializzazione"));
  delay (1500);
  lcd.clear();
  noRetro = millis();

}



void loop(){
  stato();
  retro();
  char key = keypad.getKey();
  if(key){
    noRetro = millis();
    lcd.backlight();
    tempIns = millis();
  }

  if (key == '#' && ins == false && man == false){
    lcd.clear();
    lcd.setCursor(0, 0);
    lcd.print(F("Password"));
    passc = true;
    home = true;
    while(passc){
    	pass();
      controllo();
      retro();
    }
    if (home){
      lcd.clear();
      lcd.setCursor(1,0);
      lcd.print(F("Inserimento..."));
      delay(5000);
      noRetro = millis();
      startTime = millis();
      ins = true;
      lcd.clear();
    }
    else{lcd.clear();}
  }
  
  else if (key == '#' && ins == true && man == false){
    lcd.clear();
    lcd.setCursor(0, 0);
    lcd.print(F("Password"));
    passc = true;
    home = true;
    while(passc){
    	pass();
      retro();
      canSound = false;
      noTone(1);
    }
    if (home){
      ins = false;
    }
  }

if (key == '*'){
    lcd.clear();
    lcd.setCursor(0, 0);
    lcd.print(F("Password"));
    passmanc = true;
    while(passmanc){
    	passman();
      retro();
    }
  }


  if (digitalRead(12) == HIGH && reset == false) {
   	startTime = millis(); // Resetta il timer se la condizione diventa falsa
  }

}