Patch save for fixed misspellings

This commit is contained in:
Eric Fredricksen
2022-11-26 23:34:04 -08:00
parent 69816c5539
commit ef1ed7f9f5
+7
View File
@@ -1566,6 +1566,13 @@ begin
for i := 0 to ComponentCount-1 do
m.ReadComponent(Components[i]);
m.Free;
// Patch old misspellings found in save
with Spells do for i := 1 to Items.Count-1 do begin
if Items[i].Caption = 'Tonsilectomy' then
Items[i].Caption := 'Tonsillectomy';
if Items[i].Caption = 'Innoculate' then
Items[i].Caption := 'Inoculate';
end;
{$IFDEF LOGGING}
Log('Loaded game: ' + name);
{$ENDIF}