# HG changeset patch
# User unc0rr
# Date 1231671789 0
# Node ID 177b440773de3bbc27eca4e43809b2eff01c7369
# Parent  70d9945ae4f99510df1992f7ff3ecc2096540e71
Disable visual gears when quick replaying

diff -r 70d9945ae4f9 -r 177b440773de hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Sun Jan 11 10:22:41 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Jan 11 11:03:09 2009 +0000
@@ -164,6 +164,13 @@
 	t: Longword;
 	sp: hwFloat;
 begin
+if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we're scrolling now
+	if Kind <> vgtCloud then
+		begin
+		AddVisualGear:= nil;
+		exit
+		end;
+
 New(Result);
 FillChar(Result^, sizeof(TVisualGear), 0);
 Result^.X:= int2hwFloat(X);