?? huform.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "huform.h"
#include "unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Thupai *hupaiform;
//---------------------------------------------------------------------------
__fastcall Thupai::Thupai(TComponent* Owner,man &dow,man &le,man &u,man &ri,bool gskh,bool qianggang,bool zimo,
int w,int l,int mst,AnsiString *n,int *ps,int im):TForm(Owner),up(u),left(le),right(ri),down(dow)
{
qiangganghu=qianggang;
gangshangkaihua=gskh;
iszimo=zimo;
image=im;
win=w; lose=l; master=mst;
playername=n;
paishu=ps;
/*for(int i=0;i<4;i++)
playername[i]=n[i];
for(int i=0;i<25;i++)
paishu[i]=ps[i]; */
}
void Thupai::calculate(int * ret)
{
/*
10,15, //一條龍 0
10,15, //清一色 2
5,10, //混一色 （湊一色） 4
10,15, //七對 6
10,15, //碰碰和 8
4,7, //紅旗飄飄 10
10, //杠上開花 12
1, //炮 13
2, //自摸 14
2, //搶杠和 15
1, //發 16
1, //字明刻 17
2, //字暗刻 18
3, //字明杠 19
4, //字暗杠 20
1, //明杠 21
2, //暗杠 22
1, //獨聽(砍張、邊張、吊將) 23
1}; //門清 24 */
switch(win)
{
case 0:
winner=&down;
break;
case 1:
winner=&left;
break;
case 2:
winner=&up;
break;
case 3:
winner=&right;
break;
}
winner->sort();//為了畫圖
AnsiString tempstring;
tempstring="";
tempstring=(win==master)?AnsiString("(莊家)"):AnsiString("");
tempstring= AnsiString( playername[win] )+ tempstring;
if(iszimo)
Label3->Caption=tempstring+AnsiString(" 自摸\n");
else
{
tempstring=tempstring+ " 和牌 ";
tempstring=tempstring+playername[lose];
tempstring=tempstring+(lose==master?AnsiString("(莊家)"):AnsiString(""));
tempstring=tempstring+" 放炮\n";
Label3->Caption=tempstring;
assert(lose!=win);
}
Label1->Caption="牌種\n\n";
Label2->Caption="牌數\n\n";
int sum_sc=0;
bool zimodone=false; //自摸,門清,獨聽,只算一次
bool menqingdone=false;
bool dutingdone=false;
if(!iszimo)
{
Label1->Caption=Label1->Caption+"放炮 "+"\n";
Label2->Caption=Label2->Caption+paishu[13]+"\n";
sum_sc+=paishu[13];
}
if(winner->qingyise())
{ int sc=paishu[2];
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 ";
zimodone=true;
sc+=5;
}
if(winner->menqing()&&!menqingdone)
{
Label1->Caption=Label1->Caption+"門清 ";
menqingdone=true;
sc+=5;
}
if(winner->duting()&&!dutingdone)
{
Label1->Caption=Label1->Caption+"獨聽 ";
dutingdone=true;
sc+=5;
}
Label1->Caption=Label1->Caption+"清一色 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
else if(winner->hunyise())
{ int sc=paishu[4];
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 ";
zimodone=true;
sc+=5;
}
if(winner->menqing()&&!menqingdone)
{
Label1->Caption=Label1->Caption+"門清 ";
menqingdone=true;
sc+=5;
}
if(winner->duting()&&!dutingdone)
{
Label1->Caption=Label1->Caption+"獨聽 ";
dutingdone=true;
sc+=5;
}
Label1->Caption=Label1->Caption+"混一色 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
if(winner->qidui())
{ int sc=paishu[6];
int xs=winner->qidui();
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 ";
zimodone=true;
sc+=5;
}
if(getwei(xs,3)==1)
{
Label1->Caption=Label1->Caption+"瀟灑 ";
sc+=5;
}
else if(getwei(xs,3)==2)
{
Label1->Caption=Label1->Caption+"雙瀟灑 ";
sc+=10;
}
if(getwei(xs,2)==1)
{
Label1->Caption=Label1->Caption+"豪華 ";
sc+=5;
}
else if(getwei(xs,2)==1)
{
Label1->Caption=Label1->Caption+"雙豪華 ";
sc+=10;
}
Label1->Caption=Label1->Caption+"七對 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
if(winner->pengpenghu())
{ int sc=paishu[8];
int xs=winner->pengpenghu();
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 ";
zimodone=true;
sc+=5;
}
if(winner->menqing()&&!menqingdone)
{
Label1->Caption=Label1->Caption+"門清 ";
menqingdone=true;
sc+=5;
}
if(winner->duting()&&!dutingdone)
{
Label1->Caption=Label1->Caption+"獨聽 ";
dutingdone=true;
sc+=5;
}
if(xs==2)
{
Label1->Caption=Label1->Caption+"瀟灑 ";
sc+=5;
}
Label1->Caption=Label1->Caption+"碰碰和 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
if(winner->yitiaolong())
{ int sc=paishu[0];
//int xs=winner->pengpenghu();
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 ";
zimodone=true;
sc+=5;
}
if(winner->menqing()&&!menqingdone)
{
Label1->Caption=Label1->Caption+"門清 ";
menqingdone=true;
sc+=5;
}
if(winner->duting()&&!dutingdone)
{
Label1->Caption=Label1->Caption+"獨聽 ";
dutingdone=true;
sc+=5;
}
Label1->Caption=Label1->Caption+"一條龍 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
if(winner->hongqipiaopiao())
{ int ma=winner->hongqipiaopiao();
int sc;
if(ma==1)
{
sc=paishu[10];
Label1->Caption=Label1->Caption+"明 ";
}
else
{
sc=paishu[11];
Label1->Caption=Label1->Caption+"暗 ";
}
Label1->Caption=Label1->Caption+"紅旗飄飄 "+"\n";
Label2->Caption=Label2->Caption+sc+"\n";
sum_sc+=sc;
}
if(winner->menqing()&&!menqingdone)
{
Label1->Caption=Label1->Caption+"門清 "+"\n";
Label2->Caption=Label2->Caption+paishu[24]+"\n";
sum_sc+=paishu[24];
}
if(iszimo&&!zimodone)
{
Label1->Caption=Label1->Caption+"自摸 "+"\n";
Label2->Caption=Label2->Caption+paishu[14]+"\n";
sum_sc+=paishu[14];
}
if(winner->duting()&&!dutingdone)
{
Label1->Caption=Label1->Caption+"獨聽 "+"\n";
Label2->Caption=Label2->Caption+paishu[23]+"\n";
sum_sc+=paishu[23];
}
if(winner->fa())
{ int n=winner->fa();
Label1->Caption=Label1->Caption+n+"發財 "+"\n";
Label2->Caption=Label2->Caption+paishu[16]*n+"\n";
sum_sc+=paishu[16]*n;
}
if(winner->zimingke()&&!winner->hongqipiaopiao())
{ int n=winner->zimingke();
Label1->Caption=Label1->Caption+n+"字明刻 "+"\n";
Label2->Caption=Label2->Caption+paishu[17]*n+"\n";
sum_sc+=paishu[17]*n;
}
if(winner->zianke()&&!winner->hongqipiaopiao())
{ int n=winner->zianke();
Label1->Caption=Label1->Caption+n+"字暗刻 "+"\n";
Label2->Caption=Label2->Caption+paishu[18]*n+"\n";
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -