equal
deleted
inserted
replaced
27 {$ENDIF} |
27 {$ENDIF} |
28 CheckNoTeamOrHH:= Result |
28 CheckNoTeamOrHH:= Result |
29 end; |
29 end; |
30 //////////////////////////////////////////////////////////////////////////////// |
30 //////////////////////////////////////////////////////////////////////////////// |
31 procedure chQuit(var s: shortstring); |
31 procedure chQuit(var s: shortstring); |
32 begin |
32 const prevGState: TGameState = gsConfirm; |
33 SendIPC('Q'); |
33 begin |
34 GameState:= gsExit |
34 if GameState <> gsConfirm then |
|
35 begin |
|
36 prevGState:= GameState; |
|
37 GameState:= gsConfirm |
|
38 end else |
|
39 GameState:= prevGState |
|
40 end; |
|
41 |
|
42 procedure chConfirm(var s: shortstring); |
|
43 begin |
|
44 if GameState = gsConfirm then |
|
45 begin |
|
46 SendIPC('Q'); |
|
47 GameState:= gsExit |
|
48 end |
35 end; |
49 end; |
36 |
50 |
37 procedure chCheckProto(var s: shortstring); |
51 procedure chCheckProto(var s: shortstring); |
38 var i, c: LongInt; |
52 var i, c: LongInt; |
39 begin |
53 begin |