fiveplayerpas.pas

用于开发税务票据管理的软件

unit fiveplayerpas;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ImgList, ComCtrls, IdBaseComponent,
  IdComponent, IdUDPBase, IdUDPServer, mytype;


type


//裁判
Tfiveumpire=class
private
num:integer;//总共下了多少步;
public
qizi:array [0..16,0..16] of string[2];
qitype:array [0..1] of string[2];
imagelist:Timagelist;
qiziimage:Timage;
function canput(x,y:integer):boolean;
procedure changeputer;
end;

Tfiveplayer=class
public
umpire:Tfiveumpire;
playerme:Ruserdata;
playerenemy:Ruserdata;
qitype:string[2];
function putchess(x,y:integer):boolean;//在xy处下子；
procedure sendtext(st:string);//发聊天信息；
end;

implementation

{ fiveumpire }
//canput对x,y坐标是否能下棋作出判断
//可增加代码使之支持禁手判断。
function Tfiveumpire.canput(x, y: integer): boolean;
var
img:Timage;
tempbit:Tbitmap;
begin
if not length(qizi[x,y])>0 then
  begin
  qizi[x,y]:=qitype[num mod 2];
  //在棋盘上画棋子 x17 y407
  img.Assign(qiziimage);
  img.left:=x*22+17;
  img.top:=407-y*22;
  tempbit:=Tbitmap.Create;
  imagelist.GetBitmap(num mod 2,tempbit);
  img.Picture.Assign(tempbit);
  tempbit.Free;
  img.Visible:=true;
  inc(num);
  result:=true;
  end
else result:=false;
end;

procedure Tfiveumpire.changeputer;
begin

end;


{ Tfiveplayer }

function Tfiveplayer.putchess(x, y: integer): boolean;
var
i,j:integer;
begin
i:=(x-17) div 22;
j:=(407-y) div 22;
umpire.canput(i,j);
end;

procedure Tfiveplayer.sendtext(st: string);
begin

end;

end.