hedgewars/uChat.pas
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);