// Schiebespiel Gruppe 7

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

public class Schiebespiel extends Applet {
  static final int EMPTY = -1;
  static final int A = 0;
  static final int BL= 1;
  static final int BQ= 2;
  static final int C = 3;
  static final int UP =0;
  static final int DOWN =1;
  static final int LEFT =2;
  static final int RIGHT =3;
  int yspace =35;
  int azx=4;
  int azy=5;
  int w, h;
  int[][] tile;
  int[][] starttile;
  int[][] defaulttile={{BL, C, C, BL}, 
                       {BL, C, C, BL},
                       {BQ, BQ, BQ, BQ},
                       {A, A, A, A},
                       {A, EMPTY, EMPTY, A}};
  int[] wTeil={1, 1, 2, 2};
  int[] hTeil={1, 2, 1, 2};
  Color[] Farbe={Color.blue, Color.green, Color.green, Color.red};

  int klicked=EMPTY;
  int kx0, ky0;

  public void init() {
    String param, param1, param2;
    StringTokenizer token;
    int xraster, yraster;
    int i, j, x=0, y=0, z=0;
    boolean setdefault=false;
    boolean error=false;  

    param = getParameter("xraster");
    if(param==null || param.equals("")) setdefault=true;
    else{
      azx = Integer.valueOf(param).intValue();

      param = getParameter("yraster");
      if(param==null || param.equals("")){ setdefault=true; azx=4;}
      else
        azy = Integer.valueOf(param).intValue();
        param = getParameter("steine"); 
        if(param==null || param.equals("")){ setdefault=true; azx=4; azy=5;}
    }

    w=(this.size().width-1)/azx;
    h=(this.size().height-yspace-2)/azy;
    tile = new int[azy][azx];
    for(i=0; i<azy; i++)
      for(j=0; j<azx; j++)
         tile[i][j]=EMPTY;

    if(!setdefault){
      token = new StringTokenizer(param, ",|()");
      j = token.countTokens() / 3;
      for (i = 0; i < j; i++) {
        error=false;
        param1 = token.nextToken();
        param2 = token.nextToken();
        try{
          x = Integer.valueOf(param1).intValue();
          y = Integer.valueOf(param2).intValue();
        }
        catch(NumberFormatException e1){ error=true;}
        param=token.nextToken();
        if(!error){
          if(param.equals("A")) put(x, y, A, true);
          else if(param.equals("BL")) put(x, y, BL, true);
          else if(param.equals("BQ")) put(x, y, BQ, true); 
          else if(param.equals("C")) put(x, y, C, true);
        }
      }
    }

    else{
      System.out.println("Fehler in Parameterliste, setze default-Werte !");
      for(i=0; i<azy; i++)
        for(j=0; j<azx; j++)
          tile[i][j]=defaulttile[i][j];
    }

    starttile = new int[azy][azx];   
    for(i=0; i<azy; i++)
      for(j=0; j<azx; j++)
         starttile[i][j]=tile[i][j];

    add(new Button("Reset"));   
}

void reset(){
  int i, j;

  for(i=0; i<azy; i++)
    for(j=0; j<azx; j++)
      tile[i][j]=starttile[i][j];
}

public boolean action (Event evt, Object arg) { 
  if ("Reset".equals(arg)) {
      reset(); paint(getGraphics());
      return true;
  }
  return false;
}

  public void paintTile (Graphics g, int x, int y, int number, boolean set) {
    g.setColor (Color.lightGray);
    if (set){
      g.fill3DRect (x*w+1, y*h+1+yspace, w*wTeil[number], h*hTeil[number], true);
      g.setColor(Farbe[number]);
      g.fillRect(x*w+2, y*h+2+yspace, w*wTeil[number]-2, h*hTeil[number]-2);    
    }
    else{
      g.fillRect (x*w+1, y*h+1+yspace, w*wTeil[number], h*hTeil[number]);
    }
  }

  public void paint (Graphics g) {
    int help[][];
    int i, j;
 
    g.setColor(Color.lightGray);
    g.fillRect(0, yspace, azx*w+4, azy*h+4+yspace);

    help=new int[azy][azx];

    for(i=0; i<azy; i++)
      for(j=0; j<azx; j++)
        help[i][j]=tile[i][j];

    for (int y=0; y<azy; y++){
      for (int x=0; x<azx; x++){ 
        int number=help[y][x];
        if((number!=10) && (number!=EMPTY) ){
          paintTile (g, x, y, number, true);
          for(i=0; i<hTeil[number]; i++)
            for(j=0; j<wTeil[number]; j++)
              help[y+i][x+j]=10;
          
        } 
      }
    }

    g.setColor (Color.black);
    g.drawRect (0, 0, w*azx+1, h*azy+yspace+1);
  }

