hedgewars/uGearsUtils.pas
changeset 15248 263b9850c16d
parent 15244 32678e65b25e
child 15301 b12f63054c94
equal deleted inserted replaced
15247:eb61cf77b365 15248:263b9850c16d
   584     Scale:= abs(hwFloat2Float(Gear^.Density / _3 * speed));
   584     Scale:= abs(hwFloat2Float(Gear^.Density / _3 * speed));
   585     if Scale > 1 then Scale:= power(Scale,0.3333)
   585     if Scale > 1 then Scale:= power(Scale,0.3333)
   586     else Scale:= Scale + ((1-Scale) / 2);
   586     else Scale:= Scale + ((1-Scale) / 2);
   587     if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4))
   587     if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4))
   588     else Timer:= 1;
   588     else Timer:= 1;
   589     if Scale > 1 then Y:= Y + 10;
   589     if Scale > 1 then
       
   590         if (not isImpactH) then
       
   591             Y:= Y + 10
       
   592         else if isImpactRight then
       
   593             X:= X + 10
       
   594         else
       
   595             X:= X - 10;
   590     // Low Gravity
   596     // Low Gravity
   591     FrameTicks:= FrameTicks*Timer;
   597     FrameTicks:= FrameTicks*Timer;
   592     end;
   598     end;
   593 
   599 
   594 
   600