cn_mj_c_ym.rar_麻将

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "colorform.h" #include "setpaishuform.h" #include "speedform.h" #include "saveunit.h" #include "diffunit.h" #include "nameform.h" #include "aboutmj.h" #include <Registry.hpp> #include <assert.h> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { name[0]="偶自己"; name[1]="张伯姿"; name[2]="梁永琪"; name[3]="赵 薇";//姓名 0下 1左 2上 3右 paishu[0]=10; paishu[1]=15; //一条龙 0 paishu[2]=10;paishu[3]=15; //清一色 2 paishu[4]=5;paishu[5]=10; //混一色 （凑一色） 4 paishu[6]=10;paishu[7]=15; //七对 6 paishu[8]=10;paishu[9]=15; //碰碰和 8 paishu[10]=4;paishu[11]=7; //红旗飘飘 10 paishu[12]=10; //杠上开花 12 paishu[13]=1; //炮 13 paishu[14]=2; //自摸 14 paishu[15]=2; //抢杠和 15 paishu[16]=1; //发 16 paishu[17]=1; //字明刻 17 paishu[18]=2; //字暗刻 18 paishu[19]=3; //字明杠 19 paishu[20]=4; //字暗杠 20 paishu[21]=1; //明杠 21 paishu[22]=2; //暗杠 22 paishu[23]=1; //独听(砍张、边张、吊将) 23 paishu[24]=1; //门清 24 avepaishu=0; for(int i=0;i<25;i++) avepaishu+=paishu[i]; avepaishu/=25; moneyperpai=-1.0; begin =false; numofgames=0; imagetype=1; setbkcolor(); m_sound=true; imdownming1=imdownming2=imdownan1=imdownan2=NULL; Randomize(); zhuangjia=random(4); #ifndef NDEBUG gamespeed=500; #else gamespeed=1000; #endif difficult=2; downsc=leftsc=upsc=rightsc=100; clearanddrawname(); } //--------------------------------------------------------------------------- void TForm1::leftclick(int X,int Y) { int i; switch(gamestat) { case PlayerWaitForSelectBtn: i=downplayer.getindex(X,Y); if(i==102&&(playerPGflag&btPeng)) { if(laststat==LeftWaitForMo) { if(leftcom.wanttohu(false)) { gamestat=LeftWaitForHu; playerPGflag=btNo; drawbt(playerPGflag); loser=2; timer->Enabled=true; break; } if(rightcom.wanttohu(false)) { gamestat=RightWaitForHu; playerPGflag=btNo; drawbt(playerPGflag); loser=2; timer->Enabled=true; break; } } else { if(rightcom.wanttohu(false)&&laststat!=UpWaitForMo) { gamestat=RightWaitForHu; playerPGflag=btNo; drawbt(playerPGflag); loser=1; timer->Enabled=true; break; } if(upcom.wanttohu(false)) { gamestat=UpWaitForHu; playerPGflag=btNo; drawbt(playerPGflag); loser=(laststat==UpWaitForMo)?3:1; timer->Enabled=true; break; } if(leftcom.wanttohu(false)&&laststat!=PlayerWaitForChu) { gamestat=LeftWaitForHu; playerPGflag=btNo; drawbt(playerPGflag); loser=3; timer->Enabled=true; break; } } downplayer.peng(); gang=false; clearform(Rect(153,454,648,502)); downplayer.resetbegin(); downplayer.draw(imagetype); //clearmjot(); //mjot.draw(imagetype); clearform(Rect(278,120,528,400)); mjots.draw(imagetype); playerPGflag=btNo; drawbt(playerPGflag); gamestat=PlayerWaitForChu; } if(i==103&&(playerPGflag&btGang)) { if(laststat==LeftWaitForMo&&!flag_bugang) { if(leftcom.wanttohu(false)) { gamestat=LeftWaitForHu; downplayerwanttogang=true; playerPGflag=btNo; drawbt(playerPGflag); loser=2; timer->Enabled=true; break; } if(rightcom.wanttohu(false)) { gamestat=RightWaitForHu; downplayerwanttogang=true; playerPGflag=btNo; drawbt(playerPGflag); loser=2; timer->Enabled=true; break; } } else if(!flag_bugang) { if(rightcom.wanttohu(false)&&laststat!=UpWaitForMo) { gamestat=RightWaitForHu; downplayerwanttogang=true; playerPGflag=btNo; drawbt(playerPGflag); loser=1; timer->Enabled=true; break; } if(upcom.wanttohu(false)) { gamestat=UpWaitForHu; downplayerwanttogang=true; playerPGflag=btNo; drawbt(playerPGflag); loser=(laststat==UpWaitForMo)?3:1; timer->Enabled=true; break; } if(leftcom.wanttohu(false)&&laststat!=PlayerWaitForChu) { gamestat=LeftWaitForHu; downplayerwanttogang=true; playerPGflag=btNo; drawbt(playerPGflag); loser=3; timer->Enabled=true; break; } } if(!flag_bugang) downplayer.gang(); else { downplayer.bugang(); flag_bugang=false; } gang=true; playerPGflag=btNo; if(downplayer.canbugang()) { flag_bugang=true; playerPGflag=btGang; } if(downplayer.canhu(true)) { f