changeset 1034 | 05f003ad3caa |
parent 1033 | 622c5de38d72 |
child 1035 | 6f5842bc481b |
--- a/hedgewars/uChat.pas Thu Jun 26 19:39:26 2008 +0000 +++ b/hedgewars/uChat.pas Fri Jun 27 17:22:15 2008 +0000 @@ -119,11 +119,11 @@ procedure AcceptChatString(s: shortstring); begin -if (s = '/rollup') and not CurrentTeam^.ExtDriven then +if (s = '/sad') and not CurrentTeam^.ExtDriven then with CurrentHedgehog^.Gear^ do begin Message:= Message or gm_Animate; - MsgParam:= Longword(sprKowtow) + MsgParam:= Longword(waveSad) end else ParseCommand('/say ' + s, true);