import javax.swing.*;
import java.awt.*;
import java.awt.event.*;

public class HannoiTower extends JPanel implements MouseListener,MouseMotionListener
{
   TowerPoint point[];                                          
   int x,y;                                                     
   boolean move=false;                                         
   Disk   盤子[];                                              
   int startX,startY;                                          
   int startI ;                                                
   int 盤子數(shù)目=0;
   int width,height;                                           
   char towerName[]={'A','B','C'};                            
   TextArea 信息條=null;                                      

   public  HannoiTower(int number,int w,int h,char[] name,TextArea text)
   {
        towerName=name;
        盤子數(shù)目=number;
        width=w;
        height=h;
        信息條=text;
        setLayout(null);
        addMouseListener(this);
        addMouseMotionListener(this);
        盤子= new Disk[盤子數(shù)目];
        point=new TowerPoint[3*盤子數(shù)目];                         
         int space=20;  
        for(int i=0;i<盤子數(shù)目;i++)                               
          {
            point[i]=new TowerPoint(40+width,100+space,false); 
            space=space+height;
          }
        space=20;
        for(int i=盤子數(shù)目;i<2*盤子數(shù)目;i++)                        
          {
            point[i]=new TowerPoint(160+width,100+space,false);
            space=space+height;
          }
        space=20;
        for(int i=2*盤子數(shù)目;i<3*盤子數(shù)目;i++)                     
          {
            point[i]=new TowerPoint(280+width,100+space,false);
            space=space+height;
          }
       int tempWidth=width;                                      
       int sub=(int)(tempWidth*0.2);
       for(int i=盤子數(shù)目-1;i>=0;i--)                            
          {
             盤子[i]=new Disk(i,this);
             盤子[i].setSize(tempWidth,height);                   
             tempWidth=tempWidth-sub;
          }
        for(int i=0;i<盤子數(shù)目;i++)                             
          {
            point[i].放置盤子(盤子[i],this);
            if(i>=1)
            盤子[i].set上方有盤(true); 
          }
    }
  public void paintComponent(Graphics g)                     
   {
     super.paintComponent(g);
     g.drawLine(point[0].getX(),point[0].getY(),
                point[盤子數(shù)目-1].getX(),point[盤子數(shù)目-1].getY());     
     g.drawLine(point[盤子數(shù)目].getX(),point[盤子數(shù)目].getY(),
                point[2*盤子數(shù)目-1].getX(),point[2*盤子數(shù)目-1].getY()); 
     g.drawLine(point[2*盤子數(shù)目].getX(),point[2*盤子數(shù)目].getY(),
                point[3*盤子數(shù)目-1].getX(),point[3*盤子數(shù)目-1].getY()); 
     g.drawLine(point[盤子數(shù)目-1].getX()-width,point[盤子數(shù)目-1].getY(),
               point[3*盤子數(shù)目-1].getX()+width,point[3*盤子數(shù)目-1].getY()); 
     int leftx=point[盤子數(shù)目-1].getX()-width;
     int lefty=point[盤子數(shù)目-1].getY();
     int w=(point[3*盤子數(shù)目-1].getX()+width)-(point[盤子數(shù)目-1].getX()-width);
     int h=height/2;
     g.setColor(Color.orange);
     g.fillRect(leftx,lefty,w,h);
     
     g.setColor(Color.red);
     int size=4;
     for(int i=0;i<3*盤子數(shù)目;i++)                                    
       {
         g.fillOval(point[i].getX()-size/2,point[i].getY()-size/2,size,size);
       }
     g.drawString(""+towerName[0]+"塔",point[盤子數(shù)目-1].getX(),point[盤子數(shù)目-1].getY()+30);
     g.drawString(""+towerName[1]+"塔",point[2*盤子數(shù)目-1].getX(),point[盤子數(shù)目-1].getY()+30);
     g.drawString(""+towerName[2]+"塔",point[3*盤子數(shù)目-1].getX(),point[盤子數(shù)目-1].getY()+30);
     
     g.drawString("將全部盤子從"+towerName[0]+"塔搬運到"+towerName[1]+"塔或"+towerName[2]+"塔",
                  point[盤子數(shù)目-1].getX(),point[盤子數(shù)目-1].getY()+80);        
   } 
  public void mousePressed(MouseEvent e)
  { 
    Disk  盤子=null;
    Rectangle rect=null;
    if(e.getSource()==this)                                 
        move=false;
    if(move==false)
      if(e.getSource() instanceof Disk)
       {
         盤子=(Disk)e.getSource();                          
         startX=盤子.getBounds().x;                         
         startY=盤子.getBounds().y;     
         
          rect=盤子.getBounds();
          for(int i=0;i<3*盤子數(shù)目;i++)   
            {
               int x=point[i].getX();
               int y=point[i].getY();
                  if(rect.contains(x,y))
                   {                   
                     startI=i;                            
                     break;
                   }
            }
       }
  } 
 public void mouseMoved(MouseEvent e)
  { 
  }
 public void mouseDragged(MouseEvent e)
  {
 
    Disk disk=null;
       if(e.getSource() instanceof Disk)
         {
           disk=(Disk)e.getSource();                        
           move=true; 
           
           e=SwingUtilities.convertMouseEvent(disk,e,this); 
         }
    
       if(e.getSource()==this)
        {
          if(move&&disk!=null)
           {
            x=e.getX(); 
            y=e.getY();
            if(disk.get上方有盤()==false)
               disk.setLocation(x-disk.getWidth()/2,y-disk.getHeight()/2);
           }
        }
 }
 public void mouseReleased(MouseEvent e)
  { 
    Disk disk=null;
    move=false;
    Rectangle rect=null;
    if(e.getSource() instanceof Disk)
      {
        disk=(Disk)e.getSource();                            
        rect=disk.getBounds();
         
        e=SwingUtilities.convertMouseEvent(disk,e,this);    
      }
    if(e.getSource()==this)
     {
        boolean containTowerPoint=false;
        int x=0,y=0;
        int endI=0;
        if(disk!=null)
         { 
          for(int i=0;i<3*盤子數(shù)目;i++)
            {
                x=point[i].getX();
                y=point[i].getY();
                if(rect.contains(x,y))
                   { 
                     containTowerPoint=true;
                     endI=i;
                     break;
                  }
            }
         }
        if(disk!=null&&containTowerPoint)
         {
         
           if(point[endI].是否有盤子()==true)        
             { 
               disk.setLocation(startX,startY);                        
             } 
          else
             {
 
                if(endI==盤子數(shù)目-1||endI==2*盤子數(shù)目-1||endI==3*盤子數(shù)目-1)  
                 { 
                  point[endI].放置盤子(disk,this);                       
                  
                  if(startI!=盤子數(shù)目-1&&startI!=2*盤子數(shù)目-1&&startI!=3*盤子數(shù)目-1)
                    {
                     (point[startI+1].獲取盤子()).set上方有盤(false);
                     point[startI].set有盤子(false);     
                    }
                  else
                    {
                       point[startI].set有盤子(false);  
                    } 
                 } 
                else 
                 { 
                   if(point[endI+1].是否有盤子()==true)
                    {
                      Disk tempDisk=point[endI+1].獲取盤子();
                      if((tempDisk.getNumber()-disk.getNumber())>=1)
                       {
                        point[endI].放置盤子(disk,this);                
                         if(startI!=盤子數(shù)目-1&&startI!=2*盤子數(shù)目-1&&startI!=3*盤子數(shù)目-1)
                          {
                            (point[startI+1].獲取盤子()).set上方有盤(false);
                             point[startI].set有盤子(false); 
                             tempDisk.set上方有盤(true);   
                          }
                         else
                          {
                             point[startI].set有盤子(false); 
                             tempDisk.set上方有盤(true); 
                          } 
                       }
                      else
                       {
                         disk.setLocation(startX,startY); 
                       }
                    }
                   else
                    {
                      disk.setLocation(startX,startY);                   
                    }
                 } 
            }
        
                
        }
     if(disk!=null&&!containTowerPoint)        
        {        
          disk.setLocation(startX,startY);
        }
     } 
  }
 public void mouseEntered(MouseEvent e)
  {
  }
 public void mouseExited(MouseEvent e)
  { 
  }
 public void mouseClicked(MouseEvent e)
  { 
  }
 
