//use esp8266 board 2.4.1 ok not update
// #include <ESP8266WiFi.h>
// #include <ESP8266WebServer.h>
// #include <ArduinoJson.h>

#include <time.h>

#include <MD_MAX72xx.h>
#include <SPI.h>
#include "Font.h"
//#define HARDWARE_TYPE MD_MAX72XX::FC16_HW
#define HARDWARE_TYPE MD_MAX72XX::PAROLA_HW
#define MAX_DEVICES  8
#define Max_row 16
#define Max_col (MAX_DEVICES*8)/2

// #define DATA_PIN  D7 //สำหรับ NodeMcu
// #define CS_PIN    D8 //สำหรับ NodeMcu
// #define CLK_PIN   D5 //สำหรับ NodeMcu

#define DATA_PIN   11   // DATA or MOSI
#define CS_PIN     10   // CS or SS
#define CLK_PIN    13   // CLK or SCK

//WiFiClient client;

int txt = 1000;
int y = 1;
String content = "1";

int gap_pixel = 1;                           
bool state = true;                           
char bright = MAX_INTENSITY / 2;             

MD_MAX72XX mx = MD_MAX72XX(HARDWARE_TYPE, CS_PIN, MAX_DEVICES);

void setbrightness(char bri) {
  if (bri > 15) bri = MAX_INTENSITY / 2;
  mx.control(MD_MAX72XX::INTENSITY, bri);
}

void mysetpoint(uint16_t x, uint16_t y, bool z)
{
  uint16_t my_x, my_y;

  if (x < 0 || x > Max_col - 1) return;
  if (y < 0 || y > Max_row - 1) return;

  my_x = Max_col - x - 1;
  my_y = 7 - y;
  if (y >= 8) {
    my_x = my_x + Max_col;
    my_y = 15 - y;
  }
  mx.setPoint(my_y, my_x, z);
}

void DrawChar(int x, int y, unsigned char input_char, bool invert)
{
  unsigned char mc;
  char my_x = 0, data = 0;

  if (!invert) //ให้แสดงผลปรกติ
  {
    while (data < 16) //แสกนจากบนลงล่างเพื่อลงจุด
    {
      mc = pgm_read_byte_near(&Matrix_16_Font[input_char][data]); //อ่านฟอนต์จากหน่วยความจำมาทีละไบต์
      if ((mc & 0x80) == 0x80) my_x++; // อ่านบิตที่1ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่1ถ้าค่าไม่ตรงไม่ต้องลงจุด
        my_x++;
      }
      if ((mc & 0x40) == 0x40) my_x++; // อ่านบิตที่2ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x20) == 0x20) my_x++; // อ่านบิตที่3ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x10) == 0x10) my_x++; // อ่านบิตที่4ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x08) == 0x08) my_x++; // อ่านบิตที่5ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x04) == 0x04) my_x++; // อ่านบิตที่6ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x02) == 0x02) my_x++; // อ่านบิตที่7ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x01) == 0x01) my_x = 0; // อ่านบิตที่8ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x = 0;
      }
      data++;
    }
  }
  else //ให้แสดงผลกลับการลงจุด
  {
    while (data < 16) //แสกนจากบนลงล่างเพื่อลงจุด
    {
      mc = pgm_read_byte_near(&Matrix_16_Font[input_char][data]); //อ่านฟอนต์จากหน่วยความจำมาทีละไบต์
      if ((mc & 0x80) == 0x80) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่1ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++; // อ่านบิตที่1ถ้าค่าไม่ตรงไม่ต้องลงจุด
      if ((mc & 0x40) == 0x40) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่2ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x20) == 0x20) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่3ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x10) == 0x10) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่4ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x08) == 0x08) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่5ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x04) == 0x04) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่6ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x02) == 0x02) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่7ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x01) == 0x01) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่8ถ้าค่าตรงให้ลงจุด
        my_x = 0;
      }
      else my_x = 0;
      data++;
    }
  }
}