  int getx0(int x, int y, int k){
    int tx=x+1;
    int h=0;

    if(wTeil[k]==1) return x;
    else{
      while((tx<azx) && (tile[y][tx]==k)){ tx++; h++;}
      if((h==0)||(h%2==0)) return x-1;
      else return x;
    } 
  }

  int gety0(int x, int y, int k){
    int ty=y+1;
    int h=0;

    if(hTeil[k]==1) return y;
    else{
      while((ty<azy) && (tile[ty][x]==k)){ ty++; h++;}
      if((h==0)||(h%2==0)) return y-1;
      else return y;
    } 
  }  

  public boolean mouseDown (Event evt, int x, int y) {
    x = x / w;
    y = (y - yspace) / h;
    if (x >= azx || y >= azy ||  y<0)
      return false;
    if(tile[y][x]==EMPTY){ klicked=EMPTY; return true;}
    else{
      klicked=tile[y][x];
      kx0=getx0(x, y, klicked);
      ky0=gety0(x, y, klicked);
    }
    return true;
  }

  boolean Teste(int x0, int y0, int kx, int ky, int r, int k){
     int i, x=0, y=0;  
     boolean free=false;
     boolean geklickt=false;

     if(r==UP) y=y0-1; 
     else if(r==DOWN) y=y0+hTeil[k];
     else if(r==LEFT) x=x0-1;
     else if(r==RIGHT) x=x0+wTeil[k];

     if((r==UP)||(r==DOWN)){
       for(i=0; i<wTeil[k]; i++){
         if((ky==y) && (kx==x0+i)) geklickt=true;
         if((y>=0) && (y<azy) && (x0+i<azx) && (tile[y][x0+i]==EMPTY)) free=true;
         else{ free=false; break;}
       }
     }
     else if((r==LEFT)||(r==RIGHT)){
       for(i=0; i<hTeil[k]; i++){
         if((ky==y0+i) && (kx==x)) geklickt=true;
         if((x>=0) && (x<azx) && (y0+i<azy) && (tile[y0+i][x]==EMPTY)) free=true;
         else{ free=false; break;}
       }
     }
     if(geklickt && free) return true;
     else return false;
  }

  void put(int x, int y, int t, boolean set){
     int i, j, k;
     boolean empty;
     
     empty=true;

     if((x>=0) && (x+wTeil[t]-1<azx) && (y>=0) && (y+hTeil[t]-1<azy)){
       for(k=0; k<2; k++){
         for(i=0; i<hTeil[t]; i++){
           for(j=0; j<wTeil[t]; j++){
             if(set && k==0 && tile[y+i][x+j]!=EMPTY) empty=false; 
             else if(set && k==1 && empty) tile[y+i][x+j]=t;
             else if(!set && k==1) tile[y+i][x+j]=EMPTY;
           }
         }
       }
       if(empty){
         Graphics g=getGraphics();
         paintTile(g, x, y, t, set);
       }
     }
  }

  void move(int x0, int y0, int r, int t){
     put(x0, y0, t, false);
     if(r==UP) put(x0, y0-1, t, true);
     else if(r==DOWN) put(x0, y0+1, t, true);
     else if(r==LEFT) put(x0-1, y0, t, true);
     else if(r==RIGHT) put(x0+1, y0, t, true);
  }

  public boolean mouseDrag (Event evt, int x, int y) {
    x=x/w; y=(y-yspace)/h;
    if((x>azx) || (y>azy) || (y<0)) return false;

    if(klicked!=EMPTY){
      Graphics g=getGraphics(); 
      g.setColor(Color.blue);
      if(Teste(kx0, ky0, x, y, UP, klicked)){
        move(kx0, ky0, UP, klicked); ky0-=1;}
      else if(Teste(kx0, ky0, x, y, DOWN, klicked)){ 
        move(kx0, ky0, DOWN, klicked); ky0+=1;}
      else if(Teste(kx0, ky0, x, y, LEFT, klicked)){ 
        move(kx0, ky0, LEFT, klicked); kx0-=1;}
     else if(Teste(kx0, ky0, x, y, RIGHT, klicked)){
        move(kx0, ky0, RIGHT, klicked); kx0+=1;}    
    }
    return true;
  }

  public String getAppletInfo() {
    return "Schiebespiel Gruppe 7";
  }
}