Hier mal mein Lösungsvorschlag für Kap 5 (hab aufg 3 mit case gelöst)

Für Kap3

program UFOJagd;

const
{$IFDEF DEUTSCH}
  {$DEFINE CONSTOK}
  MissionText  = '...';

  MissionWin = '...';

  MissionLose = '...';

  abschuss = 'wurde abgeschossen.';
  
  bezeichnung = ' der Jägerstaffel';
  
  Missname = 'UFO-Angriff';
{$ENDIF}

{$IFDEF ENGLISH}  //Englisch
  {$DEFINE CONSTOK}
  MissionText = '...';
  
  MissionWin = '...';

  MissionLose = '...';

  abschuss = 'are destroyed.';

  bezeichnung = '...';

  Missname = 'UFO-Attack';
{$ENDIF}

{$IFNDEF CONSTOK}  //... wär hier das vom Englischen
  MissionText = 'Sorry, your language isn''t supported yet, so this text go on in English.'
+ '...';
  
  MissionWin = '...';

  MissionLose = '...';

  abschuss = 'are destroyed.';

  bezeichnung = '...';

  Missname = 'UFO-Attack';
{$ENDIF}

....

abschuss, bezeichnung, Missname eingeführt, das man die begriffe ins englische/andere Sprache übersetzen kann so nun Kap4

program Quiz;
const  
  EinleitungDE = 'Herzlich willkommen zu unserer kleinen '
             + '<yellow>Sp<bluebold>iel<green>show!<white>.'
             + #13#10#13#10
             + 'Wenn du dich gut schlägst, wirst du reich belohnt werden.';

  ... //die anderen dann auch mit DE erweitern
  
  EinleitungEng='Sorry, English isn''t supported yet';

var
  Land : Integer;            //Ländervariable: 1= Deutsch, 2=Englisch, 3=etc. etc., 4=pp
  abbr : Integer;            //Für abbruch des Spieles

...

procedure StartMission;
var Sprachent : TStringList;   //Nur wichtig, falls Sprache nicht vorhanden ist
begin
  Land:=0;
  abbr:=1;
  {$IFDEF DEUTSCH}     //Deutsche Sprache
  Land:=1;
  {$ENDIF}

  {$IFDEF ENGLISH}     //Englische Sprache     für Aufgabe 1
  Land:=2;
  {$ENDIF}

  if (Land=0) then    //Falls die derzeitige Sprache noch nicht einbezogen wurde
  begin
  game_api_messageBox('Sorry, your language isn''t supported yet');
  
  game_api_messageBox('Do you want to quit this game?');  //Aufgabe 2
  Sprachent:=TStringList.Create;
  Sprachent.Add('Yes');
  Sprachent.Add('No');
  abbr := game_api_ChooseItemBox('Quit?',Sprachent);
  Sprachent.Free;
  if not (abbr=0) then                          //wird nur Fortgesetzt wenn er nicht aufhört
  begin
    game_api_messageBox('Which Language do you want to play this game in?');  //Aufgabe 3
    Sprachent:=TStringList.Create;
    Sprachent.Add('Deutsch');         //man könnte auch hier das mit abbruch reinbringen als 0te antwort, wollt aber Aufgabe 2 und 3 trennen
    Sprachent.Add('English');
    Sprachent.Add('etc. etc.');  //etc. etc. und pp nur bsp. für andere sprachen
    Sprachent.Add('pp');
    Land := game_api_ChooseItemBox('Language?',Sprachent)+1;
    Sprachent.Free;
  end;
  end;
  
  if (Land=0) then abbr:=0;           //Fängt fehler ab, fals der spieler auf abbr drückt bei Länderwahl
  
  if not (abbr=0) then
  begin
  Credits := 0;
  case Land of   //Beispiel wies Funktioniert bei der Einleitung
    1: game_api_messageBox(EinleitungDE);
    2: game_api_messageBox(EinleitungEng);
  end;

  Quiz1; // multiple choice
  Quiz2; // Rätsel
  Quiz3; // Kopfrechnen

  if (Q1_richtig+Q2_richtig+Q3_richtig = Q1_AnzFragen+Q2_AnzFragen+Q3_AnzFragen) then
  begin
    mission_win;
  end
  else mission_lose;
  end
  else mission_win;     //kann auch mission_lose sein, je nach dem welches von beiden man ändern will
end;


procedure OnMissionWin;
begin
  if not (abbr=0) then  //das er nix tut wenn er abbricht
  begin
  game_api_messageBox(Gewonnen);
  savegame_api_FreeCredits(1000000,kbEG);
  game_api_messageBox('Sie erhalten 1000000 Credits.');
  Zusammenfassung;
  end;
end;

...

Problem bei der Lösung ist, das man am ende viele globale Konstanten hat, die man nicht braucht und das man eben sehr oft den case-befehl bemühen muss (überall wo was geschrieben steht). Eine elegantere Lösung ist mir im Moment aber leider auch nicht eingefallen.

P.s.: Das bei case ist nur bsp., weswegen 3 und 4 nicht einbezogen sind (3 und 4 sind ja nur hier als bsp. für andere sprache gedacht)

I bet you do crossword puzzles in ink. https://housecleaningolympiawa.com

Good article, but it would be better if in future you can share more about this subject. Keep posting. customclosetsdesigncleveland.com

