equal
deleted
inserted
replaced
276 begin |
276 begin |
277 AcceptChatString(InputStr.s); |
277 AcceptChatString(InputStr.s); |
278 SetLine(InputStr, '', false) |
278 SetLine(InputStr, '', false) |
279 end; |
279 end; |
280 FreezeEnterKey; |
280 FreezeEnterKey; |
281 GameState:= gsGame |
281 SDL_EnableKeyRepeat(0,0); |
|
282 GameState:= gsGame; |
282 end; |
283 end; |
283 else |
284 else |
284 if (Key < $80) then btw:= 1 |
285 if (Key < $80) then btw:= 1 |
285 else if (Key < $800) then btw:= 2 |
286 else if (Key < $800) then btw:= 2 |
286 else if (Key < $10000) then btw:= 3 |
287 else if (Key < $10000) then btw:= 3 |
337 |
338 |
338 procedure chChat(var s: shortstring); |
339 procedure chChat(var s: shortstring); |
339 begin |
340 begin |
340 s:= s; // avoid compiler hint |
341 s:= s; // avoid compiler hint |
341 GameState:= gsChat; |
342 GameState:= gsChat; |
|
343 SDL_EnableKeyRepeat(200,45); |
342 if length(s) = 0 then |
344 if length(s) = 0 then |
343 KeyPressChat(27) |
345 KeyPressChat(27) |
344 else |
346 else |
345 begin |
347 begin |
346 KeyPressChat(27); |
348 KeyPressChat(27); |