import java.awt.*;
import java.applet.*;

public class LifeGame extends Applet implements Runnable
{
	final int lifefieldwidth = 100;		// ライフ配列の幅
	final int lifefieldheight = 100;	// ライフ配列の高さ
	final int lifewidth = 5;		// ライフ１個の表示サイズ幅
	final int lifeheight = 5;		// ライフ１個の表示サイズ高さ
	final byte NOTHING = 0x00;		// なにもない空間
	final byte STONE = 0x02;		// 石(ライフフィールドを囲っている)
	final byte LIFE_A = 0x01;		// ライフＡ
	final byte LIFE_B = 0x03;		// ライフＢ（未使用）
	final Color NOTHING_COLOR = Color.black;// なにもない空間の表示色
	final Color STONE_COLOR = Color.gray;	// 石の表示色
	final Color LIFE_A_COLOR = Color.green;	// ライフＡの表示色
	final Color LIFE_B_COLOR = Color.yellow;// ライフＢの表示色
	byte lifefield[][];			// ライフフィールド配列
	byte tool;				// 編集アイテム
	int generation;				// 現在のライフフィールドの世代
	boolean autonext;			// オートネクストonのときはtrue
	boolean threadisrunning;		// スレッド実行中はtrue
	
	Thread nextgenerationthread;
	
	// GUI部品
	Button nextbutton;
	Button autobutton;
	Button refreshbutton;
	Button toolbutton;
	Button clearbutton;
	Label generationlabel;
	
	
	public void init()
	{
		// 変数初期化
		initVar();
		// UI作成
		nextbutton = new Button("next");
		autobutton = new Button("auto");
		refreshbutton = new Button("refresh");
		toolbutton = new Button("current tool:");
		clearbutton = new Button("all clear");
		setTool(tool);
		generationlabel = new Label(Integer.toString(generation), Label.LEFT);
		this.add(nextbutton);
		this.add(autobutton);
		this.add(clearbutton);
		this.add(toolbutton);
		this.add(generationlabel);
		this.add(refreshbutton);
	}
	
	public void run()
	{
		threadisrunning = true;
		System.out.println("Thread in");
		do{
			Graphics g = this.getGraphics();
			byte nextlifefield[][] = new byte[lifefieldwidth][lifefieldheight];
			for(int i = 0; i < lifefieldwidth; i++)
				for(int j = 0; j < lifefieldheight; j++)
				{
					// ライフフィールドの縁は石
					if((i == 0) || (j == 0) || (i == lifefieldwidth-1) || (j == lifefieldheight-1))
						nextlifefield[i][j] = STONE;
					else
					{
						int lifecount = 0;
						// 周囲８マスのライフの存在ををチェックする
						if(lifefield[i-1][j-1] == LIFE_A) lifecount++;
						if(lifefield[i-1][j] == LIFE_A) lifecount++;
						if(lifefield[i-1][j+1] == LIFE_A) lifecount++;
						if(lifefield[i][j-1] == LIFE_A) lifecount++;
						if(lifefield[i][j+1] == LIFE_A) lifecount++;
						if(lifefield[i+1][j-1] == LIFE_A) lifecount++;
						if(lifefield[i+1][j] == LIFE_A) lifecount++;
						if(lifefield[i+1][j+1] == LIFE_A) lifecount++;
						
						// 石は石
						// ライフが４以上のとき過密により死滅
						// ライフが１以下のとき過疎により死滅
						// ライフが３のとき誕生
						// それ以外は変化なし
						if(lifefield[i][j] == STONE)
							nextlifefield[i][j] = STONE;
						else
						{
							if(lifecount >= 4) nextlifefield[i][j] = NOTHING;
							else if(lifecount <= 1) nextlifefield[i][j] = NOTHING;
							else if(lifecount == 3) nextlifefield[i][j] = LIFE_A;
							else nextlifefield[i][j] = lifefield[i][j];
						}
					}
					
					// 次世代パターン描画
					if(nextlifefield[i][j] != lifefield[i][j])
						dottingLife(g, nextlifefield[i][j], i, j);
					
					/* debug
					System.out.println("lifecount:" + lifecount +
					 " current:" + lifefield[i][j] +
					 " next:" + nextlifefield[i][j]);
					*/
				}
			generation++;
			lifefield = nextlifefield;
			generationlabel.setText(Integer.toString(generation));
			try{ Thread.sleep(100); }catch(InterruptedException e){};
		}while(autonext);
		System.out.println("Thread out");
		threadisrunning = false;
	}
	
