hedgewars/uGears.pas
changeset 3976 abaf741a4e21
parent 3963 6090d2a2472e
child 3997 6baa46aad645
child 3999 411e71912f4c
--- a/hedgewars/uGears.pas	Thu Oct 14 16:01:43 2010 +0200
+++ b/hedgewars/uGears.pas	Thu Oct 14 22:01:33 2010 +0200
@@ -534,7 +534,7 @@
                 end;
  gtPoisonCloud: begin
                 gear^.Timer:= 5000;
-                gear^.dY:= int2hwfloat((-4 + getRandom(8))) / 1000;
+                gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
                 end;
  gtResurrector: begin
                 gear^.Radius := 100;
@@ -1034,8 +1034,8 @@
     begin
     if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
         exit;
-    DrawTexture(round(sx + 16), round(sy + 16), ropeIconTex);
-    DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(sx + 30), round(sy + 30), ord(CurAmmoType) - 1, 1, 32, 32);
+    DrawTexture(round(int64(sx) + 16), round(int64(sy) + 16), ropeIconTex);
+    DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(int64(sx) + 30), round(int64(sy) + 30), ord(CurAmmoType) - 1, 1, 32, 32);
     end;
 end;