hedgewars/uGearsList.pas
changeset 7001 89488f5b99ca
parent 6982 8d41d22a291d
child 7010 10a0a31804f3
equal deleted inserted replaced
7000:d22633829ac8 7001:89488f5b99ca
   282                 gear^.Radius:= 1;
   282                 gear^.Radius:= 1;
   283                 gear^.Health:= 5;
   283                 gear^.Health:= 5;
   284                 gear^.Density:= _1;
   284                 gear^.Density:= _1;
   285                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   285                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   286                     begin
   286                     begin
   287                     gear^.dY:= (getrandom - _0_8) * _0_03;
   287                     gear^.dY:= (getrandomf - _0_8) * _0_03;
   288                     gear^.dX:= (getrandom - _0_5) * _0_4
   288                     gear^.dX:= (getrandomf - _0_5) * _0_4
   289                     end
   289                     end
   290                 end;
   290                 end;
   291    gtFirePunch: begin
   291    gtFirePunch: begin
   292                 gear^.Radius:= 15;
   292                 gear^.Radius:= 15;
   293                 gear^.Tag:= Y
   293                 gear^.Tag:= Y