hedgewars/uGearsRender.pas
changeset 5137 b6140f35735f
parent 5136 948da1e50205
child 5145 120f4271f197
equal deleted inserted replaced
5136:948da1e50205 5137:b6140f35735f
   870     HHGear: PGear;
   870     HHGear: PGear;
   871     i: Longword;
   871     i: Longword;
   872     startX, endX, startY, endY: LongInt;
   872     startX, endX, startY, endY: LongInt;
   873 begin
   873 begin
   874     case Gear^.Kind of
   874     case Gear^.Kind of
   875           gtBomb: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   875           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   876       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   876       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   877        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   877        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   878        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   878        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   879 
   879 
   880        gtRCPlane: begin
   880        gtRCPlane: begin