process(CLK)
variable prescaler: integer range 0 to 50000000;
Variable control: std_logic_vector(1 downto 0 ):= "00";
variable pointer: integer range 0 to 11:=0;
variable test: std_logic:='0';
variable error: std_logic:='0';
begin
if rising_edge (clk) then 
  if control = "00" and error = '0' then 
    winLEd <= "00";
      if(prescaler < 49999999/1) then   
        prescaler := prescaler + 1;    
      else
        prescaler := 0;
        top_pointer := top_pointer + 1;  -- Top pointer increment
        control := "11";  --- trigger event to get to new state
      end if;
  end if;    
  if control = "11"  and error = '0' then 
    winLEd <= "11";
    Led <= LISTEN(pointer-1);  
      if pointer > (top_pointer) then   -- If pointer is higher than toppointer, it means the sequence has to be incrementet. 
                
        LED <= "000000";
        control := "00";
        pointer := 0;
        test := '0';
        error:= '0';
      end if;
              
      if switch = LISTEN(pointer-1) and pointer<= top_pointer then -- Checks if the switch match the sequence. 
                  
        pointer:= pointer +1;
      end if;
                
      if switch /= LISTEN(pointer-1) and switch /= "0000" then  -- if it doesn not match, error will be set high => trigger an new state. 
        LED(4) <= '1';   
        error:= '1';    
      end if;      
      if switch = "0000" then
        LED(4) <= '0';
        error:= '0';
        control := "11";
      end if;                  
  end if; 
   if error = '1'  and control = "10" then  -- stays here infinetly until board is reset. 
    Led(4) <= '1';
    winLED <=  "10";
  end if; 
end if;              
end process;