# HG changeset patch # User nemo # Date 1243470319 0 # Node ID 7087586359553319f66fc2946bd14bc3266a0556 # Parent 8664554d5547324c69005a1fb389512db9a9193b Please don't take away my checkin privileges - Tiy asked me to keep working on this diff -r 8664554d5547 -r 708758635955 hedgewars/CCHandlers.inc --- a/hedgewars/CCHandlers.inc Wed May 27 18:13:06 2009 +0000 +++ b/hedgewars/CCHandlers.inc Thu May 28 00:25:19 2009 +0000 @@ -46,6 +46,17 @@ SendIPC('Q'); GameState:= gsExit end +else + begin + GameState:= gsChat; + KeyPressChat(27); + KeyPressChat(47); + KeyPressChat(116); + KeyPressChat(101); + KeyPressChat(97); + KeyPressChat(109); + KeyPressChat(32) + end end; procedure chCheckProto(var s: shortstring); diff -r 8664554d5547 -r 708758635955 hedgewars/uChat.pas --- a/hedgewars/uChat.pas Wed May 27 18:13:06 2009 +0000 +++ b/hedgewars/uChat.pas Thu May 28 00:25:19 2009 +0000 @@ -186,10 +186,9 @@ exit end; -if copy(s, 1, 4) = '/ts ' then +if copy(s, 1, 6) = '/team ' then begin - AddFileLog('attempting teamsay: '+s); - ParseCommand('/teamsay ' + char(LocalClan) + UserNick + ': '+copy(s, 5, Length(s)-4), true); + ParseCommand('/team ' + char(LocalClan) + UserNick + ': '+copy(s, 7, Length(s)-6), true); exit end; if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then diff -r 8664554d5547 -r 708758635955 hedgewars/uConsole.pas --- a/hedgewars/uConsole.pas Wed May 27 18:13:06 2009 +0000 +++ b/hedgewars/uConsole.pas Thu May 28 00:25:19 2009 +0000 @@ -264,7 +264,7 @@ RegisterVariable('newgrave', vtCommand, @chNewGrave , false); RegisterVariable('say' , vtCommand, @chSay , true ); RegisterVariable('hogsay' , vtCommand, @chHogSay , true ); -RegisterVariable('teamsay' , vtCommand, @chTeamSay , true ); +RegisterVariable('team' , vtCommand, @chTeamSay , true ); RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , false); RegisterVariable('+precise', vtCommand, @chPrecise_p , false); RegisterVariable('-precise', vtCommand, @chPrecise_m , false);