hedgewars/uGears.pas
changeset 2186 5ec3e4a03d51
parent 2182 ed7e7eb3f9ed
child 2204 526f8165acce
equal deleted inserted replaced
2185:cf8f98e75bf9 2186:5ec3e4a03d51
  1163 				hwSign(Gear^.dX)*m,
  1163 				hwSign(Gear^.dX)*m,
  1164 				32);
  1164 				32);
  1165 	end;
  1165 	end;
  1166 if (Gear^.State and gstHHDriven) <> 0 then
  1166 if (Gear^.State and gstHHDriven) <> 0 then
  1167     begin
  1167     begin
  1168     if (CurAmmoGear = nil) then
  1168 (*    if (CurAmmoGear = nil) then
  1169         begin
  1169         begin
  1170         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
  1170         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
  1171         case amt of
  1171         case amt of
  1172             amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0);
  1172             amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0);
  1173             end
  1173             end
  1174         end;
  1174         end; *)
  1175     if CurAmmoGear <> nil then
  1175     if CurAmmoGear <> nil then
  1176         begin
  1176         begin
  1177         case CurAmmoGear^.Kind of
  1177         case CurAmmoGear^.Kind of
  1178             gtJetpack: begin
  1178             gtJetpack: begin
  1179 	                   DrawSprite(sprJetpack, sx-32, sy-32, 0);
  1179 	                   DrawSprite(sprJetpack, sx-32, sy-32, 0);