/*
 * Created on 2005/05/02
 *
 * To change the template for this generated file go to
 * Window - Preferences - Java - Code Generation - Code and Comments
 */
/**
 * @author kaz
 *
 * To change the template for this generated type comment go to
 * Window - Preferences - Java - Code Generation - Code and Comments
 */

/*
 * ToDo
 * ・クク宣言の処理
 * ・プレイ中のオープンカードのマーク（家・馬・猫・道化・猫の呪いで死んだカード）
 * ・カウンティングによる各プレイヤーの手札推測メソッド
 * ・自分がチェンジされて渡したカードのマーク
 * ・各プレイヤーの手番開始前のチェンジ宣言の経過リスト
 */
public class CucuGame5 {
	public static void main(String[] args) {
		System.out.println("** start **");
		
		GameSequence game = new GameSequence(); // ゲーム環境作成
		game.addPlayer(new MyPlayer("a")); // プレイヤーの追加
		game.addPlayer(new MyPlayer("b"));
		game.addPlayer(new MyPlayer("c"));
		game.addPlayer(new MyPlayer3("d"));
		game.addPlayer(new MyPlayer("e"));
		game.addPlayer(new MyPlayer("f"));
		game.addPlayer(new MyPlayer("g"));
		game.addPlayer(new MyPlayer3("h"));
		
		// 第1ラウンドの戦略分析　統計処理
		int[] WINLOSE = new int[game.n];
		int trial = 2000;
		for(int j = 0; j< trial; j++) { // ゲーム回数
			System.out.println("+++++Game: " + j);
			game.init(); // ゲーム環境初期化
			game.play4(); // 第１〜３ラウンドのみ＆復活処理なしのゲーム
			System.out.println("+++++Game: " + j);
			for(int i = 0; i<game.n; i++) {
				System.out.print( "Player"+ i + ": ");
				if(game.player[i].inplay) {
					System.out.println(" 生存");
				} else {
					WINLOSE[i]++;
					System.out.println(" 負け");
				}
			}
			// スタートプレイヤ変更
			game.rotatePlayer();
			int tmp;
			tmp = WINLOSE[0];
			for(int i = 0; i<game.n-1; i++) {
				WINLOSE[i] = WINLOSE[i+1];
			}
			WINLOSE[game.n-1] = tmp;
			
			System.out.println();
		}
		
		System.out.println("***結果***");
		for(int i = 0; i<game.n; i++) {
			System.out.println( "Player "+ game.player[i].name + ": " +
					(trial-WINLOSE[i]) + " 生存 "+WINLOSE[i] +
					" 負け / 生存率"+(trial-WINLOSE[i])/(double)trial);
		}
	}
}

class GameSequence {
	Player[] player = new Player[9];
	int n = 0; // number of player
	int alive_player; // ラウンドの参加人数
	int seq_num; // スタートプレイヤーを０とした順目
	
	void addPlayer(Player p) {
		player[n++] = p;
		p.game = this;
	}
	
	void rotatePlayer() {
		Player tmp;
		tmp = player[0];
		for(int i = 0; i<n-1; i++) {
			player[i] = player[i+1];
		}
		player[n-1] = tmp;
	}
	
	int[] cardset = new int[44]; //山札用
	int cardNum = 0;
	int cardNumEnd = 0;
	int[] cardset2 = new int[44]; //捨て札用
	int cardNum2 = 0;
	int cardNumEnd2 = 0;
	int round = 0; // ゲームのラウンド
	
	int getAliveNumber() {
		int tmp = 0;
		for(int i= 0; i<n; i++) {
			if( player[i].inplay ) tmp++;
		}
		return tmp;
	}
	
	int getSequenceNumber() {
		return seq_num+1;
	}
	
	void init() {
		for(int i = 0; i<44; i++) {
			cardset[i] = i;
		}
		shuffle();
		cardNum = 0;
		cardNumEnd = 43;

		for(int i = 0; i<44; i++) {
			cardset2[i] = -1;
		}
		cardNum2 = 0;
		cardNumEnd2 = 0;
		
		for(int i = 0; i<n; i++) {
			player[i].alive = true;
			player[i].inplay = true;
			player[i].chips = 10;
		}
		
		alive_player = n;
		round = 0;
	}
	
