hedgewars/uGearsRender.pas
changeset 15151 6b7d92fa4912
parent 15101 eff1a080cf40
child 15188 7ae8ec7a9a8e
equal deleted inserted replaced
15150:d47122a0e4b4 15151:6b7d92fa4912
   660                     begin
   660                     begin
   661                     defaultPos:= false;
   661                     defaultPos:= false;
   662                     dec(sy,20);
   662                     dec(sy,20);
   663                     end;
   663                     end;
   664                 gtTeleport: defaultPos:= false;
   664                 gtTeleport: defaultPos:= false;
       
   665                 gtParachute:
       
   666                     begin
       
   667                     DrawSpriteRotatedF(sprHHIdle,
       
   668                             sx,
       
   669                             sy,
       
   670                             0,
       
   671                             CurAmmoGear^.Tag,
       
   672                             0);
       
   673                     HatVisible:= true;
       
   674                     defaultPos:= false;
       
   675                     end;
   665                 gtWhip:
   676                 gtWhip:
   666                     begin
   677                     begin
   667                     DrawSpriteRotatedF(sprWhip,
   678                     DrawSpriteRotatedF(sprWhip,
   668                             sx,
   679                             sx,
   669                             sy,
   680                             sy,