*/

package cn.hncu.games;
import java.awt.Color;
import java.awt.Font;
import java.awt.Graphics;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import java.awt.event.KeyAdapter;
import java.awt.event.KeyEvent;
import java.util.Random;

import javax.swing.JFrame;
import javax.swing.JMenu;
import javax.swing.JMenuBar;
import javax.swing.JMenuItem;
import javax.swing.JOptionPane;
import javax.swing.JPanel;
import javax.swing.JSplitPane;
import javax.swing.Timer;

public class Tetris extends JFrame{
	
	private nextBlockJPanel p;
	private TetrisPanel a; 
	private int set_delay=1000;

	private JMenu[] jmenu;
	private JMenuItem[][] jmenuItem;
	/*
	 * 動態監聽選單
	 */
	private ActionListener jmenuListener=new ActionListener() {
		
		@Override
		public void actionPerformed(ActionEvent e) {
			if(e.getActionCommand().equals("newGame")){
				a.newGame();
				jmenuItem[0][2].setEnabled(false);
				jmenuItem[0][1].setEnabled(true);
				for (int i = 0; i < jmenuItem[1].length; i++) {
					jmenuItem[1][i].setEnabled(false);
				}
				for (int i = 0; i < jmenuItem[2].length; i++) {
					jmenuItem[2][i].setEnabled(false);
				}
			}else if(e.getActionCommand().equals("break")){
				if(a.timer!=null)
					a.timer.stop();
				jmenuItem[0][1].setEnabled(false);
				jmenuItem[0][2].setEnabled(true);
				for (int i = 0; i < jmenuItem[1].length; i++) {
					jmenuItem[1][i].setEnabled(true);
				}
			}else if(e.getActionCommand().equals("continue")){
				if(a.timer!=null)
					a.timer.restart();
				jmenuItem[0][2].setEnabled(false);
				jmenuItem[0][1].setEnabled(true);
				for (int i = 0; i < jmenuItem[1].length; i++) {
					jmenuItem[1][i].setEnabled(false);
				}
				p.score=p.now_score;
				for (int i = 0; i < a.map.length; i++) {
					for (int j = 0; j < a.map[i].length; j++) {
						a.map[i][j]=a.now_map[i][j];
					}
				}
				a.repaint();
				p.repaint();
			}else if(e.getActionCommand().equals("exit")){
				if (a.timer!=null&&a.timer.isRunning()) {
					a.timer.stop();
				}
				//System.exit(0);
				dispose();
			}else if(e.getActionCommand().equals("last_score")){
				if(a.timer!=null)
					a.timer.stop();
				p.score=p.last_score;
				for (int i = 0; i < a.map.length; i++) {
					for (int j = 0; j < a.map[i].length; j++) {
						a.map[i][j]=a.last_map[i][j];
					}
				}
				a.repaint();
				p.repaint();
			}else if(e.getActionCommand().equals("optimal_score")){
				if(a.timer!=null)
					a.timer.stop();
				p.score=p.optimal_score;
				for (int i = 0; i < a.map.length; i++) {
					for (int j = 0; j < a.map[i].length; j++) {
						a.map[i][j]=a.optimal_map[i][j];
					}
				}
				a.repaint();
				p.repaint();
			}else if(e.getActionCommand().equals("hard")){
				set_delay=200;
			}else if(e.getActionCommand().equals("middle")){
				set_delay=600;
			}else if(e.getActionCommand().equals("low")){
				set_delay=1000;
			}
			
		}
	};
	/*
	 * 俄羅斯方塊形狀
	 */
	private int[][][][] shapes=new int[][][][]{
			//T
			{{         {0,1,0}, {1,1,1}},
			 {{0,0,1}, {0,1,1}, {0,0,1}},
			 {{1,1,1}, {0,1,0}         },
			 {{1,0,0}, {1,1,0}, {1,0,0}}},
			//L
			{{{0,1,0}, {0,1,0}, {0,1,1}},
			 {{0,0,1}, {1,1,1}},
			 {{1,1,0}, {0,1,0}, {0,1,0}},
			 {         {1,1,1}, {1,0,0}}},
			//J
			{{{0,1,0}, {0,1,0}, {1,1,0}},
			 {         {1,1,1}, {0,0,1}},
			 {{0,1,1}, {0,1,0}, {0,1,0}},
			 {{1,0,0}, {1,1,1}        }},
			//S
			{{{0,1,1}, {1,1,0}         },
			 {{0,1,0}, {0,1,1}, {0,0,1}}},
			 //Z
			{{{1,1,0}, {0,1,1}         },
			 {{0,1,0}, {1,1,0}, {1,0,0}}},
			 //O
			{{{1,1}, {1,1}}},
			//I
			{{{1,1,1,1}         },
			 {{1}, {1}, {1}, {1}}}
	};
	
