diff -r c11abf387a7d -r d5b30d6373fc hedgewars/uMisc.pas --- a/hedgewars/uMisc.pas Sat Jul 31 10:52:43 2010 +0200 +++ b/hedgewars/uMisc.pas Sat Jul 31 11:24:53 2010 +0200 @@ -70,7 +70,7 @@ TimeTrialStartTime: Longword; TimeTrialStopTime : Longword; - + // init flags cScreenWidth : LongInt = 1024; cScreenHeight : LongInt = 768; @@ -89,7 +89,7 @@ cReducedQuality : LongInt = rqNone; //userNick is in uChat recordFileName : shortstring = ''; - + cCaseFactor : Longword; cLandAdditions : Longword; cExplosives : Longword; @@ -518,11 +518,11 @@ begin if tex <> nil then begin - if tex^.NextTexture <> nil then + if tex^.NextTexture <> nil then tex^.NextTexture^.PrevTexture:= tex^.PrevTexture; - if tex^.PrevTexture <> nil then + if tex^.PrevTexture <> nil then tex^.PrevTexture^.NextTexture:= tex^.NextTexture - else + else TextureList:= tex^.NextTexture; glDeleteTextures(1, @tex^.id); Dispose(tex); @@ -682,7 +682,7 @@ cDamageModifier := _1; TargetPoint := cTargetPointRef; TextureList := nil; - + // int, longint longword and byte CursorMovementX := 0; CursorMovementY := 0; @@ -719,7 +719,7 @@ cCaseFactor := 5; {0..9} cLandAdditions := 4; cExplosives := 2; - + GameState := Low(TGameState); GameType := gmtLocal; zoom := cDefaultZoomLevel; @@ -746,10 +746,10 @@ cInactDelay := 1250; ScreenFade := sfNone; - + {$IFDEF SDL13} SDLwindow := nil; -{$ENDIF} +{$ENDIF} {$IFDEF DEBUGFILE} {$I-} {$IFDEF IPHONEOS}