mirrors/ProgressQuest
1
0
Fork 0
mirror of https://bitbucket.org/grumdrig/pq.git synced 2026-09-29 08:44:00 -06:00
Code Issues Packages Projects Releases Wiki Activity

Invent some roman numerals, G for 5000 and T for 10,000

Browse Source 
This'll keep the Spells list from looking like a bunch of MMMMMMs at high levels
This commit is contained in:
Eric Fredricksen
2022-01-04 21:30:33 -08:00
parent cbb3d5daac
commit 24895486cf
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.pas
+14 -1
View File
@@ -3,7 +3,7 @@ unit Main;
{$UNDEF CHEATS}
{$UNDEF LOGGING}
{$DEFINE TURBO}
{$UNDEF TURBO}
interface
@@ -976,8 +976,14 @@ begin
end;
end;
// I V X L C D M G T P E
// 1 5 10 50 100 500 1000 5000 10000 50000 100000
function IntToRoman(n: Integer): String;
begin
while Rome(n, 10000, Result, 'T') do ;
Rome(n, 9000, Result, 'MT');
Rome(n, 5000, Result, 'G');
Rome(n, 4000, Result, 'MG');
while Rome(n, 1000, Result, 'M') do ;
Rome(n, 900, Result, 'CM');
Rome(n, 500, Result, 'D');
@@ -996,6 +1002,10 @@ end;
function RomanToInt(n: String): Integer;
begin
Result := 0;
while UnRome(n, 10000, Result, 'T') do ;
UnRome(n, 9000, Result, 'MT');
UnRome(n, 5000, Result, 'G');
UnRome(n, 4000, Result, 'MG');
while UnRome(n, 1000, Result, 'M') do ;
UnRome(n, 900, Result, 'CM');
UnRome(n, 500, Result, 'D');
@@ -1626,6 +1636,9 @@ begin
{$IFDEF TURBO}
Exit; // For testing multiplayer saves without hitting the server
{$ENDIF}
{$IFDEF CHEATS}
Exit; // For testing multiplayer saves without hitting the server
{$ENDIF}
if FExportSheets then
ExportCharSheet;
if GetPasskey = 0 then Exit; // not a online game!