 public void 自動演示搬運盤子(int 盤子數(shù),char one,char two,char three)
  {
     if(盤子數(shù)==1)
       {
         信息條.append(""+one+" 到: "+three+"塔\n");
         Disk disk=在塔中獲取最上面的盤子(one);
         int startI=在塔中獲取最上面盤子的位置(one);
         int endI=在塔中獲取最上面盤子的上方位置(three);                 
         if(disk!=null)
           {
             point[endI].放置盤子(disk,this);
             point[startI].set有盤子(false);
              try{
                  Thread.sleep(1000);                       
                 }
              catch(Exception ee)
                 {
                 }
           }
        }
      else
        {
          自動演示搬運盤子(盤子數(shù)-1,one,three,two);
	  信息條.append(""+one+" 到: "+three+"塔\n");
          Disk disk=在塔中獲取最上面的盤子(one);
          int startI=在塔中獲取最上面盤子的位置(one);
          int endI=在塔中獲取最上面盤子的上方位置(three);                 
          if(disk!=null)
            {
             point[endI].放置盤子(disk,this);
             point[startI].set有盤子(false);
             try {
                  Thread.sleep(1000);                       
                 }
              catch(Exception ee)
                 {
                 }
            } 
	  自動演示搬運盤子(盤子數(shù)-1,two,one,three);
        }
  }
 public Disk 在塔中獲取最上面的盤子(char 塔名)
  {
    Disk disk=null;
    if(塔名==towerName[0])
      {
         for(int i=0;i<盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 disk=point[i].獲取盤子();
                 break;
               }
           }  
      }
     if(塔名==towerName[1])
      {
         for(int i=盤子數(shù)目;i<2*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 disk=point[i].獲取盤子();
                 break;
               }
           }  
      }
      if(塔名==towerName[2])
      {
         for(int i=2*盤子數(shù)目;i<3*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 disk=point[i].獲取盤子();
                 break;
               }
           }  
      }
   return disk;
  } 
 public int 在塔中獲取最上面盤子的上方位置(char 塔名)
  {
    int position=0;
    if(塔名==towerName[0])
      {  
         int i=0;
         for(i=0;i<盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=Math.max(i-1,0);
                 break;
               }
           } 
         if(i==盤子數(shù)目)
           {
             position=盤子數(shù)目-1;
           } 
      }
     if(塔名==towerName[1])
      {  
          int i=0;
         for(i=盤子數(shù)目;i<2*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=Math.max(i-1,0);
                 break;
               }
           } 
          if(i==2*盤子數(shù)目)
           {
             position=2*盤子數(shù)目-1;
           }  
      }
      if(塔名==towerName[2])
      {
         int i=0;
         for(i=2*盤子數(shù)目;i<3*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=Math.max(i-1,0);
                 break;
               }
           }  
          if(i==3*盤子數(shù)目)
           {
             position=3*盤子數(shù)目-1;
           }  
      }
    return position;
  } 
  public int 在塔中獲取最上面盤子的位置(char 塔名)
  {
    int position=0;
    if(塔名==towerName[0])
      {  
         int i=0;
         for(i=0;i<盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=i;
                 break;
               }
           } 
         if(i==盤子數(shù)目)
           {
             position=盤子數(shù)目-1;
           } 
      }
     if(塔名==towerName[1])
      {  
          int i=0;
         for(i=盤子數(shù)目;i<2*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=i;
                 break;
               }
           } 
          if(i==2*盤子數(shù)目)
           {
             position=2*盤子數(shù)目-1;
           }  
      }
      if(塔名==towerName[2])
      {
         int i=0;
         for(i=2*盤子數(shù)目;i<3*盤子數(shù)目;i++)
           {
             if(point[i].是否有盤子()==true)
               {
                 position=i;
                 break;
               }
           }  
          if(i==3*盤子數(shù)目)
           {
             position=3*盤子數(shù)目-1;
           }  
      }
    return position;
  } 
}