Changeset 70 for trunk/UGame.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Binary numbers tile skin.

File:

• trunk/UGame.pas (modified) (5 diffs)

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;