hedgewars/uGearsRender.pas
branchhedgeroid
changeset 6023 a28be05b20bc
parent 5932 5164d17b6374
parent 5935 c89d5065d956
child 6224 42b256eca362
equal deleted inserted replaced
5943:5b2b86a37089 6023:a28be05b20bc
   328                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
   328                     sign * (Gear^.Angle * 180.0) / cMaxAngle);
   329             end;
   329             end;
   330         hx:= ox + 8 * sign;
   330         hx:= ox + 8 * sign;
   331         hy:= oy - 2;
   331         hy:= oy - 2;
   332         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   332         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
   333         if CurAmmoGear <> nil then
   333         if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind <> gtTardis) then
   334         begin
   334         begin
   335             case CurAmmoGear^.Kind of
   335             case CurAmmoGear^.Kind of
   336                 gtShotgunShot: begin
   336                 gtShotgunShot: begin
   337                         if (CurAmmoGear^.State and gstAnimation <> 0) then
   337                         if (CurAmmoGear^.State and gstAnimation <> 0) then
   338                             DrawRotated(sprShotgun, hx, hy, sign, aangle)
   338                             DrawRotated(sprShotgun, hx, hy, sign, aangle)