int Check_Char_Width(int font)
{
  unsigned char  c;
  int w = 0, j = 0;

  for (int i = 0; i < 16; i++) //ตรวจฟอนต์ 8x16 จำนวน 16 รอบ
  {
    c =  pgm_read_byte_near(&Matrix_16_Font[font][i]); //ตรวจสอบฟอนต์ในหน่วยความจำ
    if ((c & 0x80) == 0x80)w = 1; //ถ้าบิตที่1มีจุด
    if ((c & 0x40) == 0x40)w = 2; //ถ้าบิตที่2มีจุด
    if ((c & 0x20) == 0x20)w = 3;
    if ((c & 0x10) == 0x10)w = 4;
    if ((c & 0x08) == 0x08)w = 5;
    if ((c & 0x04) == 0x04)w = 6;
    if ((c & 0x02) == 0x02)w = 7;
    if ((c & 0x01) == 0x01)w = 8; //ถ้าบิตที่8มีจุด

    if (w >= j)j = w;
  }
  return j; //คืนค่าที่ตรวจสอบความกว้างของตัวอักษร
}

void DrawText(int my_row, int my_column, String text_Input)
{
  String my_text;
  unsigned char char1, char2, char_out;
  int i = 0, x;
  int indx;

  my_text = text_Input;
  indx = 0;
  mx.clear();
  while (i < text_Input.length()) //ไล่ไปทีละอักษรจนหมด
  {
    char1 = my_text[i];
    if (char1 == 0xE0) // ตรวจสอบไบต์แรกถ้าเป็นภาษาไทย ถ้าไม่ใช่ให้ไป else ภาษาอังกฤษ
    {
      char1 = my_text[i + 1]; //ให้ char1 เป็นไบต์ที่สองแสดงอักษรไทยหรือสระ
      char2 = my_text[i + 2]; //ให้ char2 เป็นไบต์ที่สามซึ่งเป็นตำแหน่งอักษรไทย
      if (char1 == 0xB8 && (char2 + 32) >= 161 && (char2 + 32) <= 218) //เช็คว่าเป็นหมวด1 ก-พินธุ
      {
        if ((char2 + 32) >= 212 && (char2 + 32) <= 218) //เช็คว่าเป็นสระ อิ-อี-อึ-อื-อุ-อู-อฺ
        {
          char_out = char2 + 32;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //อักษรไทยปรกติ
        {
          char_out = char2 + 32;
          if (char2 + 32 == 209) //เช็คว่าเป็นไม้หันอากาศ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x - 1;
          }
          if (char_out == 211) //ถ้าเป็นสระ อำ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 5;
          }
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
        }
      }
      if (char1 == 0xB9 && (char2 + 96) >= 224 && (char2 + 96) <= 251) //เช็คว่าเป็นหมวด2 สระเอ-ขอหมุด
      {
        if ((char2 + 96) >= 231 && (char2 + 96) <= 237) //เช็คว่าเป็นวรรยุกต์ ็-่-้-๊-๋-์-ํ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //สระปรกติ เ แ โ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป

          if (char_out == 226 || char_out == 227 || char_out == 228) //ถ้าเป็นสระ โ ใ ไ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 3;
          }
        }
      }
    }
    else  //อักษรภาษาอังกฤษ
    {
      char_out = my_text[i];
      i++; // ไปอักษรต่อไป
      if (char_out == 32)indx = indx + 8; //ถ้าเป็นเว้นวรรค
    }


    DrawChar(my_row + indx, my_column, char_out, state); //พิมพ์อักษรที่แปลง
    x = Check_Char_Width(char_out);
    indx = indx + x + gap_pixel;
  }
  //mp.update();
  mx.update();
}

