diff -r 57c2ef19f719 -r f97a7a3dc8f6 hedgewars/uLocale.pas
--- a/hedgewars/uLocale.pas	Thu Oct 05 16:33:18 2006 +0000
+++ b/hedgewars/uLocale.pas	Thu Oct 05 17:02:09 2006 +0000
@@ -1,73 +1,73 @@
-(*
- * Hedgewars, a worms-like game
- * Copyright (c) 2006 Andrey Korotaev <unC0Rr@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; version 2 of the License
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
- *)
-
-unit uLocale;
-interface
-type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun,
-                   sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
-                   sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds);
-     TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume);
-var trammo: array[TAmmoStrId] of string;
-    trmsg: array[TMsgStrId] of string;
-
-procedure LoadLocale(FileName: string);
-function Format(fmt: shortstring; var arg: shortstring): shortstring;
-
-implementation
-uses uMisc;
-
-procedure LoadLocale(FileName: string);
-var s: shortstring;
-    f: textfile;
-    a, b, c: integer;
-begin
-{$I-}
-AssignFile(f, FileName);
-reset(f);
-TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true);
-while not eof(f) do
-      begin
-      readln(f, s);
-      if Length(s) = 0 then continue;
-      if s[1] = ';' then continue;
-      TryDo(Length(s) > 6, 'Load locale: empty string', true);
-      val(s[1]+s[2], a, c);
-      TryDo(c = 0, 'Load locale: numbers should be two-digit', true);
-      TryDo(s[3] = ':', 'Load locale: ":" expected', true);
-      val(s[4]+s[5], b, c);
-      TryDo(c = 0, 'Load locale: numbers should be two-digit', true);
-      TryDo(s[6] = '=', 'Load locale: "=" expected', true);
-      Delete(s, 1, 6);
-      case a of
-           0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then trammo[TAmmoStrId(b)]:= s;
-           1: if (b >=0) and (b <= ord(High(TMsgStrId))) then trmsg[TMsgStrId(b)]:= s;
-           end;
-      end;
-closefile(f)
-{$I+}
-end;
-
-function Format(fmt: shortstring; var arg: shortstring): shortstring;
-var i: integer;
-begin
-i:= Pos('%1', fmt);
-if i = 0 then Result:= fmt
-         else Result:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
-end;
-
-end.
+(*
+ * Hedgewars, a worms-like game
+ * Copyright (c) 2006 Andrey Korotaev <unC0Rr@gmail.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; version 2 of the License
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ *)
+
+unit uLocale;
+interface
+type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun,
+                   sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
+                   sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds);
+     TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume);
+var trammo: array[TAmmoStrId] of string;
+    trmsg: array[TMsgStrId] of string;
+
+procedure LoadLocale(FileName: string);
+function Format(fmt: shortstring; var arg: shortstring): shortstring;
+
+implementation
+uses uMisc;
+
+procedure LoadLocale(FileName: string);
+var s: shortstring;
+    f: textfile;
+    a, b, c: integer;
+begin
+{$I-}
+AssignFile(f, FileName);
+reset(f);
+TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true);
+while not eof(f) do
+      begin
+      readln(f, s);
+      if Length(s) = 0 then continue;
+      if s[1] = ';' then continue;
+      TryDo(Length(s) > 6, 'Load locale: empty string', true);
+      val(s[1]+s[2], a, c);
+      TryDo(c = 0, 'Load locale: numbers should be two-digit', true);
+      TryDo(s[3] = ':', 'Load locale: ":" expected', true);
+      val(s[4]+s[5], b, c);
+      TryDo(c = 0, 'Load locale: numbers should be two-digit', true);
+      TryDo(s[6] = '=', 'Load locale: "=" expected', true);
+      Delete(s, 1, 6);
+      case a of
+           0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then trammo[TAmmoStrId(b)]:= s;
+           1: if (b >=0) and (b <= ord(High(TMsgStrId))) then trmsg[TMsgStrId(b)]:= s;
+           end;
+      end;
+closefile(f)
+{$I+}
+end;
+
+function Format(fmt: shortstring; var arg: shortstring): shortstring;
+var i: integer;
+begin
+i:= Pos('%1', fmt);
+if i = 0 then Result:= fmt
+         else Result:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
+end;
+
+end.