chkmake.c

我搜集到的一个java常用类库的源代码

  {
    if(pool[sit].out_card[i][0]>=7 && pool[sit].out_card[i][0]<=9)
    {
      if(pool[sit].out_card[i][0]==7)
        num=pool[sit].out_card[i][2]%10;
      else
        num=pool[sit].out_card[i][1]%10;
      if(exist_straight(sit,num,comb) && exist_straight(sit,num+10,comb) &&
         exist_straight(sit,num+20,comb))
      {
        card_comb[comb].tai_score[26]=tai[26].score;
        goto finish26;
      }
    }
  }
  return;
  finish26:;
  if(pool[sit].num!=16)
    card_comb[comb].tai_score[26]-=1;
}

/* 一条龙 */
check_tai27(sit,comb)
char sit;
char comb;
{
  int i;

  if(exist_straight(sit,1,comb) && exist_straight(sit,4,comb) &&
     exist_straight(sit,7,comb))
    card_comb[comb].tai_score[27]=tai[27].score;
  if(exist_straight(sit,11,comb) && exist_straight(sit,14,comb) &&
     exist_straight(sit,17,comb))
    card_comb[comb].tai_score[27]=tai[27].score;
  if(exist_straight(sit,21,comb) && exist_straight(sit,24,comb) &&
     exist_straight(sit,27,comb))
    card_comb[comb].tai_score[27]=tai[27].score;
  if(card_comb[comb].tai_score[27] && pool[sit].num!=16)
    card_comb[comb].tai_score[27]-=1;
}

/* 双双龙抱 */
check_tai28(sit,comb)
char sit;
char comb;
{
}

/* 三暗刻 */
check_tai29(sit,comb)
char sit;
char comb;
{
}

/* 三杠子 */
check_tai30(sit,comb)
char sit;
char comb;
{
}

/* 三色同刻 */
check_tai31(sit,comb)
char sit,comb;
{
  int i,num;

  for(i=0;i<card_comb[comb].set_count;i++)
  {
    if(card_comb[comb].info[i][0]==2)
    {
      num=card_comb[comb].info[i][1]%10;
      if(exist_3(sit,num,comb) && exist_3(sit,num+10,comb) &&
         exist_3(sit,num+20,comb))
      {
        card_comb[comb].tai_score[31]=tai[31].score;
        goto finish31;
      }
    }
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][1]==pool[sit].out_card[i][2] &&
       pool[sit].out_card[i][1]==pool[sit].out_card[i][3])
    {
      num=pool[sit].out_card[i][1]%10;
      if(exist_3(sit,num,comb) && exist_3(sit,num+10,comb) &&
         exist_3(sit,num+20,comb))
      {
        card_comb[comb].tai_score[31]=tai[31].score;
        goto finish31;
      }
    }
  }
  finish31:;
}

/* 门清自摸 */
check_tai32(sit,comb)
char sit;
char comb;
{
  if(pool[sit].num==16 && sit==card_owner)
  {
    card_comb[comb].tai_score[32]=tai[32].score;
    card_comb[comb].tai_score[1]=0;
    card_comb[comb].tai_score[2]=0;
  }
}

/* 碰碰胡 */
check_tai33(sit,comb)
char sit;
char comb;
{
  int i;

  for(i=0;i<card_comb[comb].set_count;i++)
  {
    if(card_comb[comb].info[i][0]==1)
      goto fail33;
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][1]!=pool[sit].out_card[i][2])
    {
      goto fail33;
    }
  }
  card_comb[comb].tai_score[33]=tai[33].score;
  fail33:;
}

/* 混一色 */
check_tai34(sit,comb)
char sit;
char comb;
{
  int i,j,kind;

  card_comb[comb].tai_score[34]=tai[34].score;
  for(i=0;i<=pool[sit].num;i++)
  {
    kind=pool_buf[i]/10;
    if(kind<=2)
      goto found34;
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    kind=pool[sit].out_card[i][1]/10;
    if(kind<=2)
      goto found34;
  }
  card_comb[comb].tai_score[34]=0;
  goto fail34;
  found34:;
  for(i=1;i<=pool[sit].num;i++)
    if(kind!=pool_buf[i]/10 && pool_buf[i]/10<=2)
    {
      card_comb[comb].tai_score[34]=0;
      goto fail34;
    }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(kind!=pool[sit].out_card[i][1]/10 && pool[sit].out_card[i][1]/10<=2)
      {
        card_comb[comb].tai_score[34]=0;
        goto fail34;
      }
  }
  fail34:;
}

