Changeset 63 for trunk/UGame.pas

Timestamp:

Nov 9, 2019, 1:38:36 PM (5 years ago)

Author:

chronos

Message:

• Added: Roman numerals as tile skin.

File:

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

trunk/UGame.pas

@@ -95 +95 @@
   end;
 
-  TTileSkin = (tsLinear, tsPowerOfTwo, tsAlpha);
+  TTileSkin = (tsLinear, tsPowerOfTwo, tsAlpha, tsRoman);
 
   { TGame }
@@ -181 +181 @@
   SSkinPowerOfTwo = 'Power of two';
   SSkinAlpha = 'Alpha';
+  SSkinRoman = 'Roman numerals';
   STileShouldBeEmpty = 'Tile should be empty';
 
@@ -197 +198 @@
   SkinText[tsPowerOfTwo] := SSkinPowerOfTwo;
   SkinText[tsAlpha] := SSkinAlpha;
+  SkinText[tsRoman] := SSkinRoman;
 end;
 
@@ -1021 +1023 @@
 end;
 
+function IntToStrRoman(Num: Integer): string;
+const
+  Nvals = 13;
+  Vals: array [1..Nvals] of Word =
+    (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
+  Roms: array [1..Nvals] of string[2] =
+    ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
+var
+  B: 1..Nvals;
+begin
+  Result := '';
+  B := Nvals;
+  while Num > 0 do
+  begin
+    while Vals[b] > Num do
+      Dec(B);
+    Dec(Num, Vals[B]);
+    Result := Result + Roms[B];
+  end;
+end;
+
 function TGame.GetTileSkinValue(Value: Integer): string;
 begin
@@ -1027 +1050 @@
     tsPowerOfTwo: Result := IntToStr(1 shl Value);
     tsAlpha: Result := Chr(Ord('A') + Value - 1);
+    tsRoman: Result := IntToStrRoman(Value);
     else Result := IntToStr(Value);
   end;