hedgewars/uChat.pas
changeset 1821 6b6cf3389f92
parent 1819 17dac76954d1
child 2003 41b3d00949ca
--- a/hedgewars/uChat.pas	Sat Feb 21 14:40:35 2009 +0000
+++ b/hedgewars/uChat.pas	Sat Feb 21 14:43:40 2009 +0000
@@ -142,6 +142,8 @@
 			ParseCommand('/taunt ' + char(i), true);
 			exit
 			end;
+	if (s = '/newgrave') then
+	    ParseCommand('/newgrave', true);
 	end
 	else
 		ParseCommand('/say ' + s, true);
@@ -181,7 +183,7 @@
 			63235 is RIGHT
 			63233 is DOWN
 		*}
-		63272, 63232, 36233, 36234, 36235: Key:=28;
+		63272, 63232, 36233, 36234, 36235: Key:= 28;
 	else
 	if (Key < $80) then btw:= 1
 	else if (Key < $800) then btw:= 2