equal
deleted
inserted
replaced
47 |
47 |
48 procedure chQuit(var s: shortstring); |
48 procedure chQuit(var s: shortstring); |
49 begin |
49 begin |
50 s:= s; // avoid compiler hint |
50 s:= s; // avoid compiler hint |
51 if (GameState = gsGame) then |
51 if (GameState = gsGame) then |
52 begin |
52 begin |
53 CloseChat; |
53 CloseChat; |
54 GameState:= gsConfirm; |
54 GameState:= gsConfirm; |
55 end |
55 end |
56 else begin |
56 else |
57 if GameState = gsConfirm then |
57 if GameState = gsConfirm then |
|
58 begin |
58 GameState:= gsGame; |
59 GameState:= gsGame; |
59 end; |
60 RestoreChat; |
60 |
61 end; |
61 updateCursorVisibility; |
62 updateCursorVisibility; |
62 end; |
63 end; |
63 |
64 |
64 procedure chForceQuit(var s: shortstring); |
65 procedure chForceQuit(var s: shortstring); |
65 begin |
66 begin |