hedgewars/uWorld.pas
changeset 2397 2ca4ca6b4bab
parent 2379 d62b1f224982
child 2407 9f413bd5150e
equal deleted inserted replaced
2396:e13a1117152b 2397:2ca4ca6b4bab
   464 if isCursorVisible and bShowAmmoMenu then
   464 if isCursorVisible and bShowAmmoMenu then
   465    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8);
   465    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8);
   466 
   466 
   467 DrawChat;
   467 DrawChat;
   468 
   468 
       
   469 if fastUntilLag then DrawCentered(0, cScreenHeight div 2, SyncTexture);
   469 if isPaused then DrawCentered(0, cScreenHeight div 2, PauseTexture);
   470 if isPaused then DrawCentered(0, cScreenHeight div 2, PauseTexture);
   470 
   471 
   471 inc(Frames);
   472 inc(Frames);
   472 if cShowFPS then
   473 if cShowFPS then
   473    begin
   474    begin
   554 {$ENDIF}
   555 {$ENDIF}
   555 	CursorPoint.X:= CursorPoint.X - cScreenWidth div 2;
   556 	CursorPoint.X:= CursorPoint.X - cScreenWidth div 2;
   556 	CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
   557 	CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
   557 	end;
   558 	end;
   558 
   559 
   559 if (FollowGear <> nil) and (not isCursorVisible) then
   560 if (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
   560 	if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
   561 	if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
   561 		begin
   562 		begin
   562 		FollowGear:= nil;
   563 		FollowGear:= nil;
   563 		prevPoint:= CursorPoint;
   564 		prevPoint:= CursorPoint;
   564 		exit
   565 		exit