Thank you for assisting me here; I have gained a lot of knowledge from reading your writings. I'm new to this site, and it's great to meet everyone. Please contact with me here if at all possible. quordle game

[MP3137.4BettBettGregбардJewePaulИллюДобрPrinУдачSnooOrieBrisMarcSpecРо��SentMcCoДумбFranабха
AlphоптиБатуEmilKiriTimoHardWilhPaul�ерто�ноБазакрейSupePlaiИллюПолеFyodокт�БогаAlisAlesрома
BreaAdriFlas�ни�факуSpidscarкнопgreyRougпаззRHEISnowБагаБольВе�нXIIIStouJudiО�коCharОкт�XXIX
HardWindЛичкзде�перврабоУгрюFallКошкWindVidaEldeT6-YArtsЛевиЦ-68датиметркуплЗайц�мешSCRIKare
�ереСаниFuxiкараMiyoEmilкотоМильОрлоимпеDeveKreoIngrВер�AlanZORLВелиЛе�лCrazЧебоКитаWindSide
Hymn�татBourме��клубopenLiebMIELCoreSambRecoDigiPrelСРФ-ЧепуДмитШабаPierTRIAHertкомпвузоBlue
1152XIIIEditтемаHellпла�паззDreaWindFrieLEGOUnitBork�ертCesa

http://audiobookkeeper.ruhttp://cottagenet.ruhttp://eyesvision.ruhttp://eyesvisions.comhttp://factoringfee.ruhttp://filmzones.ruhttp://gadwall.ruhttp://gaffertape.ruhttp://gageboard.ruhttp://gagrule.ruhttp://gallduct.ruhttp://galvanometric.ruhttp://gangforeman.ruhttp://gangwayplatform.ruhttp://garbagechute.ruhttp://gardeningleave.ruhttp://gascautery.ruhttp://gashbucket.ruhttp://gasreturn.ruhttp://gatedsweep.ruhttp://gaugemodel.ruhttp://gaussianfilter.ruhttp://gearpitchdiameter.ru
http://geartreating.ruhttp://generalizedanalysis.ruhttp://generalprovisions.ruhttp://geophysicalprobe.ruhttp://geriatricnurse.ruhttp://getintoaflap.ruhttp://getthebounce.ruhttp://habeascorpus.ruhttp://habituate.ruhttp://hackedbolt.ruhttp://hackworker.ruhttp://hadronicannihilation.ruhttp://haemagglutinin.ruhttp://hailsquall.ruhttp://hairysphere.ruhttp://halforderfringe.ruhttp://halfsiblings.ruhttp://hallofresidence.ruhttp://haltstate.ruhttp://handcoding.ruhttp://handportedhead.ruhttp://handradar.ruhttp://handsfreetelephone.ru
http://hangonpart.ruhttp://haphazardwinding.ruhttp://hardalloyteeth.ruhttp://hardasiron.ruhttp://hardenedconcrete.ruhttp://harmonicinteraction.ruhttp://hartlaubgoose.ruhttp://hatchholddown.ruhttp://haveafinetime.ruhttp://hazardousatmosphere.ruhttp://headregulator.ruhttp://heartofgold.ruhttp://heatageingresistance.ruhttp://heatinggas.ruhttp://heavydutymetalcutting.ruhttp://jacketedwall.ruhttp://japanesecedar.ruhttp://jibtypecrane.ruhttp://jobabandonment.ruhttp://jobstress.ruhttp://jogformation.ruhttp://jointcapsule.ruhttp://jointsealingmaterial.ru
http://journallubricator.ruhttp://juicecatcher.ruhttp://junctionofchannels.ruhttp://justiciablehomicide.ruhttp://juxtapositiontwin.ruhttp://kaposidisease.ruhttp://keepagoodoffing.ruhttp://keepsmthinhand.ruhttp://kentishglory.ruhttp://kerbweight.ruhttp://kerrrotation.ruhttp://keymanassurance.ruhttp://keyserum.ruhttp://kickplate.ruhttp://killthefattedcalf.ruhttp://kilowattsecond.ruhttp://kingweakfish.ruhttp://kinozones.ruhttp://kleinbottle.ruhttp://kneejoint.ruhttp://knifesethouse.ruhttp://knockonatom.ruhttp://knowledgestate.ru
http://kondoferromagnet.ruhttp://labeledgraph.ruhttp://laborracket.ruhttp://labourearnings.ruhttp://labourleasing.ruhttp://laburnumtree.ruhttp://lacingcourse.ruhttp://lacrimalpoint.ruhttp://lactogenicfactor.ruhttp://lacunarycoefficient.ruhttp://ladletreatediron.ruhttp://laggingload.ruhttp://laissezaller.ruhttp://lambdatransition.ruhttp://laminatedmaterial.ruhttp://lammasshoot.ruhttp://lamphouse.ruhttp://lancecorporal.ruhttp://lancingdie.ruhttp://landingdoor.ruhttp://landmarksensor.ruhttp://landreform.ruhttp://landuseratio.ru
http://languagelaboratory.ruhttp://largeheart.ruhttp://lasercalibration.ruhttp://laserlens.ruhttp://laserpulse.ruhttp://laterevent.ruhttp://latrinesergeant.ru