equal
deleted
inserted
replaced
267 begin |
267 begin |
268 InputStr.s[0]:= InputStrL[byte(InputStr.s[0])]; |
268 InputStr.s[0]:= InputStrL[byte(InputStr.s[0])]; |
269 SetLine(InputStr, InputStr.s, true) |
269 SetLine(InputStr, InputStr.s, true) |
270 end; |
270 end; |
271 {Esc} |
271 {Esc} |
272 27: SetLine(InputStr, '', true); |
272 27: if Length(InputStr.s) > 0 then SetLine(InputStr, '', true) |
|
273 else |
|
274 begin |
|
275 FreezeEnterKey; |
|
276 SDL_EnableKeyRepeat(0,0); |
|
277 GameState:= gsGame; |
|
278 end; |
273 {Return} |
279 {Return} |
274 3, 13, 271: begin |
280 3, 13, 271: begin |
275 if Length(InputStr.s) > 0 then |
281 if Length(InputStr.s) > 0 then |
276 begin |
282 begin |
277 AcceptChatString(InputStr.s); |
283 AcceptChatString(InputStr.s); |
340 begin |
346 begin |
341 s:= s; // avoid compiler hint |
347 s:= s; // avoid compiler hint |
342 GameState:= gsChat; |
348 GameState:= gsChat; |
343 SDL_EnableKeyRepeat(200,45); |
349 SDL_EnableKeyRepeat(200,45); |
344 if length(s) = 0 then |
350 if length(s) = 0 then |
345 KeyPressChat(27) |
351 SetLine(InputStr, '', true) |
346 else |
352 else |
347 begin |
353 begin |
|
354 // err, does anyone have any documentation on this sequence? |
348 KeyPressChat(27); |
355 KeyPressChat(27); |
349 KeyPressChat(47); |
356 KeyPressChat(47); |
350 KeyPressChat(116); |
357 KeyPressChat(116); |
351 KeyPressChat(101); |
358 KeyPressChat(101); |
352 KeyPressChat(97); |
359 KeyPressChat(97); |