hedgewars/uMisc.pas
changeset 2648 415a75d45693
parent 2647 0e1208e92dfe
child 2664 949c189ba568
--- 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