#include "block.h"
#include "draw.h"
#include "button.h"
#include <reg52.h>
#include "delay.h"
#include "eeprom.h"
#include <stdlib.h>

extern unsigned int bestScore[];
char base[MAX_X][MAX_Y] = {0}; //x*y	//0为空 1为下落完成 2为正在下落
extern unsigned int score;
extern enum OPR opr;
enum GS blockGameStatus = __idle;

void blockInit()
{
  score = 0;
	srand((unsigned)TL0);
  blockGameStatus = start;
}

void blockDestroy()
{
  //写入排行榜
  if(addBest(score))
    {
      IapEraseSector(IAP_ADDRESS);
      IapProgramByte(IAP_ADDRESS + 0, bestScore[0] >> 8);
      IapProgramByte(IAP_ADDRESS + 1, bestScore[0] % 256);
      IapProgramByte(IAP_ADDRESS + 2, bestScore[1] >> 8);
      IapProgramByte(IAP_ADDRESS + 3, bestScore[1] % 256);
      IapProgramByte(IAP_ADDRESS + 4, bestScore[2] >> 8);
      IapProgramByte(IAP_ADDRESS + 5, bestScore[2] % 256);
      IapProgramByte(IAP_ADDRESS + 6, bestScore[3] >> 8);
      IapProgramByte(IAP_ADDRESS + 7, bestScore[3] % 256);
      IapProgramByte(IAP_ADDRESS + 8, bestScore[4] >> 8);
      IapProgramByte(IAP_ADDRESS + 9, bestScore[4] % 256);
      IapProgramByte(IAP_ADDRESS + 10, bestScore[5] >> 8);
      IapProgramByte(IAP_ADDRESS + 11, bestScore[5] % 256);
      IapProgramByte(IAP_ADDRESS + 12, bestScore[6] >> 8);
      IapProgramByte(IAP_ADDRESS + 13, bestScore[6] % 256);
      IapProgramByte(IAP_ADDRESS + 14, bestScore[7] >> 8);
      IapProgramByte(IAP_ADDRESS + 15, bestScore[7] % 256);
      IapProgramByte(IAP_ADDRESS + 16, bestScore[8] >> 8);
      IapProgramByte(IAP_ADDRESS + 17, bestScore[8] % 256);
      IapProgramByte(IAP_ADDRESS + 18, bestScore[9] >> 8);
      IapProgramByte(IAP_ADDRESS + 19, bestScore[9] % 256);
    }
  memset(base, 0, sizeof(base));
  blockGameStatus = over;
}

void genPiece()
{

  char i, j;
  //需要一点随机性
  int random = rand() % 100;


  if(blockGameStatus == over)
    return;


  //若存在尚未下落完成的方块则打断
  for(i = 0; i < MAX_X; i++)
    for(j = 0; j < MAX_Y; j++)
      if(base[i][j] == 2)
        return;

  //当两个方块的情况
  if(random >= 0 && random <= 6)
    {
      base[4][9] = 2;
    }

  //当两个方块的情况
  if(random >= 7 && random <= 15)
    {
      base[4][9] = 2;							//
      base[4][10] = 2;						//
    }
  else if(random >= 16 && random <= 22)
    {
      base[3][9] = 2;						////
      base[4][9] = 2;
    }

  //当三个方块的情况
  else if(random >= 23 && random <= 32)
    {

      base[4][11] = 2;
      base[4][10] = 2;
      base[4][9] = 2;
    }
  else if(random >= 32 && random <= 38)
    {
      base[3][9] = 2;
      base[4][9] = 2;
      base[5][9] = 2;
    }
  else if(random >= 39 && random <= 47)
    {
      base[3][10] = 2;
      base[3][9] = 2;
      base[4][9] = 2;
    }
  else if (random >= 48 && random <= 55)
    {
      base[4][10] = 2;
      base[3][9] = 2;
      base[4][9] = 2;
    }
	 else if (random >= 56 && random <= 63)
    {
      base[4][9] = 2;
      base[3][10] = 2;
      base[4][10] = 2;
    }
		else if (random >= 64 && random <= 69)
    {
      base[3][9] = 2;
      base[3][10] = 2;
      base[4][10] = 2;
    }

//当四个方块的情况
  else if(random >= 70 && random <= 79)
    {
      base[3][10] = 2;
      base[4][10] = 2;
      base[3][9] = 2;
      base[4][9] = 2;
    }
	 else if(random >= 80 && random <= 84)
    {
      base[3][10] = 2;
      base[4][10] = 2;
      base[3][9] = 2;
      base[4][11] = 2;
    }
		else if(random >= 85 && random <= 89)
    {
      base[3][10] = 2;
      base[4][10] = 2;
      base[3][11] = 2;
      base[4][9] = 2;
    }
		else if(random >= 90 && random <= 94)
    {
      base[3][10] = 2;
      base[4][10] = 2;
      base[4][9] = 2;
      base[5][9] = 2;
    }
		else if(random >= 95 && random <= 99)
    {
      base[3][10] = 2;
      base[4][10] = 2;
      base[3][9] = 2;
      base[4][9] = 2;
    }
}