	void shuffle() {
		for(int i = 0; i < (44 -1); i++) {
			int r = (int)(Math.random()*(44 - i)) + i;
			int tmp = cardset[i];
			cardset[i] = cardset[r];
			cardset[r] = tmp;
		}
	}

	void shuffle2() {
		for(int i = 0; i < (cardNum2 -1); i++) {
			int r = (int)(Math.random()*(cardNum2 - i)) + i;
			int tmp = cardset2[i];
			cardset2[i] = cardset2[r];
			cardset2[r] = tmp;
		}
	}
	
	int drawCard() {
		if(cardNum == cardNumEnd) {
			int tmp = cardset[cardNum];
			
			shuffle2();
			cardNum = 0;
			cardNumEnd = cardNumEnd2 -1;
			cardNum2 = 0;
			cardNumEnd2 = 0;
			
			int[] tmp2;
			tmp2 = cardset;
			cardset = cardset2;
			cardset2 = tmp2;

			return tmp;
		} else {
			int tmp = cardset[cardNum++];
			return tmp;
		}
	}
	
	void discard(int n) {
		if(n == 50 || n == 51) { // 山札から引いた道化の処理
			n = n - 50;
		}
		cardset2[cardNum2] = n;
		cardNum2++;
		cardNumEnd2++;
	}
	
	int play1() {
		System.out.println("alive:" + n);
		for(int i = 0; i<n; i++) {
			player[i].card = drawCard();
			System.out.println(
					"player: "+i+ " " + Card.getName(player[i].card));
		}
		
		int min = 99;
		for(int i = 0; i<n; i++) {
			if(player[i].card < min) {
				min = player[i].card;
			}
		}		
		System.out.println(
				"負け:" + Card.getName(min));

		for(int i = 0; i<n; i++) {
			discard(player[i].card);			
		}
		
		return Card.getRank(min);
	}
	
	void play2() {
		int tn = n; // alive number
		int[] owner = new int[44];
		
		System.out.println("alive: " + tn);
		for(int i = 0; i<n; i++) {
			if(player[i].inplay) {
				player[i].card = drawCard();
				owner[player[i].card]=i;
				System.out.println(
					"player"+i+ ": " + Card.getName(player[i].card));
			}
		}

		System.out.println("Change Start");
		
		seq_num = 0;
		// チェンジ・ノーチェンジ選択処理
		CUCU:
		for(int i = 0; i<n; i++) {
			if(player[i].alive && player[i].change()) {
				System.out.println("Player"+i+ ": change");
				int tmp1,tmp2 = 0;
				tmp1 = player[i].card;
				for(int j = 1; ; j++){
					if(i+j >= n) {
						System.out.println("Player"+i+ ": draw");
						tmp2 = drawCard();
					} else {
						if(player[i+j].alive) {
							tmp2 = player[i+j].card;
						}
					}
					
					if(Card.getRank(tmp2) == 19 || // 馬・家
							Card.getRank(tmp2) == 17 ) {
						System.out.println("pass");						
						if(i+j >= n) {
							discard(tmp2);
						}
						continue;
					}
					if(Card.getRank(tmp2) == 21) { // クク
						System.out.println("Cuccu");
						if(i+j >= n) {
							discard(tmp2);
						}
						break CUCU;
					}
					if(Card.getRank(tmp2) == 18) { // 猫
						System.out.println("Cat");
						if(i+j >= n) {
							discard(tmp2);
						}
						System.out.println("負け Player" +owner[tmp1]);
						player[owner[tmp1]].alive = false;
						discard(player[owner[tmp1]].card);
						break;
					}
					if(Card.getRank(tmp2) == 20) { // 人間
						System.out.println("Man");
						if(i+j >= n) {
							discard(tmp2);
						}
						System.out.println("負け Player" +i);
						player[i].alive = false;
						discard(player[i].card);
						break;
					}

					player[i].card = tmp2;
					if(Card.getRank(tmp2) == 0) { // 道化
						if(i+j>=n) {
							player[i].card = tmp2 + 50; // 道化のランク強化
						} else {
							System.out.println("負け Player" +i);							
							player[i].alive = false;
							discard(player[i].card);
						}
					}
					if(i+j<n) {
						player[i+j].card = tmp1;
						if(Card.getRank(tmp1) == 0) {
							System.out.println("負け Player" +(i+j));
							player[i+j].alive = false;
							discard(player[i+j].card);
						}
					} else {
						discard(tmp1);
					}
					break;
				} // end of for j // 交換先プレイヤーsearch
				seq_num++;
			} // end of if player i change()
			else {
				if(player[i].alive) {
					System.out.println("Player"+i+ ": no change");
				}
				seq_num++;
			}
		} // end of for i // プレイヤーchange check
		
		int min = 99;
		for(int i = 0; i<n; i++) {
			if(player[i].alive && player[i].card < min) {
				min = player[i].card;
			}
		}
		for(int i = 0; i<n; i++) {
			if(player[i].alive &&
					Card.getRank(player[i].card) == Card.getRank(min) ) {
				player[i].alive = false;
				discard(player[i].card);
				System.out.println(
						"負け: Player" + i + " Card: " + Card.getName(min));
			}
		}

		for(int i = 0; i<n; i++) {
			if(player[i].alive) discard(player[i].card);			
		}
		
		// 復活処理
	}

