Fix warnings
authorunc0rr
Sun, 13 Apr 2008 12:33:16 +0000 (2008-04-13)
changeset 840 3c0028245ff3
parent 839 1493f697d1bb
child 841 0700e3d3474d
Fix warnings
hedgewars/uGears.pas
hedgewars/uLand.pas
hedgewars/uLandGraphics.pas
hedgewars/uMisc.pas
hedgewars/uStore.pas
hedgewars/uVisualGears.pas
--- a/hedgewars/uGears.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -609,7 +609,7 @@
                                 hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx,
                                 Round(hwRound(Gear^.Y) -
                                 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0,
-                                hwSign(Gear^.dX) * Gear^.Angle * 180 / cMaxAngle)
+                                hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle)
         end;
 end;
 
@@ -859,11 +859,9 @@
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);
 var t: PGearArray;
     i: LongInt;
-    hh: PHedgehog;
 begin
 t:= CheckGearsCollision(Ammo);
 i:= t^.Count;
-hh:= Ammo^.Hedgehog;
 while i > 0 do
     begin
     dec(i);
--- a/hedgewars/uLand.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uLand.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -631,7 +631,6 @@
 end;
 
 procedure UpdateLandTexture(Y, Height: LongInt);
-var i: integer;
 begin
 if LandTexture <> nil then
    begin
--- a/hedgewars/uLandGraphics.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -288,7 +288,6 @@
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;
 var X, Y, bpp, h, w: LongInt;
     p: PByteArray;
-    r, rr: TSDL_Rect;
     Image: PSDL_Surface;
 begin
 TryDo(SpritesData[Obj].Surface <> nil, 'Assert SpritesData[Obj].Surface failed', true);
--- a/hedgewars/uMisc.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uMisc.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -280,7 +280,6 @@
 
 function Surface2Tex(surf: PSDL_Surface): PTexture;
 var mode: LongInt;
-    texId: GLuint;
     tw, th: Longword;
     tmpp: pointer;
 begin
--- a/hedgewars/uStore.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -230,7 +230,6 @@
 
     procedure GetExplosionBorderColor;
     var f: textfile;
-        s1, s2: shortstring;
         c1, c2: TSDL_Color;
     begin
     s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
--- 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)