--- a/hedgewars/uMisc.pas	Fri Nov 06 18:59:43 2009 +0000
+++ b/hedgewars/uMisc.pas	Mon Nov 09 18:44:09 2009 +0000
@@ -164,7 +164,6 @@
 procedure FreeTexture(tex: PTexture);
 function  toPowerOf2(i: Longword): Longword;
 function DecodeBase64(s: shortstring): shortstring;
-function modulo(i: LongInt): LongInt;
 {$IFNDEF IPHONEOS}
 procedure MakeScreenshot(s: shortstring);
 {$ENDIF}
@@ -489,14 +488,6 @@
 byte(DecodeBase64[0]):= t - 1
 end;
 
-function modulo (i: LongInt): LongInt;
-var result: LongInt;
-begin
-if i < 0 then result:= -i
-else result:= i;
-exit(result);
-end;
-
 {$IFNDEF IPHONEOS}
 procedure MakeScreenshot(s: shortstring);
 const head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24);