	void play3() {
		int tn = alive_player; // alive number
		int[] owner = new int[44];
		
		System.out.println("alive: " + tn);
		for(int i = 0; i<n; i++) {
			if(player[i].inplay) {
				player[i].card = drawCard();
				player[i].card1st = player[i].card;
				owner[player[i].card]=i;
				System.out.println(
					"player"+i+ ": " + Card.getName(player[i].card));
			}
		}

		System.out.println("Change Start");
		// チェンジ・ノーチェンジ選択処理
		CUCU:
		for(int i = 0; i<n; i++) {
			//Cucu宣言チェック
			for (int j = 0; j < n; j++) {
				if (player[j].alive && Card.getRank(player[j].card) == 21) {
					int a = 0, m = 0, t = 0;
					for (int k = 0; k < n; k++) { // 参加人数調査
						if (player[k].alive)
							a++;
					}
					for (int k = 0; k <= i; k++) { // 現在の順番調査（1はゲーム開始時点）
						if (player[k].alive)
							t++;
					}
					for (int k = 0; k <= j; k++) { // 自分の順番調査
						if (player[k].alive)
							m++;
					}
					if (player[j].cucu(a, m, t)) {
						System.out.println("Player"+j+ ": call Cucu");						
						break CUCU;
					}
				}
			}
			if(player[i].alive && player[i].change()) {
				System.out.println("Player"+i+ ": change");
				int tmp1,tmp2 = 0;
				tmp1 = player[i].card;
				for(int j = 1; ; j++){
					if(i+j >= n) {
						System.out.println("Player"+i+ ": draw");
						tmp2 = drawCard();
					} else {
						if(player[i+j].alive) {
							tmp2 = player[i+j].card;
						} else {
							continue;
						}
					}
					
					if(Card.getRank(tmp2) == 19 || // 馬・家
							Card.getRank(tmp2) == 17 ) {
						System.out.println("pass");						
						if(i+j >= n) {
							discard(tmp2);
						}
						continue;
					}
					if(Card.getRank(tmp2) == 21) { // クク
						if(i+j >= n) { // 山札からククを引いた
							System.out.println("Cucu");
							discard(tmp2);
							break CUCU;
						}
					}
					if(Card.getRank(tmp2) == 18) { // 猫
						System.out.println("Cat");
						if(i+j >= n) {
							discard(tmp2);
						}
						System.out.println("負け Player" +owner[tmp1]);
						player[owner[tmp1]].alive = false;
						discard(player[owner[tmp1]].card);
						break;
					}
					if(Card.getRank(tmp2) == 20) { // 人間
						System.out.println("Man");
						if(i+j >= n) {
							discard(tmp2);
						}
						System.out.println("負け Player" +i);
						player[i].alive = false;
						discard(player[i].card);
						break;
					}

					player[i].card = tmp2;
					//もらうカードの処理
					if(Card.getRank(tmp2) == 0) { // 道化
						if(i+j>=n) { // 山札から引いた場合
							player[i].card = tmp2 + 50; // 道化のランク強化
						} else {
							System.out.println("負け Player" +i);
							player[i].alive = false;
							discard(tmp2);
						}
					}
					//渡すカードの処理
					if(i+j<n) {
						player[i+j].card = tmp1;
						if(Card.getRank(tmp1) == 0) {
							System.out.println("負け Player" +(i+j));
							player[i+j].alive = false;
							discard(tmp1);
						}
					} else {
						discard(tmp1);						
					}
					break;
				} // end of for j // 交換先プレイヤーsearch
			} // end of if player i change()
			else {
				if(player[i].alive) {
					System.out.println("Player"+i+ ": no change");
				}
			}
		} // end of for i // プレイヤーchange check
		
		int min = 99;
		for(int i = 0; i<n; i++) {
			if(player[i].alive && player[i].card < min) {
				min = player[i].card;
			}
		}
		for(int i = 0; i<n; i++) {
			if(player[i].alive &&
					Card.getRank(player[i].card) == Card.getRank(min) ) {
				player[i].alive = false;
				discard(player[i].card);
				System.out.println(
						"負け: Player" + i + " Card: " + Card.getName(min));
			}
		}

		for(int i = 0; i<n; i++) {
			if(player[i].alive) discard(player[i].card);			
		}
	}
	