	public boolean action(Event evt, Object obj)
	{
		if(evt.target == nextbutton)
		{
			autonext = false;
			// 現在のスレッドの終了を待つ
			while(threadisrunning);
			nextgenerationthread = new Thread(this);
			nextgenerationthread.start();
		}
		else if(evt.target == autobutton)
		{
			if(autonext)
			{
				autonext = false;
				// スレッド終了を待つ
				while(threadisrunning);
				autobutton.setLabel("auto");
			}
			else
			{
				// 現在のスレッドの終了を待つ
				while(threadisrunning);
				autonext = true;
				nextgenerationthread = new Thread(this);
				nextgenerationthread.start();
				autobutton.setLabel("stop");
			}
		}
		else if(evt.target == refreshbutton)
			repaint();
		else if(evt.target == toolbutton)
		{
			switch(tool)
			{
				case LIFE_A: setTool(NOTHING); break;
				case LIFE_B: System.out.println("Error in tool");
				case NOTHING: setTool(STONE); break;
				case STONE: setTool(LIFE_A); break;
				default: System.out.println("Error in tool");
			}
		}
		else if(evt.target == clearbutton)
		{
			// スレッド強制停止
			if(nextgenerationthread != null)
				nextgenerationthread.stop();
			threadisrunning = false;
			
			// 変数初期化
			initVar();
			
			// 表示
			setTool(tool);
			generationlabel.setText(Integer.toString(generation));
			autobutton.setLabel("auto");
			repaint();
		}
		return true;
	}
	
	public boolean mouseDown(Event e, int x, int y)
	{
		dropLife(x, y);
		return true;
	}
	public boolean mouseDrag(Event e, int x, int y)
	{
		dropLife(x, y);
		return true;
	}
	
	public void paint(Graphics g)
	{
		drawLifeField(g);
	}
	
	public void stop()
	{
		System.out.println("applet stop");
		if(nextgenerationthread != null)
			nextgenerationthread.stop();
	}
	
	private final void initVar()
	{
		generation = 0;
		autonext = false;
		threadisrunning = false;
		tool = LIFE_A;
		lifefield = new byte[lifefieldwidth][lifefieldheight];
		for(int i=0; i<lifefieldwidth; i++)
			for(int j=0; j<lifefieldheight; j++)
				if((i == 0) || (j == 0) || (i == lifefieldwidth-1) || (j == lifefieldheight-1))
					lifefield[i][j] = STONE;
				else
					lifefield[i][j] = NOTHING;
	}
	
	private final void drawLifeField(Graphics g)
	{
		for(int i=0; i<lifefieldwidth; i++)
		{
			g.setColor(Color.yellow);
			g.drawLine((i+1)*lifewidth, 0, (i+1)*lifewidth, lifeheight*lifefieldheight);
			for(int j=0; j<lifefieldheight; j++)
				dottingLife(g, lifefield[i][j], i, j);
		}
	}
	
	private final void dottingLife(Graphics g, byte type, int x, int y)
	{
		switch(type)
		{
			case NOTHING: g.setColor(NOTHING_COLOR); break;
			case LIFE_A: g.setColor(LIFE_A_COLOR); break;
			case LIFE_B: g.setColor(LIFE_B_COLOR); break;
			case STONE: g.setColor(STONE_COLOR); break;
		}
		g.fillRect(x*lifewidth, y*lifeheight, lifewidth, lifeheight);
	}
	
	private final void setTool(byte t)
	{
		this.tool = t;
		switch(t)
		{
			case LIFE_A: toolbutton.setLabel("current tool: LIFE_A"); break;
			case LIFE_B: toolbutton.setLabel("current tool: LIFE_B"); break;
			case NOTHING: toolbutton.setLabel("current tool: NOTHING"); break;
			case STONE: toolbutton.setLabel("current tool: STONE"); break;
			default: System.out.println("Error in tool");
		}
	}
	
	private final void dropLife(int x, int y)
	{
		// スレッド進行中はライフフィールドの操作不可
		if(!threadisrunning)
		{
			int px = x/lifewidth;
			int py = y/lifeheight;
			if((px > 0) && (py > 0) && (px < lifefieldwidth-1) && (py < lifefieldheight-1))
			{
				Graphics g = this.getGraphics();
				lifefield[px][py] = tool;
				dottingLife(g, tool, px, py);
			}
		}
	}
}