hedgewars/uGearsRender.pas
changeset 5935 c89d5065d956
parent 5873 4f2d8ce3732b
child 6023 a28be05b20bc
child 6138 5cd55ca715b9
equal deleted inserted replaced
5933:97c240202986 5935:c89d5065d956
   326                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
   326                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
   327             end;
   327             end;
   328         hx:= ox + 8 * sign;
   328         hx:= ox + 8 * sign;
   329         hy:= oy - 2;
   329         hy:= oy - 2;
   330         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   330         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   331         if CurAmmoGear <> nil then
   331         if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind <> gtTardis) then
   332         begin
   332         begin
   333             case CurAmmoGear^.Kind of
   333             case CurAmmoGear^.Kind of
   334                 gtShotgunShot: begin
   334                 gtShotgunShot: begin
   335                         if (CurAmmoGear^.State and gstAnimation <> 0) then
   335                         if (CurAmmoGear^.State and gstAnimation <> 0) then
   336                             DrawRotated(sprShotgun, hx, hy, sign, aangle)
   336                             DrawRotated(sprShotgun, hx, hy, sign, aangle)