hedgewars/uGears.pas
changeset 3713 f8778904600d
parent 3712 de2026031833
child 3717 d88719b0f0dc
--- a/hedgewars/uGears.pas	Tue Aug 03 00:36:36 2010 +0200
+++ b/hedgewars/uGears.pas	Tue Aug 03 01:33:20 2010 +0200
@@ -520,6 +520,7 @@
                 end;
  gtPoisonCloud: begin
                 gear^.Timer:= 5000;
+                gear^.dY:= int2hwfloat((-4 + getRandom(8))) / 1000;
                 end;
      end;
 InsertGearToList(gear);