	public Tetris() {
		super("俄羅斯方塊簡易版");
		setBounds(200, 100, 700, 600);
		setDefaultCloseOperation(DISPOSE_ON_CLOSE);
		//getContentPane().setLayout(new BorderLayout());
		
		//選單
		JMenuBar bar=new JMenuBar();
		//for新增一系列選單,
		String[] str={"選項","記錄","難度"};
		String[][] strs={{"新遊戲","暫停","繼續","退出"},
				         {"上輪成績","最佳成績"},
				         {"難","中","低"}};
		String[][] strs_english={{"newGame","break","continue","exit"},
				{"last_score","optimal_score"},
				{"hard","middle","low"}};
		jmenu=new JMenu[str.length];
		jmenuItem=new JMenuItem[strs.length][];
		for (int i = 0; i < jmenu.length; i++) {
			jmenu[i]=new JMenu(str[i]);
			jmenuItem[i]=new JMenuItem[strs[i].length];
			for (int j = 0; j < jmenuItem[i].length; j++) {
				jmenuItem[i][j]=new JMenuItem(strs[i][j]);
				jmenuItem[i][j].addActionListener(jmenuListener);
				jmenuItem[i][j].setActionCommand(strs_english[i][j]);
				if(jmenuItem[i][j].getActionCommand().equals("continue"))
					jmenuItem[i][j].setEnabled(false);
				if(jmenuItem[i][j].getActionCommand().equals("break"))
					jmenuItem[i][j].setEnabled(false);
				jmenu[i].add(jmenuItem[i][j]);
			}
			bar.add(jmenu[i]);
		}
		setJMenuBar(bar);
		
		//記分面板
		p=new nextBlockJPanel();
		//遊戲繪畫面板
		a = new TetrisPanel(p);
		addKeyListener(a.timerListeren);
		JSplitPane sp=new JSplitPane(JSplitPane.HORIZONTAL_SPLIT,a,p);
		sp.setDividerLocation(400);
		getContentPane().add(sp);
		
		
		setVisible(true);
	}

	public class TetrisPanel extends JPanel{
		private nextBlockJPanel p;
		
		private int blockType; 
		private int turnState;
		
		private int local_x;
		private int local_y;
		
		private int delay;
		private TimerListeren timerListeren=new TimerListeren();
		
		private Timer timer;
	
		
		private int[][] map=new int[27][20];
		private int[][] now_map=new int[27][20];
		private int[][] last_map=new int[27][20];
		private int[][] optimal_map=new int[27][20];
	
		/*
		 * 建構函式並map初始化，構造牆壁
		 */
		public TetrisPanel(nextBlockJPanel p){
			this.p=p;
			for (int i = 0; i <map.length; i++) {
				for (int j = 0; j <map[i].length; j++) {
					if(j==0||j==map[i].length-1||i==map.length-1){
						map[i][j]=3;
					}else{
						map[i][j]=0;
					}
				}
			
			}
		}

