/*  Scrabble : An interactive scrabble playing software.
    Copyright (C) 1999 Amitabh Sinha
    
    All Trademarks and Copyrights pertaining to Scrabble, Java, Linux
    acknowledged.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    Contact Amitabh at <amitabh@umich.edu>
*/

import java.io.*;
import java.util.*;

public class ComputerPlayer extends Player {
    int timeLimit;
    ScrabbleBoard board;
    int skips;
    boolean show;
    boolean blankUsed;

    public ComputerPlayer (String s, int t, ScrabbleBoard b, LetterBag l) {
	name = s;
	letters = new Vector();
	timeLimit = t;
	board = b;
	letterBag = l;
	for (int i=0; i<7; i++) {
	    Letter ll = letterBag.getLetter();
	    if (ll.getLetter()==' ')
		ll.setValue('E');
	    letters.addElement(ll);
	}
    }
    
    public void setShow(boolean s) {
	show = s;
    }

    public String getSLetters() {
	String s = new String();
	for (int i=0; i<letters.size(); i++)
	    s = s.concat(((Letter)letters.elementAt(i)).getSLetter()+" ");
	return s;
    }

    public void setDifficulty(String s) {
	if (s.equals("Easy"))
	    skips = 6;
	else if (s.equals("Medium"))
	    skips = 3;
	else skips = 1;
    }

    public boolean playNewWord() {
	Vector d = board.getDictionary().getDictionary();
	String word = new String();
	int points = 0;
	int bestY = 7;

	for (Enumeration e = d.elements(); e.hasMoreElements();) {
	    String wd = (String) e.nextElement();
	    if (!isFormable(wd))
		continue;
	    int pts;
	    for (int i=8-wd.length(); i<=7; i++) {
		pts = board.computePoints(wd, 7, i, 'x', false);
		if (blankUsed)
		    pts -= 8;
		if (pts <= points)
		    continue;
		points = pts;
		word = wd;
		bestY = i;
	    }
	}
	board.refresh();

	Vector wd = new Vector();
	for (int i=0; i<word.length(); i++) {
	    int j;
	    for (j=0; j<letters.size(); j++) {
		if (((Letter)letters.elementAt(j)).getValue() == word.charAt(i))
		    break;
	    }
	    wd.addElement(letters.elementAt(j));
	    if (((Letter)letters.elementAt(j)).getLetter()==' ') {
		Dialog ddd = new Dialog ("Moistone plays blank as 'E'");
	    }
	    letters.removeElement(letters.elementAt(j));
	}

	if (points < 6) {
	    for (int i=0; i<7; i++)
		letters.addElement(letterBag.getLetter());
	    for (int i=0; i<7; i++) {
		letterBag.returnLetter((Letter)letters.elementAt(0));
		letters.removeElement(letters.elementAt(0));
	    }
	    Dialog dd = new Dialog ("Moistone has changed letters. Your turn.");
	    return true;
	} else {
	    board.setNotEmpty();
	    board.placeWord(word, wd, 7, bestY, 'x');
	    board.recordMove("computer");
	    for (int i=0; i<word.length(); i++) {
		Letter ll = letterBag.getLetter();
		if (ll.getLetter() == ' ')
		    ll.setValue('E');
		letters.addElement(ll);
	    }
	    return true;
	}
    }
    
