hedgewars/uGearsList.pas
changeset 9824 136e0708eda2
parent 9809 1e32628eb167
child 9825 de0da12b7d0e
equal deleted inserted replaced
9823:31c5f7e65259 9824:136e0708eda2
   393                     gear^.dY:= (getrandomf - _0_8) * _0_03;
   393                     gear^.dY:= (getrandomf - _0_8) * _0_03;
   394                     gear^.dX:= (getrandomf - _0_5) * _0_4
   394                     gear^.dX:= (getrandomf - _0_5) * _0_4
   395                     end
   395                     end
   396                 end;
   396                 end;
   397    gtFirePunch: begin
   397    gtFirePunch: begin
       
   398                 if gear^.Timer = 0 then gear^.Timer:= 3000;
   398                 gear^.Radius:= 15;
   399                 gear^.Radius:= 15;
   399                 gear^.Tag:= Y
   400                 gear^.Tag:= Y
   400                 end;
   401                 end;
   401    gtAirAttack: gear^.Z:= cHHZ+2;
   402    gtAirAttack: gear^.Z:= cHHZ+2;
   402      gtAirBomb: begin
   403      gtAirBomb: begin