		/*
		 * 遊戲開始
		 */
		private void newGame() {
			for (int i = 0; i <map.length; i++) {
				for (int j = 0; j <map[i].length; j++) {
					if(j==0||j==map[i].length-1||i==map.length-1){
						map[i][j]=3;
					}else{
						map[i][j]=0;
					}
				}
			
			}

			nextBlock();
			p.score=0;
			for (int i = 0; i < map.length; i++) {
				for (int j = 0; j < map[i].length; j++) {
					now_map[i][j]=map[i][j];
				}
			}
			p.now_score=p.score;
			delay=set_delay;
			timer=new Timer(delay, timerListeren);
			timer.start();
		}

		/*
		 * 下一方塊形狀
		 */
		private void nextBlock() {
			blockType=p.blockType;
			turnState=p.turnState;
			local_x=8;
			local_y=0;
			p.nextBlock();
			repaint();
			isGameOver();
		}
		//下落
		private void down(){
			if(crash(blockType,turnState,local_x,local_y+1)==1){
				local_y++;
			}else{
				add(blockType,turnState,local_x,local_y);
				nextBlock();
				
			}
			repaint();
		}
		//鍵盤方向鍵操作
		private void left() {
			local_x-=crash(blockType, turnState, local_x-1, local_y);
			repaint();
			
		}

		private void right() {
			local_x+=crash(blockType, turnState, local_x+1, local_y);
			repaint();
		}

		private void trun() {
			turnState=(turnState+crash(blockType, (turnState+1)%shapes[blockType].length, local_x, local_y))%shapes[blockType].length;
			repaint();
		}
		//加方塊
		private void add(int blockType, int turnState, int local_x,int local_y) {
			for (int i = 0; i < shapes[blockType][turnState].length; i++) {
				for (int j = 0; j < shapes[blockType][turnState][i].length; j++) {
					if(shapes[blockType][turnState][i][j]!=0)
						map[local_y+i][local_x+j]=shapes[blockType][turnState][i][j];
				}
			}
			Deline();
			for (int i = 0; i < map.length; i++) {
				for (int j = 0; j < map[i].length; j++) {
					now_map[i][j]=map[i][j];
				}
			}
			p.now_score=p.score;
		}
		//是否遊戲結束
        private void isGameOver() {
			if(crash(blockType, turnState, local_x, local_y)==0){
				p.last_score=p.score;
				for (int i = 0; i < map.length; i++) {
					for (int j = 0; j < map[i].length; j++) {
						last_map[i][j]=map[i][j];
					}
				}
				if(p.score>p.optimal_score){
					p.optimal_score=p.score;
					for (int i = 0; i < map.length; i++) {
						for (int j = 0; j < map[i].length; j++) {
							optimal_map[i][j]=map[i][j];
						}
					}
				}
				timer.stop();
				JOptionPane.showMessageDialog(null, "遊戲得分為："+p.score);
				int option=JOptionPane.showConfirmDialog(null, "是否再來一局？", "", JOptionPane.YES_NO_OPTION);
				if(option==JOptionPane.OK_OPTION){
					newGame();
				}else{
					//System.exit(0);
					dispose();
				}
			}
			
		}

		//消方塊
		private void Deline() {
			int count=0;
			for (int i = 0; i < map.length-1; i++) {
				int c=1;
				for (int j = 1; j < map[i].length-1; j++) {
					c=c&map[i][j];
				}
				if(c==1){
					for (int i2 = i; i2 >0; i2--) {
						for (int j = 1; j < map[i2].length-1; j++) {
							map[i2][j]=map[i2-1][j];
						}
					}
					for (int j = 1; j < map[i].length-1; j++) {
						map[0][j]=0;
					}
					count++;
				}
			}
			if(count!=0){
				p.score+=10*(int)Math.pow(2, count);
				p.repaint();
			}
			timer.setDelay(delay-p.score/100);
		}

		//判斷是否碰撞
		private int crash(int blockType, int turnState, int local_x, int local_y) {
			for (int i = 0; i < shapes[blockType][turnState].length; i++) {
				for (int j = 0; j < shapes[blockType][turnState][i].length; j++) {
					try {
						if((shapes[blockType][turnState][i][j]&map[local_y+i][local_x+j])==1)
							return 0;
					} catch (Exception e) {
						return 0;
					}
				}
			}
			return 1;
		}
 
