Changeset 70

Timestamp:

Feb 3, 2020, 1:24:08 AM (4 years ago)

Author:

chronos

Message:

• Added: Binary numbers tile skin.

Location:

trunk

Files:

• Languages/Game2048.cs.po (modified) (3 diffs)
• Languages/Game2048.po (modified) (2 diffs)
• UGame.pas (modified) (5 diffs)

trunk/Languages/Game2048.cs.po

@@ -242 +242 @@
 msgstr "Písmena"
 
+#: ugame.sskinbinary
+msgid "Binary"
+msgstr ""
+
 #: ugame.sskinlinear
 msgid "Linear"
@@ -251 +255 @@
 
 #: ugame.sskinroman
-msgid "Roman numerals"
+#, fuzzy
+#| msgid "Roman numerals"
+msgid "Roman"
 msgstr "Římské číslice"
 
@@ -261 +267 @@
 msgid "Top score"
 msgstr "Nejvyšší skóre"
+

trunk/Languages/Game2048.po

@@ -232 +232 @@
 msgstr ""
 
+#: ugame.sskinbinary
+msgid "Binary"
+msgstr ""
+
 #: ugame.sskinlinear
 msgid "Linear"
@@ -241 +245 @@
 
 #: ugame.sskinroman
-msgid "Roman numerals"
+msgid "Roman"
 msgstr ""
 

trunk/UGame.pas

@@ -95 +95 @@
   end;
 
-  TTileSkin = (tsLinear, tsPowerOfTwo, tsAlpha, tsRoman);
+  TTileSkin = (tsLinear, tsPowerOfTwo, tsAlpha, tsRoman, tsBinary);
 
   { TGame }
@@ -185 +185 @@
   SSkinPowerOfTwo = 'Power of two';
   SSkinAlpha = 'Alpha';
-  SSkinRoman = 'Roman numerals';
+  SSkinRoman = 'Roman';
+  SSkinBinary = 'Binary';
   STileShouldBeEmpty = 'Tile should be empty';
 
@@ -203 +204 @@
   SkinText[tsAlpha] := SSkinAlpha;
   SkinText[tsRoman] := SSkinRoman;
+  SkinText[tsBinary] := SSkinBinary;
 end;
 
@@ -1070 +1072 @@
 end;
 
+function IntToBin(Num: Integer): string;
+begin
+  Result := '';
+  while Num > 0 do begin
+    Result := IntToStr(Num mod 2) + Result;
+    Num := Num shr 1;
+  end;
+end;
+
 function TGame.GetTileSkinValue(Value: Integer): string;
 begin
@@ -1077 +1088 @@
     tsAlpha: Result := Chr(Ord('A') + Value - 1);
     tsRoman: Result := IntToStrRoman(Value);
+    tsBinary: Result := IntToBin(Value);
     else Result := IntToStr(Value);
   end;