474(1): 名前は開発中のものです。 [] 04/03/08 21:47 ID:gzfiLnJc(1/2) AAS
今、ポンジャンゲームをつくっています！
基本部分は以下のようなクラス構成になったんですが、
どんなもんでしょうか？

//牌クラス
type
TTile = class
private
FKind: Integer; //牌の種類
FScore: Integer; //牌の点数
public
constructor Create(Kind: Integer; Score: Integer); //牌を生成
function Kind: Integer; //牌の種類を返す
function Score: Integer; //牌の点数を返す
end;

//牌山クラス
type
TWallTile = class
private
FPosition: Integer; //次に引く牌の位置
FNumber: Integer; //牌の数
FTiles: array[0..63] of TTile; //牌のセット
public
constructor Create; //牌山を生成
destructor Destroy; override; //牌山を破棄
procedure Shuffle; //牌山を混ぜる
function Pick: TTile; //牌を引く
function Position: Integer; //次に引く牌の位置を返す
function Number: Integer; //牌の数を返す
end;

475(1): 名前は開発中のものです。 [] 04/03/08 21:49 ID:gzfiLnJc(2/2) AAS
//プレイヤークラス
type
TPlayer = class
private
FCall: Boolean; //リーチフラグ
FScore: Integer; //点数
FHand: array[0..7] of TTile; //手牌
FPicked: TTile; //引いた牌
FDiscarded: TTile; //捨てた牌
public
//procedure Pick;
//procedure Discard;
end;

//ゲームクラス
type
TGame = class
private
FScene: Integer; //シーン
FCount: Integer; //カウンター
FLeader: Integer; //親
FPlayer: array[0..1] of TPlayer; //プレイヤークラス
FWallTile: TWallTile; //牌山クラス
public
constructor Create;
destructor Destroy; override;
//procedure Dealing;
end;