--- a/hedgewars/uVisualGears.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -168,7 +168,6 @@
 
 procedure AddClouds;
 var i: LongInt;
-    dx, dy: hwFloat;
 begin
 for i:= 0 to cCloudsNumber do
     AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud)