hedgewars/uMisc.pas
changeset 2716 b9ca1bfca24f
parent 2715 0e4e0db79e2a
child 2726 a84fc5113d01
--- a/hedgewars/uMisc.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uMisc.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -581,7 +581,7 @@
 	cGravity                := cMaxWindSpeed;
 	cDamageModifier         := _1;
 	TargetPoint             := cTargetPointRef;
-    TextureList             := nil;
+	TextureList             := nil;
 	
 	// int, longint longword and byte
 	CursorMovementX		:= 0;
@@ -681,7 +681,6 @@
 		if IOResult = 0 then break;
 	end;
 {$ENDIF}
-
 {$I+}
 {$ENDIF}
 
@@ -689,13 +688,13 @@
 
 procedure free_uMisc;
 begin
-while TextureList <> nil do FreeTexture(TextureList);
-//uRandom.DumpBuffer;
+	//uRandom.DumpBuffer;
+	while TextureList <> nil do FreeTexture(TextureList);
 
 {$IFDEF DEBUGFILE}
-writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
-flush(f);
-close(f);
+	writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
+	flush(f);
+	close(f);
 {$ENDIF}
 end;