int CheckTextWidth(String text_Input)
{
  String my_text;
  unsigned char char1, char2, char_out;
  int i = 0, x;
  int indx;

  my_text = text_Input;
  indx = 0;
  mx.clear();
  while (i < text_Input.length()) //ไล่ไปทีละอักษรจนหมด
  {
    char1 = my_text[i];
    if (char1 == 0xE0) // ตรวจสอบไบต์แรกถ้าเป็นภาษาไทย ถ้าไม่ใช่ให้ไป else ภาษาอังกฤษ
    {
      char1 = my_text[i + 1]; //ให้ char1 เป็นไบต์ที่สองแสดงอักษรไทยหรือสระ
      char2 = my_text[i + 2]; //ให้ char2 เป็นไบต์ที่สามซึ่งเป็นตำแหน่งอักษรไทย
      if (char1 == 0xB8 && (char2 + 32) >= 161 && (char2 + 32) <= 218) //เช็คว่าเป็นหมวด1 ก-พินธุ
      {
        if ((char2 + 32) >= 212 && (char2 + 32) <= 218) //เช็คว่าเป็นสระ อิ-อี-อึ-อื-อุ-อู-อฺ
        {
          char_out = char2 + 32;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //อักษรไทยปรกติ
        {
          char_out = char2 + 32;
          if (char2 + 32 == 209) //เช็คว่าเป็นไม้หันอากาศ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x - 1;
          }
          if (char_out == 211) //ถ้าเป็นสระ อำ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 5;
          }
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
        }
      }
      if (char1 == 0xB9 && (char2 + 96) >= 224 && (char2 + 96) <= 251) //เช็คว่าเป็นหมวด2 สระเอ-ขอหมุด
      {
        if ((char2 + 96) >= 231 && (char2 + 96) <= 237) //เช็คว่าเป็นวรรยุกต์ ็-่-้-๊-๋-์-ํ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //สระปรกติ เ แ โ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป

          if (char_out == 226 || char_out == 227 || char_out == 228) //ถ้าเป็นสระ โ ใ ไ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 3;
          }
        }
      }
    }
    else  //อักษรภาษาอังกฤษ
    {
      char_out = my_text[i];
      i++; // ไปอักษรต่อไป
      if (char_out == 32)indx = indx + 8; //ถ้าเป็นเว้นวรรค
    }
    x = Check_Char_Width(char_out);
    indx = indx + x + gap_pixel;
  }
  return indx; //คืนค่าที่ประมวลผลของจุดทั้งหมด
}

void ScrollText(int x, int y, String my_text, int d, char direct)
{
  int j;
  if (direct > 9)direct = 0;
  j = CheckTextWidth(my_text);

  if (direct == 0) //เดินหน้า
  {
    for (int i = Max_col; i > -j; i--)
    {
      DrawText(x + i, y, my_text);
      delay(d);
    }
  }
  if (direct == 1) //ถอยหลัง
  {
    for (int i = -j; i <= Max_col; i++)
    {
      DrawText(x + i, y, my_text);
      delay(d);
    }
  }
  if (direct == 2) //เลื่อนข้อความจากบนลงล่าง
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 3) //เลื่อนข้อความจากล่างขึ้นบน
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 4) //เฉียงขึ้นขวา
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x + i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 5) //เฉียงลงซ้าย
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x + i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 6) //เฉียงลงขวา
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x - i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 7) //เฉียงขึ้นซ้าย
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x - i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 8) //เดินหน้าแล้วหยุด
  {
    for (int i = Max_col; i > -j; i--)
    {
      DrawText(x + i, y, my_text);
      delay(d);
      if (i == x)break;
    }
  }
}

void setup() {
  mx.begin();
  Serial.begin(9600);
  setbrightness(8);                   //0-15
}

// =======================================================================
void loop() {
  String myString = String(txt);

  Serial.println(myString.indexOf('1'));
  if(myString.indexOf('1') >= 0){
    y = 4;
  }
  else {
    y = 1;
  }

  txt += 1;
  DrawText(y, 0, String(txt));
  delay(100);

}