/* 纯带么 */
check_tai35(sit,comb)
char sit;
char comb;
{
  int i;

  for(i=0;i<card_comb[comb].set_count;i++)
  {
    if(card_comb[comb].info[i][1]>30)
      goto fail35;
    if(card_comb[comb].info[i][1]%10==1 || card_comb[comb].info[i][1]%10==9 ||
       card_comb[comb].info[i][2]%10==1 || card_comb[comb].info[i][2]%10==9 ||
       card_comb[comb].info[i][3]%10==1 || card_comb[comb].info[i][3]%10==9)
      continue;
    else
      goto fail35;
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][1]>30)
      goto fail35;
    if(pool[sit].out_card[i][1]%10==1 || pool[sit].out_card[i][1]%10==9 ||
       pool[sit].out_card[i][2]%10==1 || pool[sit].out_card[i][2]%10==9 ||
       pool[sit].out_card[i][3]%10==1 || pool[sit].out_card[i][3]%10==9)
      continue;
    else
      goto fail35;
  }
  card_comb[comb].tai_score[35]=tai[35].score;
  card_comb[comb].tai_score[25]=0;
  fail35:;
}

/* 混老头 */
check_tai36(sit,comb)
char sit;
char comb;
{
  int i,j,exist19=0;

  for(i=0;i<=pool[sit].num;i++)
  {
    if(pool_buf[i]<30)
    {
      exist19=1;
      if(pool_buf[i]%10!=1 && pool_buf[i]%10!=9)
      {
        goto fail36;
      }
    }
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][1]/10<30)   /* if 字牌 --> 检查下一组 */
    {
      exist19=1;
      if(pool[sit].out_card[i][1]%10!=1 && pool[sit].out_card[i][1]%10!=9)
        goto fail36;
      if(pool[sit].out_card[i][2]%10!=1 && pool[sit].out_card[i][2]%10!=9)
        goto fail36;
      if(pool[sit].out_card[i][3]%10!=1 && pool[sit].out_card[i][3]%10!=9)
        goto fail36;
    }
  }
  if(exist19)
  {
    card_comb[comb].tai_score[36]=tai[36].score;
    card_comb[comb].tai_score[25]=0;
    card_comb[comb].tai_score[33]=0;
  }
  fail36:;
}

/* 小三元 */
check_tai37(sit,comb)
char sit;
char comb;
{
  if(exist_card(sit,41)>=2 && exist_card(sit,42)>=2 && exist_card(sit,43)>=2)
  {
    card_comb[comb].tai_score[37]=tai[37].score;
    card_comb[comb].tai_score[13]=0;
    card_comb[comb].tai_score[14]=0;
    card_comb[comb].tai_score[15]=0;
  }
}

/* 四暗刻 */
check_tai38(sit,comb)
char sit;
char comb;
{
}

/* 四杠子 */
check_tai39(sit,comb)
char sit;
char comb;
{
  int i,kang_count=0;
 
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][0]==3 || pool[sit].out_card[i][0]==11 ||
       pool[sit].out_card[i][0]==12)
      kang_count++;
  }
  if(kang_count==3)
    card_comb[comb].tai_score[30]=tai[30].score;
  if(kang_count==4)
    card_comb[comb].tai_score[39]=tai[39].score;
}

/* 大三元 */
check_tai40(sit,comb)
char sit;
char comb;
{
  if(exist_card(sit,41)>=3 && exist_card(sit,42)>=3 && exist_card(sit,43)>=3)
  {
    card_comb[comb].tai_score[40]=tai[40].score;
    card_comb[comb].tai_score[13]=0;
    card_comb[comb].tai_score[14]=0;
    card_comb[comb].tai_score[15]=0;
    card_comb[comb].tai_score[37]=0;
  }
}

/* 小四喜 */
check_tai41(sit,comb)
char sit;
char comb;
{
  if(exist_card(sit,31)>=2 && exist_card(sit,32)>=2 && exist_card(sit,33)>=2 &&
     exist_card(sit,34)>=2)
  {
    card_comb[comb].tai_score[41]=tai[41].score;
    card_comb[comb].tai_score[9]=0;
    card_comb[comb].tai_score[10]=0;
    card_comb[comb].tai_score[11]=0;
    card_comb[comb].tai_score[12]=0;
    card_comb[comb].tai_score[17]=0;
    card_comb[comb].tai_score[18]=0;
    card_comb[comb].tai_score[19]=0;
    card_comb[comb].tai_score[20]=0;
  }
}

/* 清一色 */
check_tai42(sit,comb)
char sit;
char comb;
{
  int i,j,kind;

  card_comb[comb].tai_score[42]=tai[42].score;
  kind=pool_buf[0]/10;
  if(kind>=3)
  {
    card_comb[comb].tai_score[42]=0;
    goto fail42;
  }
  for(i=1;i<=pool[sit].num;i++)
    if(kind!=pool_buf[i]/10)
    {
      card_comb[comb].tai_score[42]=0;
      goto fail42;
    }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
      if(kind!=pool[sit].out_card[i][1]/10)
      {
        card_comb[comb].tai_score[42]=0;
        goto fail42;
      }
  }
  card_comb[comb].tai_score[34]=0;
  fail42:;
}

