hedgewars/uIO.pas
changeset 13759 f0cb47f0bfaf
parent 13506 bdac56fb6f1a
child 13797 c084bd440009
equal deleted inserted replaced
13758:a0d6404a80a2 13759:f0cb47f0bfaf
   252 close(f)
   252 close(f)
   253 {$I+}
   253 {$I+}
   254 end;
   254 end;
   255 
   255 
   256 procedure SendStat(sit: TStatInfoType; s: shortstring);
   256 procedure SendStat(sit: TStatInfoType; s: shortstring);
   257 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p');
   257 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p', 'R');
   258 var buf: shortstring;
   258 var buf: shortstring;
   259 begin
   259 begin
   260 buf:= 'i' + stc[sit] + s;
   260 buf:= 'i' + stc[sit] + s;
   261 SendIPCRaw(@buf[0], length(buf) + 1)
   261 SendIPCRaw(@buf[0], length(buf) + 1)
   262 end;
   262 end;