Реферат: Сетевая игра на Delphi Морской бой

public

{ Public declarations }

end;

var

Form1: TForm1;

InetAddr, InetAddrOut: SOCKADDR_IN;

sock: TSocket;

bPriem: (prnot, prinout, proutin);

Pole1: array[0..9, 0..9] of TShape;

Pole2: array[0..9, 0..9] of TShape;

bShips: byte;

bShipsPlaced: byte;

bShipsYouKilled: byte;

bShipsHeKilled: byte;

vx, vy : byte;

blVystrel: boolean;

blGameStatus: boolean;

iLocalPort: integer;

sServerAddr: string;

iServerPort: integer;

implementation

{$R *.dfm}

{Новая игра}

procedure TForm1.LoadGame();

var

i,j,h,w:integer;

begin

bShips := 7;

h:=10;