		@Override
		protected void printComponent(Graphics g) {
			super.printComponent(g);
			//畫出遊戲介面
			for (int i = 0; i <map.length; i++) {
				for (int j = 0; j < map[i].length; j++) {
					if(map[i][j]==3){
						g.setColor(Color.gray);
						g.fillRect(j*20, i*20, 20, 20);
					}
					if(map[i][j]==1){
						g.setColor(Color.blue);
						g.fillRect(j*20, i*20, 20, 20);
					}
				}
			}
			if(timer!=null&&timer.isRunning())
			for (int i = 0; i < shapes[blockType][turnState].length; i++) {
				for (int j = 0; j < shapes[blockType][turnState][i].length; j++) {
					if(shapes[blockType][turnState][i][j]==1){
						g.setColor(Color.cyan);
						g.drawRect((local_x+j)*20, (local_y+i)*20, 20, 20);
						g.setColor(Color.blue);
						g.fillRect((local_x+j)*20+1, (local_y+i)*20+1, 19, 19);
					}
				}
			}
			
		}

		@Override
		public void paint(Graphics g) {
			printComponent(g);
		}
        /*
         * 鍵盤控制
         */
        class TimerListeren extends KeyAdapter implements ActionListener{

			@Override
			public void actionPerformed(ActionEvent e) {
				down();
			}

			@Override
			public void keyPressed(KeyEvent e) {
				if(timer==null||!timer.isRunning())
					return;
				int keyCode=e.getKeyCode();
				switch(keyCode){
				case KeyEvent.VK_DOWN:
					down();
					break;
				case KeyEvent.VK_UP:
					trun();
					break;
				case KeyEvent.VK_LEFT:
					left();
					break;
				case KeyEvent.VK_RIGHT:
					right();
					break;
				}
			}

        }

	}
	
	public class nextBlockJPanel extends JPanel {
		
		private int blockType;
		private int turnState; 
		
		private int score;
		private int now_score;
		private int last_score;
		private int optimal_score;
		
		public nextBlockJPanel(){
			nextBlock();
			score=0;
		}

		@Override
		protected void paintComponent(Graphics g) {
			super.paintComponent(g);
			g.drawString("下一個方塊形狀：", 20, 20);

			for (int i = 0; i <shapes[blockType][turnState].length ; i++) {
				for (int j = 0; j < shapes[blockType][turnState][i].length; j++) {
					if(shapes[blockType][turnState][i][j]==1){
						g.setColor(Color.cyan);
						g.drawRect(40+j*20, 40+i*20, 20, 20);
						g.setColor(Color.blue);
						g.fillRect(40+j*20+1, 40+i*20+1, 19, 19);
					}
				}
			}
			g.setColor(Color.red);
			g.drawString("Score:", 140, 20);
			g.setFont(new Font("score",Font.BOLD,50));
			g.drawString(""+score, 140, 80);
			g.setFont(new Font("aa", Font.PLAIN, 32));
			g.drawString("拒絕盜版遊戲，", 20, 320);
			g.drawString("注意自我保護。", 20, 350);
			g.drawString("謹防受騙上當。", 20, 380);
			g.drawString("適度遊戲益腦，", 20, 410);
			g.drawString("沉迷遊戲傷身。", 20, 440);
			g.drawString("合理安排時間，", 20, 470);
			g.drawString("享受健康生活。", 20, 500);
		}

		@Override
		public void paint(Graphics g) {
			super.paint(g);
			paintComponent(g);
		}
		//下一個方塊
		private void nextBlock() {
			blockType=(new Random()).nextInt(shapes.length);
			turnState=(new Random()).nextInt(shapes[blockType].length);
			repaint();
			
		}
		

	}
	
	public static void main(String[] args) {
		new Tetris();
	}
	
	

}