hedgewars/uGearsHandlersMess.pas
changeset 15180 061a3085d6d8
parent 15179 cd38295cac16
child 15181 d13a38548112
equal deleted inserted replaced
15179:cd38295cac16 15180:061a3085d6d8
  2704     sticky: Boolean;
  2704     sticky: Boolean;
  2705     vgt: PVisualGear;
  2705     vgt: PVisualGear;
  2706     tdX,tdY, f: HWFloat;
  2706     tdX,tdY, f: HWFloat;
  2707     landPixel: Word;
  2707     landPixel: Word;
  2708 begin
  2708 begin
  2709     WorldWrap(Gear);
  2709     // don't bounce
       
  2710     if WorldEdge <> weBounce then
       
  2711         WorldWrap(Gear);
  2710     if Gear^.FlightTime > 0 then dec(Gear^.FlightTime);
  2712     if Gear^.FlightTime > 0 then dec(Gear^.FlightTime);
  2711     // There are 2 flame types: normal and sticky
  2713     // There are 2 flame types: normal and sticky
  2712     sticky:= (Gear^.State and gsttmpFlag) <> 0;
  2714     sticky:= (Gear^.State and gsttmpFlag) <> 0;
  2713     if not sticky then AllInactive := false;
  2715     if not sticky then AllInactive := false;
  2714 
  2716