changeset 6982 | 8d41d22a291d |
parent 6898 | 344b0dbd9690 |
child 7028 | 0f60591f3a16 |
6981:045e8162c9cd | 6982:8d41d22a291d |
---|---|
39 end |
39 end |
40 end |
40 end |
41 end; |
41 end; |
42 |
42 |
43 procedure chQuit(var s: shortstring); |
43 procedure chQuit(var s: shortstring); |
44 const prevGState: TGameState = gsConfirm; |
|
45 begin |
44 begin |
46 s:= s; // avoid compiler hint |
45 s:= s; // avoid compiler hint |
47 if (GameState = gsGame) or (GameState = gsChat) then |
46 if (GameState = gsGame) or (GameState = gsChat) then |
48 begin |
47 begin |
49 prevGState:= GameState; |
48 prevGState:= GameState; |