    public boolean playWord() {
	Vector almosts = new Vector();
	Vector missings = new Vector();
	Vector almostBlanks = new Vector();
	NewRandom nr = new NewRandom();	
	Vector d = board.getDictionary().getDictionary();
	int points=0;
	char c;
	String wd = new String();
	Vector word = new Vector();
	int xPos = 7;
	int yPos = 7;
	char cPos = 'x';
	String finalWord = new String();
	Vector fullyFormables = new Vector();
	Vector fullyBlanks = new Vector();
	boolean fuller = false;

	points = 0;
	nr.setLimit(skips);
	for (int k=0; k<d.size(); k+=nr.nextInt()+1) {
	    wd = (String) d.elementAt(k);
	    if (isFormable(wd))
		fullyFormables.addElement(wd);
	    fullyBlanks.addElement(new Boolean(blankUsed));
	    if ((c = isAlmostFormable(wd)) == '0')
		continue;
	    almosts.addElement(wd);
	    almostBlanks.addElement(new Boolean(blankUsed));
	    missings.addElement(new Character(c));
	}
	board.refresh();

	for (int i=0; i<15; i++)
	    for (int j=0; j<15; j++) {
		char dir = 'x';
		int x,y;
		
		if (!board.cellAt(i,j).isOccupied())
		    continue;
		if ((i==0 && !board.cellAt(i+1,j).isOccupied()) || (i>0 && i<14 && !board.cellAt(i-1,j).isOccupied() && !board.cellAt(i+1,j).isOccupied()) || (i==14 && !board.cellAt(i-1,j).isOccupied()))
		    dir = 'y';
		else if ((j==0 && !board.cellAt(i,j+1).isOccupied()) || (j>0 && j<14 && !board.cellAt(i,j-1).isOccupied() && !board.cellAt(i,j+1).isOccupied()) || (j==14 && !board.cellAt(i,j-1).isOccupied()))
		    dir = 'x';
		else continue;
		char cc = board.cellAt(i,j).getLetter().getLetter();

		int idx = -1;
		while ((idx = missings.indexOf(new Character(cc), idx+1)) != -1) {
		    if (dir == 'y') {
			String tryWord = ((String) almosts.elementAt(idx));
			Character misChar = (Character) missings.elementAt(idx);
			int yy = j;
			int xx = i - tryWord.indexOf(misChar.charValue());
			if (xx<0)
			    break;

			if (board.computerValid(tryWord, misChar.charValue(), xx, yy, dir)) { 
			    int pts = board.computePoints(tryWord, xx, yy, dir, false);
			    if (pts > points-10) 
				pts += board.computePotential(tryWord, xx, yy, dir);
			    if (((Boolean)almostBlanks.elementAt(idx)).booleanValue() == true)
				
				pts -= 8;
			    if (pts > points) {
				points = pts;
				finalWord = tryWord;
				word = new Vector();
				for (int ii=0; ii<tryWord.length(); ii++)
				    word.addElement(new Character(tryWord.charAt(ii)));
				cPos = dir;
				xPos = xx;
				yPos = yy;
			    }
			}
		    } else {
			String tryWord = ((String) almosts.elementAt(idx));
			Character misChar = (Character) missings.elementAt(idx);
			int xx = i;
			int yy = j - tryWord.indexOf(misChar.charValue());
			if (yy<0)
			    break;

			if (board.computerValid(tryWord, misChar.charValue(), xx, yy, dir)) {
			    int pts = board.computePoints(tryWord, xx, yy, dir, false);
			    if (pts > points-10)
				pts += board.computePotential(tryWord, xx, yy, dir);

			    if (pts > points) {
				points = pts;
				finalWord = tryWord;
				word = new Vector();
				for (int ii=0; ii<tryWord.length(); ii++)
				    word.addElement(new Character(tryWord.charAt(ii)));
				cPos = dir;
				xPos = xx;
				yPos = yy;			    
			    }
			}
		    }
		}
	    }

	// now search for fully formable words
	board.refresh();

	Vector sixes = new Vector();
	for (int i=0; i<6; i++)
	    sixes.addElement(new Vector());

	for (Enumeration e = fullyFormables.elements(); e.hasMoreElements();) {	 
	    wd = (String) e.nextElement();
	    int k;
	    if ((k = wd.length())<4)
		continue;
	    ((Vector)sixes.elementAt(k-2)).addElement(wd);
	}
	
//  	for (int i=0; i<6; i++)
//  	    for (int j=0; j<((Vector)sixes.elementAt(i)).size(); j++)
//  		System.out.print(((Vector)sixes.elementAt(i)).elementAt(j));
	
	if (skips <4)
	    for (int i=0; i<15; i++)
		for (int j=0; j<15; j++) 
		    for (int k=2; k<=7; k++) {
			if (board.placeable(i,j,k,'x')) {
			    Vector v = (Vector) sixes.elementAt(k-2);
			    for (Enumeration e=v.elements(); e.hasMoreElements();) {
				String tryWord = (String) e.nextElement();
				if (board.fullValid(tryWord, i, j, 'x')) {
				//				System.out.println(tryWord+" valid at "+i+" "+j+" dir x");
				    int pts = board.computePoints(tryWord, i, j, 'x', false);
				    if (pts > points-10)
					pts += board.computePotential(tryWord, i, j, 'x');
				    
				    if (pts > points) {
					points = pts;
					finalWord = tryWord;
					fuller = true;
					word = new Vector();
					for (int ii=0; ii<tryWord.length(); ii++)
					    word.addElement(new Character(tryWord.charAt(ii)));
					cPos = 'x';
					xPos = i;
					yPos = j;			    
				    }
				}
				
			    }
			}
			if (board.placeable(i,j,k,'y')) {
			    Vector v = (Vector) sixes.elementAt(k-2);
			    for (Enumeration e=v.elements(); e.hasMoreElements();) {
				String tryWord = (String) e.nextElement();
				if (board.fullValid(tryWord, i, j, 'y')) {
				//				System.out.println(tryWord+" valid at "+i+" "+j+" dir y");
				    int pts = board.computePoints(tryWord, i, j, 'y', false);
				    if (pts > points-4)
					pts += board.computePotential(tryWord, i, j, 'y');
				    
				    if (pts > points) {
					points = pts;
					finalWord = tryWord;
					fuller = true;
					word = new Vector();
					for (int ii=0; ii<tryWord.length(); ii++)
					    word.addElement(new Character(tryWord.charAt(ii)));
					cPos = 'y';
					xPos = i;
					yPos = j;			    
				    }
				}
				
			    }
			}
		    }
	board.refresh();
	if (points == 0 && letterBag.getSize()<7)
	    return false;
	if (points < 6 && letterBag.getSize()>=7) {
	    for (int i=0; i<7; i++)
		letters.addElement(letterBag.getLetter());
	    for (int i=0; i<7; i++) {
		letterBag.returnLetter((Letter)letters.elementAt(0));
		letters.removeElement(letters.elementAt(0));
	    }
	    Dialog dd = new Dialog ("Moistone has changed letters. Your turn.");
	    return true;
	} else {
	    Vector sword = new Vector();
	    for (Enumeration e=word.elements(); e.hasMoreElements();) {
		Character ccc = (Character) e.nextElement();
		int j;
		boolean added = false;
		for (j=0; j<letters.size(); j++) {
		    if (((Letter)letters.elementAt(j)).getValue() == ccc.charValue()) {
			sword.addElement(((Letter)letters.elementAt(j)));
			if (((Letter)letters.elementAt(j)).getLetter()==' ') {
			    Dialog ddd = new Dialog ("Moistone plays blank as 'E'");
			}
			letters.removeElement(letters.elementAt(j));
			added = true;
			break;
		    }
		}
		if (!added) 
		    sword.addElement(new Letter(ccc.charValue(), letterBag.getPoints(ccc.charValue())));
	    }
	    board.placeWord(finalWord, sword, xPos, yPos, cPos);
	    board.recordMove("computer");
	    int z = letterBag.getSize();
	    int zz = 7-letters.size();
	    z = (zz<z?zz:z);
	    for (int i=0; i<z; i++) {
		Letter ll = letterBag.getLetter();
		if (ll.getLetter() == ' ')
		    ll.setValue('E');
		letters.addElement(ll);
	    }
	    return true;
  	} 
    }
    
