/*
Remake of the classic pipes game
This version by Stewart Wilcox



*/

import java.applet.*;
import java.awt.*;
import java.awt.event.*;
import java.awt.image.*;

public class pipes extends Applet implements MouseListener,MouseMotionListener,Runnable{
	public String getAppletInfo(){
		return "Pipes remake.\n"
      +"By Stewart Wilcox\n"
      +"Parameters:\n"
      +"tilesize = width in pixels of tiles (default 40)\n"
      +"watersize = width of water stream in pixels (default 6)\n"
      +"waterspeed = time (in milliseconds) for water to move 1 pixel (default 40)\n"
      +"smoothness = frames for water to move 1 pixel (default 2, increase to remove dots from water stream)\n"
      +"countdown = number of seconds before water starts flowing (default 20)\n"
      +"points = points for having water flow through a square (default 10)\n"
      +"bonus = bonus points for having water enter a square again (default 30)\n"
      +"penalty = points deducted for replacing a tile (default 1)\n"
      +"imagestem = stem name of images used to display tiles (default 'brick')";
  }

  int TILESZ;
  int WATERSZ;
  int framerate;
  int sl;
  int countdown;
  int points,bonus,penalty;
  
  final int dx[]={0,0,1,-1}; //NSEW
  final int dy[]={-1,1,0,0};

  int w,h,width,height;
  Image backim;
  Graphics backgr;
  
  tile[][] board;
  boolean[][] free;
  tile[] next;
  int nnext;
  tile blank,source;
  tile[] alltiles;
  int ntiles;

  int mx,my;
  
  Thread t=null;
  int ready=-1;
  int score;

  int wx,wy,wi,wo,wpos;

	private int param(String name,int def){
		String s=getParameter(name);
		return (s==null)?def:Integer.parseInt(s);
	}
	
  public void init(){
// get parameters
    TILESZ=param("tilesize",40);
    WATERSZ=param("watersize",6);
    sl=param("smoothness",2);
    framerate=param("waterspeed",40)/sl;
    countdown=param("countdown",20);
    points=param("points",10);
    bonus=param("bonus",30);
    penalty=param("penalty",1);
    tile.stem=getParameter("imagestem");
    if(tile.stem==null) tile.stem="brick";
// calculate field size and setup backbuffer
    width=getWidth();
    height=getHeight();
    backim=createImage(width,height);
    backgr=backim.getGraphics();
    width-=TILESZ+5;
    height-=20;
    w=width/TILESZ;
    h=height/TILESZ;
    height=h*TILESZ;
    mx=w;my=0;
    addMouseMotionListener(this);
    addMouseListener(this);

// create tiles and setup field
    blank=new brick(this,"");
    source=new brick(this,"_s");
    alltiles=new tile[9];
    ntiles=0;
    for(int j=1;j<4;++j) for(int k=0;k<j;++k) alltiles[ntiles++]=new onepipe(this,k,j);
    for(int j=1;j<4;++j) alltiles[ntiles++]=new twopipe(this,j);
    
    board=new tile[w][h];
    free=new boolean[w][h];
    next=new tile[nnext=h/2];
    startgame();
    fade();
  }
  
  void startgame(){
    for(int j=0;j<w;++j) for(int k=0;k<h;++k){
      board[j][k]=blank;
      free[j][k]=true;
    }
    wx=(int)Math.floor(Math.random()*w);
    wy=(int)Math.floor(Math.random()*(h-1))+1;
    wi=wo=0;
    wpos=TILESZ*sl/2;
    free[wx][wy]=false;
    board[wx][wy]=source;
    
    for(int j=0;j<nnext;++j) next[j]=rand();
    drawall();
    score=0;
  }
  
  tile rand(){
    return alltiles[(int)Math.floor(Math.random()*ntiles)];
  }
  
