pascal版俄罗斯方块(需要Windows单元)改.docVIP

{$APPTYPE GUI}{$MODE DELPHI}program WinPiece;usesWindows; constAppName = WinPiece;pm = 25; varflat :boolean;dc : hdc;AMessage : Msg;hWindow: HWnd;hPen ,hBrush : longword;intNextPiece, intCurPiece,intTempPiece : longint;BigMap : array [0..11,-4..20] of boolean;NextPiece,CurPiece,TempPiece : array [0..3,0..3] of boolean;isGameing : boolean;Piece : array [0..18] of longint;scoreString, levelString: string;xPos, yPos : integer;score,level : longint; //分数,关卡speed : integer; procedure TimerProc(Window:HWND;uMsg:UINT;idEvent:UINT;Time:DWORD);stdcall;FORWARD;Procedure IntToNextPiece ( );vari,j : integer;t: longint;begint:=intNextPiece;For i:=0 TO 3 DOFor j:=0 TO 3 DObeginIf (t mod 2=1) ThenNextPiece[j][i] := trueelseNextPiece[j][i] := false ; t := t div 2;end; end; Procedure IntToCurPiece ( );vari,j : integer;t : longint;begint:=intCurPiece;For i:=0 TO 3 DOFor j:=0 TO 3 DObeginIf (t mod 2=1) ThenCurPiece[j][i] := trueelseCurPiece[j][i] := false ;t := t div 2;end;end; Procedure IntToTempPiece ( );vari,j : integer;t : longint;begint:=intTempPiece;For i:=0 TO 3 DOFor j:=0 TO 3 DObeginIf (t mod 2=1) ThenTempPiece[j][i] := trueelseTempPiece[j][i] := false ;t := t div 2;end;end; Procedure DrawPiece(x,y:integer);beginSelectObject (dc,GetStockObject (NULL_PEN)) ; //选择空画笔hBrush := CreateSolidBrush (RGB(255,0,128)); //创建粉色笔刷SelectObject (dc,hBrush) ; //选择我们创建的粉色笔刷Rectangle(dc,x,y,x+pm,y+pm); //画粉色矩形DeleteObject(hBrush); //删除刚创建的粉色笔刷SelectObject (dc,GetStockObject (WHITE_PEN)) ; //选择白色画笔MoveToEx (dc, x+24,y, nil);LineTo(dc,x,y);LineTo(dc,x,y+24);hPen:=CreatePen(PS_SOLID,1, RGB(100,100,100)); //创建灰色画笔SelectObject (dc,hPen) ; //选择我们刚创建的灰色画笔LineTo(dc,x+24,y+24);LineTo(dc,x+24,y);DeleteObject(hPen); //删除我们刚创建的灰色画笔end; Procedure DrawNextMap( );vari, j : integer;beginSelectObject (dc,GetStockObject (BLACK_PEN)); //选择黑色画笔SelectObject (dc,GetStockObject (BLACK_BRUSH)); //选择黑色画笔Rectangle(dc,277,66,277+pm*4