#include<stdio.h>
#include<bios.h>
#include<conio.h>
#include<dos.h>
#include<graphics.h>
#include<alloc.h>
#include<stdlib.h>
#include<time.h>

static char xm[47]={"X100   X40   X30    X20   X20   X15   X10   X5"};
static int
sain[8]={125,60,140,90,110,90,125,60},
sainx1[8]={75,115,85,135,65,135,75,115},
sainx2[8]={325,365,335,385,315,385,325,365},
sainx[8]={250,430,265,460,235,460,250,430},
liu[16]={225,360,240,385,210,385,225,360,225,390,240,365,210,365,225,390},
liux1[16]={275,365,285,380,265,380,275,365,275,385,285,370,265,370,275,385},
liux[16]={100,430,115,455,85,455,100,430,100,460,115,435,85,435,100,460},
mop[24][8]={
{50,50,100,50,100,100,50,100},
{100,50,150,50,150,100,100,100},
{150,50,200,50,200,100,150,100},
{200,50,250,50,250,100,200,100},
{250,50,300,50,300,100,250,100},
{300,50,350,50,350,100,300,100},
{350,50,400,50,400,100,350,100},

{350,100,400,100,400,150,350,150},
{350,150,400,150,400,200,350,200},
{350,200,400,200,400,250,350,250},
{350,250,400,250,400,300,350,300},
{350,300,400,300,400,350,350,350},
{350,350,400,350,400,400,350,400},

{300,350,350,350,350,400,300,400},
{250,350,300,350,300,400,250,400},
{200,350,250,350,250,400,200,400},
{150,350,200,350,200,400,150,400},
{100,350,150,350,150,400,100,400},
{50,350,100,350,100,400,50,400},
{50,300,100,300,100,350,50,350},
{50,250,100,250,100,300,50,300},
{50,200,100,200,100,250,50,250},
{50,150,100,150,100,200,50,200},
{50,100,100,100,100,150,50,150}},
gj[8][8]={
{25,420,75,420,75,465,25,465},
{75,420,125,420,125,465,75,465},
{125,420,175,420,175,465,125,465},
{175,420,225,420,225,465,175,465},
{225,420,275,420,275,465,225,465},
{275,420,325,420,325,465,275,465},
{325,420,375,420,375,465,325,465},
{375,420,425,420,425,465,375,465}};
char z[5]={"0"},x[5]={"0"},c[5]={"0"},v[5]={"0"},b[5]={"0"},n[5]={"0"},m[5]={"0"},d[5]={"0"},jj[6]={"0"},fen[10]={"0"};
int zz=0,xx=0,cc=0,vv=0,bb=0,nn=0,mm=0,dd=0,jjj=0,pei[8];
void initgr(void) 
{
  int gd = DETECT, gm = 0; 
  registerbgidriver(EGAVGA_driver);
  initgraph(&gd, &gm, "");
}

void qing()
{
            z[0]='0'; z[1]='\0';
             x[0]='0'; x[1]='\0';
             c[0]='0'; c[1]='\0';
             v[0]='0'; v[1]='\0';
             b[0]='0'; b[1]='\0';
             n[0]='0'; n[1]='\0';
             m[0]='0'; m[1]='\0';
             d[0]='0'; d[1]='\0';
            zz=feng(z);
            bar(35,470,80,479);
            outtextxy(35,470,z);

            xx=feng(x);
            bar(85,470,130,479);
            outtextxy(85,470,x);

            cc=feng(c);
            bar(135,470,180,479);
            outtextxy(135,470,c);

            vv=feng(v);
            bar(185,470,230,479);
            outtextxy(185,470,v);

            bb=feng(b);
            bar(235,470,280,479);
            outtextxy(235,470,b);

            nn=feng(n);
            bar(285,470,330,479);
            outtextxy(285,470,n);

            mm=feng(m);
            bar(335,470,380,479);
            outtextxy(335,470,m);

            dd=feng(d);
            bar(385,470,430,479);
            outtextxy(385,470,d);
}
int jaja(char *p,char *j)
{
    int ja,s;
    s=feng(p);
    ja=feng(j);
    if(ja)
    {
        s++;
        ja--;
        ltoa(s,p,10);
        ltoa(ja,j,10);
    }
    return s;
}
int jab(char *p)
{
    int s;
    s=feng(p);
    if(s<32767)
    {
        s++;
        ltoa(s,p,10);
    }
    return s;
}
int feng(char *p)
{
    int i=0,s=0;
    while(p[i]!='\0')
    {
        s*=10;
        s+=p[i]-'0';
        i++;
    }
    return s;
}
int df(char *p,char *q)
{
    ltoa(feng(p)+feng(q),p,10);
    return feng(p)+feng(q);
}

int jie(char *p,int i)
{
    ltoa(feng(p)-i,p,10);
    return feng(p)-i;
}

