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