hedgewars/uGearsList.pas
changeset 10589 98ea597e5cd9
parent 10518 dbbe2f6c0a96
child 10625 125e120165aa
equal deleted inserted replaced
10588:6189bb1c903d 10589:98ea597e5cd9
   406        gtFlame: begin
   406        gtFlame: begin
   407                 gear^.Tag:= GetRandom(32);
   407                 gear^.Tag:= GetRandom(32);
   408                 gear^.Radius:= 1;
   408                 gear^.Radius:= 1;
   409                 gear^.Health:= 5;
   409                 gear^.Health:= 5;
   410                 gear^.Density:= _1;
   410                 gear^.Density:= _1;
       
   411                 gear^.FlightTime:= 9999999; // determines whether in-air flames do damage. disabled by default
   411                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   412                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   412                     begin
   413                     begin
   413                     gear^.dY:= (getrandomf - _0_8) * _0_03;
   414                     gear^.dY:= (getrandomf - _0_8) * _0_03;
   414                     gear^.dX:= (getrandomf - _0_5) * _0_4
   415                     gear^.dX:= (getrandomf - _0_5) * _0_4
   415                     end
   416                     end