	void play4() {
		for(int j = 0; j<3 ; j++) {
			alive_player=0;
			for(int i= 0; i<n; i++) {
				if( player[i].inplay ) alive_player++;
			}
			System.out.println("++Round: "+ (round + 1));			
			play3();
			// 復活処理（チップの支払い判断）
			//System.out.println(cardNum +":"+ cardNum2);
			round++;
			for(int i= 0; i<n; i++) {
				if(! player[i].alive ) player[i].inplay = false;
			}
		}
	}
}

class Card {
	static String[] names = {
			"道化","ライオン","お面","バケツ","０","１","２","３","４","５","６",
			"７","８","９","１０","１１","１２","家","猫","馬","人間","クク"
	};
	
	static String getName(int n) {
		if(n >=50) return "最強の道化";
		return names[n/2];
	}
	
	static int getRank(int n) {
		return n / 2;
	}
}

class Player {
	int chips = 10;
	boolean alive = true;
	boolean inplay = true;
	int card;
	int card1st;
	GameSequence game;
	String name;
	
	Player(String name) {
		this.name = name;	
	}
	
	boolean cucu(int n , int m , int t) {
		// n人参加。自分は第mプレイヤ。現在t人目の順番
		return false; //Cucu宣言する場合は、true
	}
	boolean change() { // どんな場合も必ずノーチェンジ
		return false;
	}
	int get1stCard(){
		return card1st;
	}
}

class MyPlayer extends Player {
	MyPlayer(String name) {
		super(name);
	}

	boolean cucu(int n , int m , int t) {
		// n人参加。自分は第mプレイヤ。現在t人目の順番
		return false; //Cucu宣言する場合は、true
	}

	boolean change() {
		// カードのランク（０が道化、２１がクク）が１０未満のときチェンジ
		if(Card.getRank(card) < 10) {
			return true;
		} else {
			return false;
		}
	}
}

class MyPlayer2 extends Player {
	MyPlayer2(String name) {
		super(name);
	}

	boolean cucu(int n , int m , int t) {
		// n人参加。自分は第mプレイヤ。現在t人目の順番
		return true; //Cucu宣言する場合は、true
	}

	boolean change() {
		// カードのランク（０が道化、２１がクク）が１０未満のときチェンジ
		if(Card.getRank(card) < 10) {
			return true;
		} else {
			return false;
		}
	}
}

class MyPlayer3 extends Player {
	MyPlayer3(String name) {
		super(name);
	}

	boolean cucu(int n , int m , int t) {
		// n人参加。自分は第mプレイヤ。現在t人目の順番（スタートは1番目）
		if(n==2) return true;
		if(m==1) return false;
		if(t+3 < m) return false;
		
		return true; //Cucu宣言する場合は、true
	}

	boolean change() {
		int lives = game.getAliveNumber(); // 生きている人数
		int seq = game.getSequenceNumber(); // 自分の順番（スタートは1番目）	
		int fcd = get1stCard(); // 最初に持っていたカード
		
		if(fcd < card) { // 交換された後でカードが強くなった場合
			return false;
		}
		
		// カードのランク（０が道化、２１がクク）が１０未満のときチェンジ
		// 山札から引いた道化カードは、ランク２５
		if(Card.getRank(card) < 8 + (4- lives/2)) {
			return true;
		} else {
			return false;
		}
	}
}