/* 字一色 */
check_tai43(sit,comb)
char sit;
char comb;
{
  int i,j;

  for(i=0;i<=pool[sit].num;i++)
  {
    if(!(pool_buf[i]<=34 && pool_buf[i]>=31) &&
       !(pool_buf[i]<=43 && pool_buf[i]>=41))
    {
      goto fail43;
    }
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    j=1;
    while(pool[sit].out_card[j][1])
    {
      if(!(pool[sit].out_card[j][1]<=34 && pool[sit].out_card[j][1]>=31) &&
         !(pool[sit].out_card[j][1]<=43 && pool[sit].out_card[j][1]>=41))
      {
        goto fail43;
      }
    }
  }
  card_comb[comb].tai_score[43]=tai[43].score;
  card_comb[comb].tai_score[33]=0;
  fail43:;
}

/* 七抢一 */
check_tai44(sit,comb)
char sit;
char comb;
{
}

/* 五暗刻 */
check_tai45(sit,comb,make_card)
char sit;
char comb;
char make_card;
{
  int i,three_card=0;
char msg_buf[80];

  for(i=0;i<card_comb[comb].set_count;i++)
  {
    if(card_comb[comb].info[i][0]==2)
      if(card_comb[comb].info[i][1]!=make_card || sit==card_owner)
        three_card++;       /* 自摸可算暗刻 */
  }
  for(i=0;i<pool[sit].out_card_index;i++)
    if(pool[sit].out_card[i][0]==11)
      three_card++;
  if(three_card==3)
    card_comb[comb].tai_score[29]=tai[29].score;
  if(three_card==4)
    card_comb[comb].tai_score[38]=tai[38].score;
  if(three_card==5)
  {
    card_comb[comb].tai_score[45]=tai[45].score;
    card_comb[comb].tai_score[33]=0;
  }
}

/* 清老头 */
check_tai46(sit,comb)
char sit;
char comb;
{
  int i,j;

  for(i=0;i<=pool[sit].num;i++)
  {
    if(pool_buf[i]%10!=1 && pool_buf[i]%10!=9 || pool_buf[i]>30)
    {
      goto fail46;
    }
  }
  for(i=0;i<pool[sit].out_card_index;i++)
  {
    if(pool[sit].out_card[i][1]>30)
      goto fail46;
    if(pool[sit].out_card[i][1]%10!=1 && pool[sit].out_card[i][1]%10!=9)
      goto fail46;
    if(pool[sit].out_card[i][2]%10!=1 && pool[sit].out_card[i][2]%10!=9)
      goto fail46;
    if(pool[sit].out_card[i][3]%10!=1 && pool[sit].out_card[i][3]%10!=9)
      goto fail46;
  }
  card_comb[comb].tai_score[46]=tai[46].score;
  card_comb[comb].tai_score[33]=0;
  card_comb[comb].tai_score[35]=0;
  card_comb[comb].tai_score[36]=0;
  fail46:;
}

/* 大四喜 */
check_tai47(sit,comb)
char sit;
char comb;
{
  if(exist_card(sit,31)>=3 && exist_card(sit,32)>=3 && exist_card(sit,33)>=3 &&
     exist_card(sit,34)>=3)
  {
    card_comb[comb].tai_score[47]=tai[47].score;
    card_comb[comb].tai_score[9]=0;
    card_comb[comb].tai_score[10]=0;
    card_comb[comb].tai_score[11]=0;
    card_comb[comb].tai_score[12]=0;
    card_comb[comb].tai_score[17]=0;
    card_comb[comb].tai_score[18]=0;
    card_comb[comb].tai_score[19]=0;
    card_comb[comb].tai_score[20]=0;
    card_comb[comb].tai_score[41]=0;
  }
}

/* 八仙过海 */
check_tai48(sit,comb)
char sit;
char comb;
{
}

/* 天胡 */
check_tai49(sit,comb)
char sit;
char comb;
{
  char msg_buf[80];
  if(pool[sit].first_round && sit==info.dealer)
    card_comb[comb].tai_score[49]=tai[49].score;
}

/* 地胡 */
check_tai50(sit,comb)
char sit;
char comb;
{
  if(pool[sit].first_round && sit==card_owner && sit!=info.dealer)
    card_comb[comb].tai_score[50]=tai[50].score;
}

/* 人胡 */
check_tai51(sit,comb)
char sit;
char comb;
{
  if(pool[sit].first_round && sit!=card_owner && sit!=info.dealer)
    card_comb[comb].tai_score[51]=tai[51].score;
}

/* 连庄 */
check_tai52(sit,comb)
char sit;
char comb;
{
  if(info.cont_dealer && info.dealer==sit)
    card_comb[comb].tai_score[52]=tai[52].score*info.cont_dealer;
}