hedgewars/uGears.pas
changeset 861 9588286683be
parent 857 43912f139db1
child 862 7c82903753a4
equal deleted inserted replaced
860:6d062357d196 861:9588286683be
   489 if (Gear^.State and gstHHDriven) <> 0 then
   489 if (Gear^.State and gstHHDriven) <> 0 then
   490 begin
   490 begin
   491 	if CurAmmoGear <> nil then
   491 	if CurAmmoGear <> nil then
   492 	begin
   492 	begin
   493 		case CurAmmoGear^.Kind of
   493 		case CurAmmoGear^.Kind of
   494 			 gtRope: begin
   494 			gtShotgunShot: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
       
   495 			gtRope: begin
   495 				DrawHedgehog(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
   496 				DrawHedgehog(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,
   496 						1,
   497 						1,
   497 						1,
   498 						1,
   498 						0,
   499 						0,
   499 						DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) - 110);
   500 						DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) - 110);