    public boolean play() {
//  	if (show) {
//  	    for (int i=0; i<letters.size(); i++) 
//  		System.out.print(((Letter)letters.elementAt(i)).getLetter()+" ");
//  	    System.out.println();
//  	}
	if (board.isEmpty())
	    return playNewWord();
	else {
	    return playWord();
	}
    }
    
    public boolean isFormable(String s) {
	int j;
	Vector v = (Vector) letters.clone();
	
	blankUsed = false;
	if (s.length()>7) 
	    return false;
	for (int i=0; i<s.length(); i++) {
	    char c = s.charAt(i);
	    for (j=0; j<v.size(); j++) {
		Letter l = (Letter) v.elementAt(j);
		if (l.getValue() == c) {
		    if (l.getLetter()==' ')
			blankUsed = true;
		    break;
		}
	    }
	    if (j==v.size())
		return false;
	    v.removeElement(v.elementAt(j));
	}
	return true;
    }
    
    public char isAlmostFormable(String s) {
	int j;
	char r = '0';
	int misses = s.length();
	Vector v = (Vector) letters.clone();
	boolean found;
	blankUsed = false;

	if (s.length()>8)
	    return '0';
	for (int i=0; i<s.length(); i++) {
	    char c = s.charAt(i);
	    found = false;
	    for (j=0; j<v.size(); j++) {
		Letter l = (Letter) v.elementAt(j);
		if (l.getValue() == c) {
		    misses--;
		    found = true;
		    if (l.getLetter()==' ')
			blankUsed = true;
		    v.removeElementAt(j);
		    break;
		}
	    }
//  	    if (!found) 
//  		for (j=0; j<v.size(); j++) 
//  		    if (((Letter)v.elementAt(j)).getLetter() == ' ') {
//  			misses--;
//  			found = true;
//  			v.removeElementAt(j);
//  			break;
//  		    }
	    
	    if (!found)
		r = c;
	}	
	if (misses == 1)
	    return r;
	else 
	    return '0';
    }
}