equal
deleted
inserted
replaced
27 end; |
27 end; |
28 //////////////////////////////////////////////////////////////////////////////// |
28 //////////////////////////////////////////////////////////////////////////////// |
29 procedure chQuit(var s: shortstring); |
29 procedure chQuit(var s: shortstring); |
30 begin |
30 begin |
31 GameState:= gsExit |
31 GameState:= gsExit |
|
32 end; |
|
33 |
|
34 procedure chCheckProto(var s: shortstring); |
|
35 var i, c: integer; |
|
36 begin |
|
37 if isDeveloperMode then |
|
38 begin |
|
39 val(s, i, c); |
|
40 if (c <> 0) or (i = 0) then exit; |
|
41 TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true); |
|
42 TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true) |
|
43 end |
32 end; |
44 end; |
33 |
45 |
34 procedure chAddTeam(var s: shortstring); |
46 procedure chAddTeam(var s: shortstring); |
35 const TeamsCount: Longword = 0; |
47 const TeamsCount: Longword = 0; |
36 begin |
48 begin |