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

[0045 名前は開発中のものです。 04/03/16 02:21 ID:1l+q/+No]

//クライアント側
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.