diff -r 8b653edac2a2 -r 95117607b81a hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Sep 28 00:39:20 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Fri Sep 28 00:51:04 2012 +0400
@@ -2646,11 +2646,7 @@
 
 
 procedure doStepCakeWork(Gear: PGear);
-
-const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
 var
-    xx, yy, xxn, yyn: LongInt;
-    dA: LongInt;
     tdx, tdy: hwFloat;
 begin
     AllInactive := false;
@@ -5032,8 +5028,8 @@
 A frozen hog stays frozen for a certain number of turns. Each turn the frozen overlay becomes fainter, until it fades and the hog animates normally again.
 *)
 procedure doStepIceGun(Gear: PGear);
-var 
-    HHGear, iter: PGear;
+var
+    HHGear: PGear;
     ndX, ndY: hwFloat;
     i, t, gX, gY: LongInt;
     hogs: PGearArrayS;