equal
deleted
inserted
replaced
69 |
69 |
70 procedure chConfirm(var s: shortstring); |
70 procedure chConfirm(var s: shortstring); |
71 begin |
71 begin |
72 s:= s; // avoid compiler hint |
72 s:= s; // avoid compiler hint |
73 if GameState = gsConfirm then |
73 if GameState = gsConfirm then |
74 begin |
74 begin |
75 SendIPC(_S'Q'); |
75 SendIPC(_S'Q'); |
76 GameState:= gsExit |
76 GameState:= gsExit |
77 end |
77 end |
78 else |
78 else |
79 ParseCommand('chat team', true); |
79 ParseCommand('chat team', true); |
80 end; |
80 end; |
81 |
81 |
82 procedure chHalt (var s: shortstring); |
82 procedure chHalt (var s: shortstring); |
83 begin |
83 begin |
84 s:= s; // avoid compiler hint |
84 s:= s; // avoid compiler hint |