hedgewars/uGears.pas
changeset 3281 2f3be13e1140
parent 3271 0405e07ca44b
child 3302 0973c5af5141
equal deleted inserted replaced
3280:5e21acf0c59a 3281:2f3be13e1140
  1305                 0,
  1305                 0,
  1306                 4,
  1306                 4,
  1307                 0);
  1307                 0);
  1308 
  1308 
  1309             HatVisible:= true;
  1309             HatVisible:= true;
  1310             with HH^ do
  1310             (* with HH^ do
  1311                 if (HatTex <> nil)
  1311                 if (HatTex <> nil)
  1312                 and (HatVisibility > 0) then
  1312                 and (HatVisibility > 0) then
  1313                     DrawTextureF(HatTex,
  1313                     DrawTextureF(HatTex,
  1314                         HatVisibility,
  1314                         HatVisibility,
  1315                         sx,
  1315                         sx,
  1316                         hwRound(Gear^.Y) - 8 + WorldDy,
  1316                         hwRound(Gear^.Y) - 8 + WorldDy,
  1317                         0,
  1317                         0,
  1318                         hwSign(Gear^.dX),
  1318                         hwSign(Gear^.dX),
  1319                         32,
  1319                         32,
  1320                         32);
  1320                         32); *)
  1321         end;
  1321         end;
  1322 
  1322 
  1323         case amt of
  1323         case amt of
  1324             amBaseballBat: DrawRotated(sprHandBaseball,
  1324             amBaseballBat: DrawRotated(sprHandBaseball,
  1325                     hwRound(Gear^.X) + 1 - 4 * hwSign(Gear^.dX) + WorldDx,
  1325                     hwRound(Gear^.X) + 1 - 4 * hwSign(Gear^.dX) + WorldDx,