# HG changeset patch # User unc0rr # Date 1259519421 0 # Node ID 415a75d45693f0e290128268e06d9860ad2a1013 # Parent 0e1208e92dfeee9316fe6fbcb85e8f3bd2176f46 Get rid of stupid ToggleLongInt and ToggleString functions diff -r 0e1208e92dfe -r 415a75d45693 hedgewars/uLandGraphics.pas --- a/hedgewars/uLandGraphics.pas Sun Nov 29 16:56:04 2009 +0000 +++ b/hedgewars/uLandGraphics.pas Sun Nov 29 18:30:21 2009 +0000 @@ -499,7 +499,7 @@ if c < 4 then // 0-3 neighbours begin - LandPixels[Y, X]:= ToggleLongInt(Land[Y, X] = COLOR_LAND, LandBackPixel(X, Y), 0); + if Land[Y, X] = COLOR_LAND then LandPixels[Y, X]:= LandBackPixel(X, Y) else LandPixels[Y, X]:= 0; Land[Y, X]:= 0; exit(true); end; diff -r 0e1208e92dfe -r 415a75d45693 hedgewars/uMisc.pas --- a/hedgewars/uMisc.pas Sun Nov 29 16:56:04 2009 +0000 +++ b/hedgewars/uMisc.pas Sun Nov 29 18:30:21 2009 +0000 @@ -174,9 +174,6 @@ procedure MakeScreenshot(s: shortstring); {$ENDIF} -function ToggleLongInt(t: Boolean; a, b: LongInt): LongInt; -function ToggleString(t: Boolean; a, b: string): string; - function modifyDamage(dmg: Longword): Longword; var CursorPoint: TPoint; @@ -563,24 +560,6 @@ end; -{$inline on} -function ToggleLongInt(t: Boolean; a, b: LongInt): LongInt; -begin - if t then - ToggleLongInt:= a - else - ToggleLongInt:= b; -end; - -function ToggleString(t: Boolean; a, b: string): string; -begin - if t then - ToggleString:= a - else - ToggleString:= b; -end; -{$inline off} - initialization cDrownSpeed.QWordValue:= 257698038;// 0.06 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005