hedgewars/uGears.pas
changeset 1283 a1e99d1e4fd3
parent 1279 33cae6d1635c
child 1284 21916b5de218
equal deleted inserted replaced
1282:76533d0e76e3 1283:a1e99d1e4fd3
   950 				if ShowCrosshair and ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
   950 				if ShowCrosshair and ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
   951 					begin
   951 					begin
   952 					if ((Gear^.State and gstHHHJump) <> 0) then m:= -1 else m:= 1;
   952 					if ((Gear^.State and gstHHHJump) <> 0) then m:= -1 else m:= 1;
   953 					DrawRotatedTex(Team^.CrosshairTex,
   953 					DrawRotatedTex(Team^.CrosshairTex,
   954 							12, 12,
   954 							12, 12,
   955 							Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * m * Sin(Gear^.Angle*pi/cMaxAngle) * 60) + WorldDx,
   955 							Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * m * Sin(Gear^.Angle*pi/cMaxAngle) * 80) + WorldDx,
   956 							Round(hwRound(Gear^.Y) - Cos(Gear^.Angle*pi/cMaxAngle) * 60) + WorldDy, 0,
   956 							Round(hwRound(Gear^.Y) - Cos(Gear^.Angle*pi/cMaxAngle) * 80) + WorldDy, 0,
   957 							hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle)
   957 							hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle)
   958 					end
   958 					end
   959 			end
   959 			end
   960 	end
   960 	end
   961 end;
   961 end;