--- a/hedgewars/GSHandlers.inc	Fri Mar 25 20:02:27 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sat Mar 26 22:49:38 2011 +0100
@@ -571,11 +571,10 @@
 end;
 
 procedure doStepSnowflake(Gear: PGear);
-var xx, yy, px, py, i: LongInt;
+var xx, yy, px, py: LongInt;
     move, draw, allpx, gun: Boolean;
     s: PSDL_Surface;
     p: PLongwordArray;
-    oAlpha, nAlpha: byte;
 begin
 gun:= (Gear^.State and gstTmpFlag) <> 0;
 move:= false;
@@ -4797,7 +4796,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepStructure(Gear: PGear);
 var 
-    i, x, y: LongInt;
+    x, y: LongInt;
     dX, dY: HWFloat;
     hog: PHedgehog;
 begin