int pei1(int i)
{
     int k;
     k=rand()%24;
     switch(k)
     {
         case 1: if(mm>6)k=pei1(0);else if(mm&&i&&mm>1)k=pei1(0);break;
         case 2: if(bb>3)k=pei1(0);else if(bb&&i&&bb>1)k=pei1(0);break;
         case 3: if(zz>1)k=pei1(0);else if(zz&&i)k=pei1(0);break;
         case 4: if(zz>1)k=pei1(0);else if(zz&&i)k=pei1(0);break;
         case 5: if(zz>2)k=pei1(0);else if(zz&&i)k=pei1(0);break;
         case 6: if(dd>12)k=pei1(0);else if(dd&&i&&dd>1)k=pei1(0);break;
         case 7: if(nn>4)k=pei1(0);else if(nn&&i&&nn>1)k=pei1(0);break;
         case 8: if(vv>3)k=pei1(0);else if(vv&&i&&vv>1)k=pei1(0);break;
         case 11:if(dd>12)k=pei1(0);else if(dd&&i&&dd>1)k=pei1(0);break;
         case 13:if(mm>6)k=pei1(0);else if(mm&&i&&mm>1)k=pei1(0);break;
         case 16:if(xx>1)k=pei1(0);else if(xx&&i)k=pei1(0);break;
         case 17:if(dd>12)k=pei1(0);else if(dd&&i&&dd>1)k=pei1(0);break;
         case 19:if(nn>4)k=pei1(0);else if(nn&&i&&nn>1)k=pei1(0);break;
         case 20:if(cc>2)k=pei1(0);else if(cc&&i)k=pei1(0);break;
         case 23:if(dd>12)k=pei1(0);else if(dd&&i&&dd>1)k=pei1(0);break;
         default:;
     }
     return k;
}
void dong(int i)
{

      setfillstyle(2,0);
      fillpoly(4,mop[i%24]);
      switch(i%24)
      {
        case 0: circle(25+mop[i%24][0],25+mop[i%24][1],15); break;
        case 1: drawpoly(4, sain);
                break;
        case 2: outtextxy(5+mop[i%24][0],10+mop[i%24][1],"B A R");
                outtextxy(5+mop[i%24][0],20+mop[i%24][1],"X 5 0");
                outtextxy(5+mop[i%24][0],30+mop[i%24][1],"B A R");
                break;
        case 3: outtextxy(5+mop[i%24][0],10+mop[i%24][1],"B A R");
                outtextxy(5+mop[i%24][0],20+mop[i%24][1],"X 100");
                outtextxy(5+mop[i%24][0],30+mop[i%24][1],"B A R");
                break;
        case 4: outtextxy(5+mop[i%24][0],10+mop[i%24][1],"B A R");
                outtextxy(5+mop[i%24][0],20+mop[i%24][1],"X 2 5");
                outtextxy(5+mop[i%24][0],30+mop[i%24][1],"B A R");
                break;
        case 5: rectangle(10+mop[i%24][0],10+mop[i%24][1],40+mop[i%24][0],40+mop[i%24][1]);
                break;
        case 6: ellipse(25+mop[i%24][0],25+mop[i%24][1],0,360,20,10);
                break;
        case 7: line(10+mop[i%24][0],10+mop[i%24][1],40+mop[i%24][0],40+mop[i%24][1]);
                line(10+mop[i%24][0],40+mop[i%24][1],40+mop[i%24][0],10+mop[i%24][1]);
                break;
        case 8: line(15+mop[i%24][0],15+mop[i%24][1],35+mop[i%24][0],35+mop[i%24][1]);
                line(15+mop[i%24][0],35+mop[i%24][1],35+mop[i%24][0],15+mop[i%24][1]);
                break;
        case 9: outtextxy(10+mop[i%24][0],25+mop[i%24][1],"Lose");break;
        case 10: rectangle(10+mop[i%24][0],10+mop[i%24][1],40+mop[i%24][0],40+mop[i%24][1]);
                break;
        case 11: circle(25+mop[i%24][0],25+mop[i%24][1],10); break;
        case 12: circle(25+mop[i%24][0],25+mop[i%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%24][0],10+mop[i%24][1],40+mop[i%24][0],40+mop[i%24][1]);
                break;
        case 17: ellipse(25+mop[i%24][0],25+mop[i%24][1],0,360,15,5);
                break;
        case 18: ellipse(25+mop[i%24][0],25+mop[i%24][1],0,360,20,10);
                break;
        case 19: bar3d(10+mop[i%24][0],15+mop[i%24][1],30+mop[i%24][0],40+mop[i%24][1],10,1);break;
        case 20: bar3d(15+mop[i%24][0],20+mop[i%24][1],25+mop[i%24][0],35+mop[i%24][1],5,1);break;
        case 21: outtextxy(10+mop[i%24][0],25+mop[i%24][1],"Lose");break;
        case 22: rectangle(10+mop[i%24][0],10+mop[i%24][1],40+mop[i%24][0],40+mop[i%24][1]);
                 break;
        case 23: drawpoly(4, sainx1);
                 break;
      }
      setfillstyle(9,4);
      fillpoly(4,mop[(i-1)%24]);
      switch((i-1)%24)
      {
        case 0: circle(25+mop[(i-1)%24][0],25+mop[(i-1)%24][1],15); break;
        case 1: drawpoly(4, sain);
                break;
        case 2: 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 5 0");
                outtextxy(5+mop[(i-1)%24][0],30+mop[(i-1)%24][1],"B A R");
                break;
        case 3: 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 100");