hedgewars/uGears.pas
changeset 3713 f8778904600d
parent 3712 de2026031833
child 3717 d88719b0f0dc
equal deleted inserted replaced
3712:de2026031833 3713:f8778904600d
   518                 gear^.Timer:= 10;
   518                 gear^.Timer:= 10;
   519                 gear^.Health:= 500;
   519                 gear^.Health:= 500;
   520                 end;
   520                 end;
   521  gtPoisonCloud: begin
   521  gtPoisonCloud: begin
   522                 gear^.Timer:= 5000;
   522                 gear^.Timer:= 5000;
       
   523                 gear^.dY:= int2hwfloat((-4 + getRandom(8))) / 1000;
   523                 end;
   524                 end;
   524      end;
   525      end;
   525 InsertGearToList(gear);
   526 InsertGearToList(gear);
   526 AddGear:= gear;
   527 AddGear:= gear;
   527 
   528