equal
deleted
inserted
replaced
44 if GameState = gsConfirm then |
44 if GameState = gsConfirm then |
45 begin |
45 begin |
46 SendIPC('Q'); |
46 SendIPC('Q'); |
47 GameState:= gsExit |
47 GameState:= gsExit |
48 end |
48 end |
|
49 else |
|
50 begin |
|
51 GameState:= gsChat; |
|
52 KeyPressChat(27); |
|
53 KeyPressChat(47); |
|
54 KeyPressChat(116); |
|
55 KeyPressChat(101); |
|
56 KeyPressChat(97); |
|
57 KeyPressChat(109); |
|
58 KeyPressChat(32) |
|
59 end |
49 end; |
60 end; |
50 |
61 |
51 procedure chCheckProto(var s: shortstring); |
62 procedure chCheckProto(var s: shortstring); |
52 var i, c: LongInt; |
63 var i, c: LongInt; |
53 begin |
64 begin |