  public void start(){
    if(t==null){
      t=new Thread(this);
      t.start();
    }
  }
  public void stop(){
    ready=-1;
  }
  public void destroy(){
    ready=-1;
    t=null;
  }

//------------------------------------------------------------ load image
  Image getimage(String filename){
    Toolkit toolkit=Toolkit.getDefaultToolkit();
		Image image=getImage(getCodeBase(),filename);
		MediaTracker mediaTracker=new MediaTracker(this);
		mediaTracker.addImage(image,0);
		try{
		  mediaTracker.waitForID(0);
		}
		catch(InterruptedException ie){}
    return image;
  }

//-----------------------------------------------------  Respond to mouse input
//MouseMotionListener
  public void mouseMoved(MouseEvent e){
    if(ready<0) return;
    mx=e.getX()/TILESZ;
    my=e.getY()/TILESZ;
    if(mx<0) mx=0;  // this should never happen... right?
    if(my<0) my=0;
    e.consume();
    repaint();
  }
//MouseListener
  public void mouseDragged(MouseEvent e){
    mouseMoved(e);
  }
  public void mousePressed(MouseEvent e){}
  public void mouseEntered(MouseEvent e){}
  public void mouseExited(MouseEvent e){}
  public void mouseClicked(MouseEvent e){}
  public void mouseReleased(MouseEvent e){
    if(ready==-1){
      startgame();
      ready=countdown;
      synchronized(this){notify();}
      repaint();
      return;
    }
    if(ready<0) return;
    mx=e.getX()/TILESZ;
    my=e.getY()/TILESZ;
    if(mx<0) mx=0;  // this should never happen... right?
    if(my<0) my=0;
    e.consume();
    if(mx<w&&my<h&&free[mx][my]){
      if(board[mx][my]!=blank) score-=penalty;
      board[mx][my]=next[0];
      draw(mx,my);
      int i;
      for(i=0;i<nnext-1;++i) next[i]=next[i+1];
      next[i]=rand();
      drawnext();
    }
    repaint();
  }

//--------------------------------------------------- thread
  public void run(){
    while(true) try{
      if(ready==-1) synchronized(this){while(ready==-1) wait();}
      if(ready==0){  // flow water
        t.sleep(framerate);
        backgr.setColor(new Color(0.f,.3f+.3f*(float)Math.cos(2*Math.PI*wpos/TILESZ),1.f));
        if(wi==wo){
          if((wi&2)!=0){
            int a=wx*TILESZ+((wi==2)?wpos/sl:TILESZ-wpos/sl);
            int b=wy*TILESZ+TILESZ/2;
            backgr.drawLine(a,b+WATERSZ/2,a,b-WATERSZ/2);
          }else{
            int a=wy*TILESZ+((wi==1)?wpos/sl:TILESZ-wpos/sl);
            int b=wx*TILESZ+TILESZ/2;
            backgr.drawLine(b+WATERSZ/2,a,b-WATERSZ/2,a);
          }
        }else{
          float c=(float)Math.cos(Math.PI/2*wpos/TILESZ/sl)/2;
          float s=(float)Math.sin(Math.PI/2*wpos/TILESZ/sl)/2;
          int x0=wx*TILESZ,y0=wy*TILESZ;
          if(wi==3||wo==2) x0+=TILESZ;
          if(wi==0||wo==1) y0+=TILESZ;
          if((wi&2)!=0){
            if(wi==3) s=-s;if(wo==1) c=-c;
            backgr.drawLine(x0+(int)((TILESZ+WATERSZ+1)*s),y0+(int)((TILESZ+WATERSZ+1)*c),
              x0+(int)((TILESZ-WATERSZ+1)*s),y0+(int)((TILESZ-WATERSZ+1)*c));
          }else{
            if(wo==2) c=-c;if(wi==0) s=-s;
            backgr.drawLine(x0+(int)((TILESZ+WATERSZ)*c),y0+(int)((TILESZ+WATERSZ)*s),
              x0+(int)((TILESZ-WATERSZ+1)*c),y0+(int)((TILESZ-WATERSZ+1)*s));
          }
        }
        if(++wpos==sl*TILESZ){
          wpos=0;
          wx+=dx[wo];wy+=dy[wo];
          wi=wo;
          if(wx<0||wx>=w||wy<0||wy>=h||(wo=board[wx][wy].out(wi))==-1){
            ready=-2;
            fade();
            repaint();
            t.sleep(1000);
            ready=-1;
          }else{
            wo^=1;
            score+=free[wx][wy]?points:bonus;
            free[wx][wy]=false;
          }
        }
      }else{  // count down to water release
        t.sleep(1000);
        --ready;
      }
      repaint();
    }catch(InterruptedException e){
      System.out.println(e);
    }
  }

//--------------------------------------------------- drawing
  void fade(){
    backgr.setColor(new Color(1.f,1.f,1.f,.5f));
    backgr.fillRect(0,0,width+TILESZ+5,height);
  }
  
  void draw(Graphics g,int i,int j,tile t,boolean border){
    g.drawImage(t.pic,i*TILESZ,j*TILESZ,this);
    if(border){
      g.setColor(Color.blue);
      g.drawRect(i*TILESZ,j*TILESZ,TILESZ-1,TILESZ-1);
    }
  }
  void draw(int i,int j){draw(backgr,i,j,board[i][j],false);}
  void drawnext(){
    for(int i=0;i<nnext;++i){
      backgr.drawImage(next[i].pic,width+4,i*2*TILESZ,this);
      if(i==0){
        backgr.setColor(Color.blue);
        backgr.drawRect(width+4,i*2*TILESZ,TILESZ-1,TILESZ-1);
      }
    }
  }
  void drawall(){
    backgr.setColor(Color.white);
    backgr.fillRect(0,0,width+TILESZ+5,height+20);
    backgr.setColor(Color.red);
    backgr.drawLine(width+2,0,width+2,height);
    for(int i=0;i<w;++i) for(int j=0;j<h;++j) draw(i,j);
    drawnext();
  }
  public void update(Graphics g){
    paint(g);
  }
  public void paint(Graphics g){
    g.drawImage(backim,0,0,this);
    if(ready==-1){
      g.setColor(Color.black);
      g.drawString("Click to begin...",10,height+11);
    }else{
      if(mx<w&&my<h&&free[mx][my]) draw(g,mx,my,next[0],true);
      g.setColor(Color.black);
      if(ready>0) g.drawString("Water is on its way... "+ready,10,height+11);
    }
    g.drawString("Score: "+score,width-40,height+11);
  }
}

abstract class tile{
  abstract public int out(int in);
  Image pic;
  static String stem;
}

class brick extends tile{
  brick(pipes main,String im){
    pic=main.getimage(stem+im+".gif");
  }
  public int out(int in){return -1;}
}

class onepipe extends tile{
  int a,b;
  onepipe(pipes main,int _a,int _b){
    a=_a;
    b=_b;
    pic=main.getimage(stem+"_"+Integer.toString(a)+Integer.toString(b)+".gif");
  }
  public int out(int in){
    if(in==a) return b;
    if(in==b) return a;
    return -1;
  }
}

class twopipe extends tile{
  int a;
  twopipe(pipes main,int _a){
    a=_a;
    pic=main.getimage(stem+"_t"+Integer.toString(a)+".gif");
  }
  public int out(int in){
    return in^a;
  }
}