ネットワークゲーム作成のお勉強（Delphi専用スレ）

ネットワークゲーム作 ..

45:名前は開発中のものです。
04/03/16 02:21 1l+q/+No.net
//クライアント側
procedure buttonpa.click;
begin
clientsocket.socket.sendtext(NAME+'パー　');
end;
//同様に続いてチョキ・グーもつくる
procedure clientsocket.read;
begin
Label := clientsocket.socket.recievtext;
ned;
end.
//サーバー側
procedure serversocket.clientread;
begin
r := serversocket.socket.recievtext;
if p1 <> '' then begin p2 := copy(r,length(r)-5,6); n1 := copy(r,0,length(r) - 6); end;
p1 := copy(r,length(r)-5,6);
n1 := copy(r,0,length(r) - 6);
if (p1 <> '') and (p2 <> '') then begin
if p1 = p2 then serversocket.socket.sendtext(P1+P2+'であいこ');
if (p1='パー　') and (p2='グー　') then serversocket.socket.sendtext(P1P2+'で'+n1+'の勝ち');
//以下省略
end;
end.

次ページ