//动作是否在屏幕内
unsigned char isIegal(char i, char j)
{
  if(i >= 0 && i < MAX_X && j >= 0 && j < MAX_Y && base[i][j] != 1)
    return 1;
  return 0;
}

//方块绘制
void drawBlock()
{
  char i, j;

  for(i = 0; i < 8; i++)
    for(j = 0; j < 8; j++)
      if(base[i][j] != 0)
        placeIMG_BLOCK(i, j);
      else
        placeVOID_BLOCK(i, j);
}

//方块下落与合并
void dropPiece()
{
  char i, j, flag = 0;

  //检测是否触底
  for(i = 0; i < MAX_X; i++)
    {
      for(j = 0; j < MAX_Y; j++)
        {
          if(flag == 1)
            break;
          if(base[i][j] == 2)
            {
              //若触底,做标记
              if(flag == 0 && (base[i][j - 1] == 1 || j == 0))
                {
                  flag = 1;
                  break;
                }

            }
        }
      if(flag == 1)
        break;
    }
  //转换嵌套
  for(i = 0; i < MAX_X; i++)
    {
      for(j = 0; j < MAX_Y; j++)
        {
          if(base[i][j] == 2)
            {
              //无标记则下落
              if(flag == 0 && isIegal(i, j - 1))
                {
                  base[i][j - 1] = 2;
                  base[i][j] = 0;
                }
              //有标记则转换
              else if(flag == 1)
                {
                  score++;
                  base[i][j] = 1;
                }
            }
        }
    }

}

//方块平移
void moveLeftPiece()
{

  char i, j;
  if(blockGameStatus == over)
    return;
  for(i = 0; i < MAX_X; i++)
    for(j = 0; j < MAX_Y; j++)
      if(base[i][j] == 2 && !isIegal(i - 1, j))
        {
          return;
        }
  for(i = 0; i < MAX_X; i++)
    for(j = 0; j < MAX_Y; j++)
      if(base[i][j] == 2)
        {
          base[i - 1][j] = 2;
          base[i][j] = 0;
        }
}
void moveRightPiece()

{
  char i, j;
  if(blockGameStatus == over)
    return;
  for(i = MAX_X - 1; i >= 0; i--)
    for(j = MAX_Y - 1; j >= 0; j--)
      if(base[i][j] == 2 && !isIegal(i + 1, j))
        {
          return;
        }
  for(i = MAX_X - 1; i >= 0; i--)
    for(j = MAX_Y - 1; j >= 0; j--)
      if(base[i][j] == 2 )
        {
          base[i + 1][j] = 2;
          base[i][j] = 0;
        }
}

//判断消除整行
void judgeBlock()
{
  char i, j, k, h, count;
  if(blockGameStatus == over)
    return;
  //逐行扫描
  for(j = 0; j < MAX_Y; j++)
    {
      count = 0;
      for(i = 0; i < MAX_X; i++)
        {
          //有则计数
          if(base[i][j] == 1)
            {
              count++;
            }
        }
      //计数足则整体下移
      if(count == 8)
        {
          score = score + 10;
          blockGameStatus = good;
          for(k = 0; k < MAX_X; k++)
            for(h = j ; h < MAX_Y - 1; h++)
              base[k][h] = base[k][h + 1];
        }

    }
}

//判断是否游戏结束
void blockGameOver()
{
  char j, i;
  if(blockGameStatus == over)
    return;
  for(j = 0; j < MAX_X; j++)
    {
      //满足此条件则游戏结束
      if(base[j][7] == 1)
        {
          blockGameStatus = over;
          break;
        }
    }
  //结束则填满
  if(blockGameStatus == over)
    {
      for(j = 0; j < MAX_Y; j++)
        for(i = 0; i < MAX_X; i++)
          {
            //此处看似降低效率，但其实是为了增加喜剧效果
            delayms(10);
            base[i][j] = 1;
            placeIMG_BLOCK(i, j);
          }
    }
}

unsigned int addBest(unsigned int s)
{
  int i, j;
  for(i = 0; i < 10; i++)
    if(bestScore[i] < s)
      {
        for(j = 9; j > i; j--)
          bestScore[j] = bestScore[j - 1];

        bestScore[i] = s;
        return 1;
      }
  return 0;
}