outtextxy(5+mop[(i-1)%24][0],30+mop[(i-1)%24][1],"B A R");
                break;
        case 4: outtextxy(5+mop[(i-1)%24][0],10+mop[(i-1)%24][1],"B A R");
                outtextxy(5+mop[(i-1)%24][0],20+mop[(i-1)%24][1],"X 2 5");
                outtextxy(5+mop[(i-1)%24][0],30+mop[(i-1)%24][1],"B A R");
                break;
        case 5: rectangle(10+mop[(i-1)%24][0],10+mop[(i-1)%24][1],40+mop[(i-1)%24][0],40+mop[(i-1)%24][1]);
                break;
        case 6: ellipse(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],0,360,20,10);
                break;
        case 7: line(10+mop[(i-1)%24][0],10+mop[(i-1)%24][1],40+mop[(i-1)%24][0],40+mop[(i-1)%24][1]);
                line(10+mop[(i-1)%24][0],40+mop[(i-1)%24][1],40+mop[(i-1)%24][0],10+mop[(i-1)%24][1]);
                break;
        case 8: line(15+mop[(i-1)%24][0],15+mop[(i-1)%24][1],35+mop[(i-1)%24][0],35+mop[(i-1)%24][1]);
                line(15+mop[(i-1)%24][0],35+mop[(i-1)%24][1],35+mop[(i-1)%24][0],15+mop[(i-1)%24][1]);
                break;
        case 9: outtextxy(10+mop[(i-1)%24][0],25+mop[(i-1)%24][1],"Lose");break;
        case 10: rectangle(10+mop[(i-1)%24][0],10+mop[(i-1)%24][1],40+mop[(i-1)%24][0],40+mop[(i-1)%24][1]);
                break;
        case 11: circle(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],10); break;
        case 12: circle(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],15); break;
        case 13: drawpoly(4, sainx2);
                 break;
        case 14:  drawpoly(8, liux1);
                 break;
        case 15: drawpoly(8, liu);
                 break;
        case 16: rectangle(10+mop[(i-1)%24][0],10+mop[(i-1)%24][1],40+mop[(i-1)%24][0],40+mop[(i-1)%24][1]);
                break;
        case 17: ellipse(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],0,360,15,5);
                break;
        case 18: ellipse(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],0,360,20,10);
                break;
        case 19: bar3d(10+mop[(i-1)%24][0],15+mop[(i-1)%24][1],30+mop[(i-1)%24][0],40+mop[(i-1)%24][1],10,1);break;
        case 20: bar3d(15+mop[(i-1)%24][0],20+mop[(i-1)%24][1],25+mop[(i-1)%24][0],35+mop[(i-1)%24][1],5,1);break;
        case 21: outtextxy(10+mop[(i-1)%24][0],25+mop[(i-1)%24][1],"Lose");break;
        case 22: rectangle(10+mop[(i-1)%24][0],10+mop[(i-1)%24][1],40+mop[(i-1)%24][0],40+mop[(i-1)%24][1]);
                 break;
        case 23: drawpoly(4, sainx1);
                 break;
      }

}
int main(void)
{
int i,j=1,k,kk,man,bj=1,i1,i2,te;
double time_1=0;


  initgr(); /* BGI初始化 */
  setbkcolor(1);

  setfillstyle(9,4);
  for(i=0;i<24;i++)
  {
    fillpoly(4,mop[i]);
    switch(i)
    {
        case 0: circle(25+mop[i][0],25+mop[i][1],15); break;
        case 1: drawpoly(4, sain);
                break;
        case 2: outtextxy(5+mop[i][0],10+mop[i][1],"B A R");
                outtextxy(5+mop[i][0],20+mop[i][1],"X 5 0");
                outtextxy(5+mop[i][0],30+mop[i][1],"B A R");
                break;
        case 3: outtextxy(5+mop[i][0],10+mop[i][1],"B A R");
                outtextxy(5+mop[i][0],20+mop[i][1],"X 100");
                outtextxy(5+mop[i][0],30+mop[i][1],"B A R");
                break;
        case 4: outtextxy(5+mop[i][0],10+mop[i][1],"B A R");
                outtextxy(5+mop[i][0],20+mop[i][1],"X 2 5");
                outtextxy(5+mop[i][0],30+mop[i][1],"B A R");
                break;
        case 5: rectangle(10+mop[i][0],10+mop[i][1],40+mop[i][0],40+mop[i][1]);
                break;
        case 6: ellipse(25+mop[i][0],25+mop[i][1],0,360,20,10);
                break;
        case 7: line(10+mop[i][0],10+mop[i][1],40+mop[i][0],40+mop[i][1]);
                line(10+mop[i][0],40+mop[i][1],40+mop[i][0],10+mop[i][1]);
                break;
        case 8: line(15+mop[i][0],15+mop[i][1],35+mop[i][0],35+mop[i][1]);
                line(15+mop[i][0],35+mop[i][1],35+mop[i][0],15+mop[i][1]);
                break;
        case 9: outtextxy(10+mop[i][0],25+mop[i][1],"Lose");break;
        case 10: rectangle(10+mop[i][0],10+mop[i][1],40+mop[i][0],40+mop[i][1]);
                break;
        case 11: circle(25+mop[i][0],25+mop[i][1],10); break;
        case 12: circle(25+mop[i][0],25+mop[i][1],15); break;
        case 13: drawpoly(4, sainx2);
                 break;
        case 14:  drawpoly(8, liux1);
                 break;
        case 15: drawpoly(8, liu);
                 break;
        case 16: rectangle(10+mop[i][0],10+mop[i][1],40+mop[i][0],40+mop[i][1]);
                break;
        case 17: ellipse(25+mop[i][0],25+mop[i][1],0,360,15,5);
                break;
        case 18: ellipse(25+mop[i][0],25+mop[i][1],0,360,20,10);
                break;
        case 19: bar3d(10+mop[i][0],15+mop[i][1],30+mop[i][0],40+mop[i][1],10,1);break;
        case 20: bar3d(15+mop[i][0],20+mop[i][1],25+mop[i][0],35+mop[i][1],5,1);break;
        case 21: outtextxy(10+mop[i][0],25+mop[i][1],"Lose");break;
        case 22: rectangle(10+mop[i][0],10+mop[i][1],40+mop[i][0],40+mop[i][1]);
                 break;
        case 23: drawpoly(4, sainx1);
                 break;

    }
  }
  for(i=0;i<8;i++)
  fillpoly(4,gj[i]);


    rectangle(385,430,415,460);
    circle(350,445,15);
    ellipse(300,445,0,360,20,10);
    drawpoly(4, sainx);
    line(185,430,215,460);
    line(185,460,215,430);
    bar3d(135,435,155,460,10,1);
    drawpoly(8, liux);
    outtextxy(35,410,xm);
    outtextxy(30,430,"B A R");
    outtextxy(30,440,"B A R");
    outtextxy(30,450,"B A R");

    while(1){
    setfillstyle(2,0);
    while(j)
    {
        switch(bioskey(0))
        {
            case 0x11b :closegraph();return 0;
            case 0x3b00 :jjj=jab(jj);bar(300,35,400,45);outtextxy(300,35,jj);break;

            case 0x3920 :

            man=zz+xx+cc+vv+bb+nn+mm+dd;
            if(bj&&man<=jjj)
            {
                jjj=jie(jj,man);
                if(jjj<0)jjj=jie(jj,-1*man);
                bar(300,35,400,45);outtextxy(300,35,jj);
            }
            else if(man>jjj&&bj)
            {
                qing();
            }
            man=zz+xx+cc+vv+bb+nn+mm+dd;
            if(man>0)j=0;
            break;

            case 0x2c7a :if(bj)qing();zz=jaja(z,jj);jjj=feng(jj);bar(35,470,80,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(35,470,z);bj=0;break;

            case 0x2d78 :if(bj)qing();xx=jaja(x,jj);jjj=feng(jj);bar(85,470,130,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(85,470,x);bj=0;break;

            case 0x2e63 :if(bj)qing();cc=jaja(c,jj);jjj=feng(jj);bar(135,470,180,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(135,470,c);bj=0;break;

            case 0x2f76 :if(bj)qing();vv=jaja(v,jj);jjj=feng(jj);bar(185,470,230,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(185,470,v);bj=0;break;

            case 0x3062 :if(bj)qing();bb=jaja(b,jj);jjj=feng(jj);bar(235,470,280,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(235,470,b);bj=0;break;

            case 0x316e :if(bj)qing();nn=jaja(n,jj);jjj=feng(jj);bar(285,470,330,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(285,470,n);bj=0;break;

            case 0x326d :if(bj)qing();mm=jaja(m,jj);jjj=feng(jj);bar(335,470,380,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(335,470,m);bj=0;break;

            case 0x332c :if(bj)qing();dd=jaja(d,jj);jjj=feng(jj);bar(385,470,430,479);
            bar(300,35,400,45);outtextxy(300,35,jj);outtextxy(385,470,d);bj=0;break;
        }
    }
     srand((unsigned)time(NULL));
     kk=100;
     i%=24;
     k=pei1(1)+72;



    while(1)
    {

      if(time_1!=(int)(biostime(0,0L)/CLK_TCK*kk))
      {
          time_1=(int)(biostime(0,0L)/CLK_TCK*kk);
          dong(i);
      i++;
      switch(k-i)
      {
          case 30:kk=10;break;
          case 3: kk=1; break;
      }
      if (i>=k)break;
      }
    }
    setfillstyle(2,0);
    switch(i%24)
    {
        case 1:ltoa(mm*10,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 2:ltoa(bb*20,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 3:ltoa(zz*50,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 4:ltoa(zz*100,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 5:ltoa(zz*25,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 6:ltoa(dd*5,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 7:ltoa(nn*15,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 8:ltoa(vv*20,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 9:ltoa(vv*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 10:break;
        case 11:ltoa(dd*5,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 12:ltoa(mm*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 13:ltoa(mm*10,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 14:ltoa(bb*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 15:ltoa(xx*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 16:ltoa(xx*40,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 17:ltoa(dd*5,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 18:ltoa(nn*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 19:ltoa(nn*15,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 20:ltoa(cc*30,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 21:ltoa(cc*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 22:break;
        case 23:ltoa(dd*5,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;
        case 0:ltoa(bb*2,fen,10);bar(150,150,300,200);outtextxy(150,150,fen);break;

    }

       jjj=df(jj,fen);
       bar(300,35,400,45);
       outtextxy(300,35,jj);
        j=1;
        bj=1;
   }


/*rectangle(60,60,90,90);
circle(125,75,15);
line(160,60,190,90);
line(160,90,190,60);
bar3d(210,65,230,90,10,1);
ellipse(275,75,0,360,20,10);
drawpoly(4, sain);
drawpoly(8, liu);*/

}