--- a/hedgewars/CCHandlers.inc	Sat Feb 21 14:40:35 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Feb 21 14:43:40 2009 +0000
@@ -390,6 +390,15 @@
      end
 end;
 
+procedure chNewGrave;
+begin
+if CheckNoTeamOrHH then exit;
+
+if not CurrentTeam^.ExtDriven then SendIPC('g');
+
+AddGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), gtGrave, 0, _0, _0, 0)
+end;
+
 procedure doPut(putX, putY: LongInt; fromAI: boolean);
 begin
 if CheckNoTeamOrHH then exit;