hedgewars/uGears.pas
changeset 2987 3abaf01b4ce3
parent 2985 d268a7fbb868
child 2989 b49d87499398
equal deleted inserted replaced
2986:c0c91cd3f423 2987:3abaf01b4ce3
  1178     else
  1178     else
  1179     if ((Gear^.State and gstAttacked) = 0) then
  1179     if ((Gear^.State and gstAttacked) = 0) then
  1180     begin
  1180     begin
  1181         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
  1181         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
  1182         case amt of
  1182         case amt of
  1183             amBazooka,
  1183 //, sprHandCake, sprHandConstruction, sprHandGrenade, sprHandMelon, sprHandMortar, sprHandSkip, sprHandCluster, sprHandDynamite, sprHandHellish, sprHandMine, sprHandSeduction, sprHandVamp
  1184             amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
  1184             amBazooka: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
       
  1185             amMortar: DrawRotated(sprHandMortar, hx, hy, hwSign(Gear^.dX), aangle);
  1185             amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);
  1186             amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);
  1186             amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
  1187             amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
  1187             amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
  1188             amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
  1188             amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
  1189             amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
  1189             amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
  1190             amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
  1190             amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
  1191             amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
  1191             amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
  1192             amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
  1192             amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
  1193             amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
       
  1194             amCake: DrawRotated(sprHandCake, hx, hy, hwSign(Gear^.dX), aangle);
       
  1195             amGrenade: DrawRotated(sprHandGrenade, hx, hy, hwSign(Gear^.dX), aangle);
       
  1196             amWatermelon: DrawRotated(sprHandMelon, hx, hy, hwSign(Gear^.dX), aangle);
       
  1197             amSkip: DrawRotated(sprHandSkip, hx, hy, hwSign(Gear^.dX), aangle);
       
  1198             amClusterBomb: DrawRotated(sprHandCluster, hx, hy, hwSign(Gear^.dX), aangle);
       
  1199             amDynamite: DrawRotated(sprHandDynamite, hx, hy, hwSign(Gear^.dX), aangle);
       
  1200             amHellishBomb: DrawRotated(sprHandHellish, hx, hy, hwSign(Gear^.dX), aangle);
       
  1201             amMine: DrawRotated(sprHandMine, hx, hy, hwSign(Gear^.dX), aangle);
       
  1202             amSeduction: DrawRotated(sprHandSeduction, hx, hy, hwSign(Gear^.dX), aangle);
       
  1203             amVampiric: DrawRotated(sprHandVamp, hx, hy, hwSign(Gear^.dX), aangle);
  1193             amRCPlane: begin
  1204             amRCPlane: begin
  1194                 DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
  1205                 DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
  1195                 defaultPos:= false
  1206                 defaultPos:= false
  1196                 end;
  1207                 end;
  1197             amGirder: begin
  1208             amGirder: begin
       
  1209                 DrawRotated(sprHandConstruction, hx, hy, hwSign(Gear^.dX), aangle);
  1198                 DrawSpriteClipped(sprGirder,
  1210                 DrawSpriteClipped(sprGirder,
  1199                                   sx-256,
  1211                                   sx-256,
  1200                                   sy-256,
  1212                                   sy-256,
  1201                                   LongInt(topY)+WorldDy,
  1213                                   LongInt(topY)+WorldDy,
  1202                                   LongInt(rightX)+WorldDx,
  1214                                   LongInt(rightX)+WorldDx,
  1203                                   cWaterLine+WorldDy,
  1215                                   cWaterLine+WorldDy,
  1204                                   LongInt(leftX)+WorldDx);
  1216                                   LongInt(leftX)+WorldDx)
  1205                 end;
  1217                 end;
  1206         end;
  1218         end;
  1207 
  1219 
  1208         case amt of
  1220         case amt of
  1209             amAirAttack,
  1221             amAirAttack,