| branch | webgl |
| changeset 9197 | e4e366013e9a |
| parent 9127 | e350500c4edb |
| parent 9178 | c0902317c823 |
| child 9521 | 8054d9d775fd |
| 9168:20ff80421736 | 9197:e4e366013e9a |
|---|---|
211 close(f) |
211 close(f) |
212 {$I+} |
212 {$I+} |
213 end; |
213 end; |
214 |
214 |
215 procedure SendStat(sit: TStatInfoType; s: shortstring); |
215 procedure SendStat(sit: TStatInfoType; s: shortstring); |
216 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B'); |
216 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p'); |
217 var buf: shortstring; |
217 var buf: shortstring; |
218 begin |
218 begin |
219 buf:= 'i' + stc[sit] + s; |
219 buf:= 'i' + stc[sit] + s; |
220 SendIPCRaw(@buf[0], length(buf) + 1) |
220 SendIPCRaw(@buf[0], length(buf) + 1) |
221 end; |
221 end; |