// September 2015
// Levee Patroller / Dijk Patrouille
// This source file is (c) by Deltares. This source file is open source but only available to select users. Do not redistribute without written permission of Stichting Deltares, Delft, The Netherlands.
// This header has been automatically generated.



//=============================================================================
//  Menu that shows up when you are having a conversation with the levee expert
//  when taking a measure
//
// ---------------------------------------------------------------------------
//  Created by Zmr
//  © 2006, Geodelft
//
// Date       Id   Modification
// 2006-11-22 Bas  Created this header
// 2006-11-22 Bas  Fixed bug in conversation
// 2006-11-22 Bas  When the conversation is finished show the okbutton to close window
// 2007-06-08 wsl  Removed needless code previously in all AC Menus
// 2007-06-19 wsl  Added copying of all variables from the previous ConvState
// 2007-08-27 Wsl  removed all occurrences of bStableSet (not used), removed unused code from HangupButtonClicked()
//=============================================================================
class MenuMeasureActionCenter extends MenuActionCenter
DependsOn(Measure);

function InitComponent(GUIController MyController, GUIComponent MyOwner)
{
        super.InitComponent(MyController,MyOwner);

        GUIGFxButton(Controls[5]).Graphic = Material'InGameMenuImagesT.ImageButtons.TCtmp';
        Controls[5].WinHeight = 2.2 * Controls[5].WinWidth; // to compensate for the changed aspect ratio of the image
}

//=============================================================================
//This function takes care of getting all the information needed to run the menu properly
//
// Date       Id   Modification
// 2006-10-07 The  Fixed compiler error in GetInformation
// 2006-12-05 Bas  Fixed multiple 'nullpointers' (Accessed None)
// 2007-06-05 Wsl  Moved from MenuActionCenter to here and removed unnecessary info
//=============================================================================
function GetInformation()
{
        // get map name
        if(ConvState[ConvState.Length-1].Map == "")
        {
                ConvState[ConvState.Length-1].Map = GeoPC.level.title;
        }
        // get player name
        ConvState[ConvState.Length-1].PlayerName = GeoPC.PlayerReplicationInfo.GetHumanReadableName();

        // get location name (GeoPC.NearByMarker cannot be none, because you're called by the levee expert
        // directly after you've taken a measure, so you're always near the right marker
        if(GeoPC.NearByMarker.GlobalLocation.LocationSign != none)
        {
                if(GeoPC.Dutch)
                {
                        ConvState[ConvState.Length-1].Location = GeoPC.NearByMarker.GlobalLocation.LocationSign.NL_LocationName;
                }
                else
                {
                        ConvState[ConvState.Length-1].Location = GeoPC.NearByMarker.GlobalLocation.LocationSign.EN_LocationName;
                }
        }
        else
        {
                ConvState[ConvState.Length-1].Location = "";
        }

        // get the diagnosis, assessment & assessmentsame from the previous ConvState
        ConvState[ConvState.Length-1].DiagnosedMechanism = ConvState[ConvState.Length-2].DiagnosedMechanism;
        ConvState[ConvState.Length-1].Assessment = ConvState[ConvState.Length-2].Assessment;
        ConvState[ConvState.Length-1].AssessmentSame = ConvState[ConvState.Length-2].AssessmentSame;
        ConvState[ConvState.Length-1].AmountOfAssessments = ConvState[ConvState.Length-2].AmountOfAssessments;

        // get the current failure state (there will always be a nearby marker for this menu because you're called
        // by the levee expert directly after taking a measure from the marker menu, but there will not always be a failure)
        if((GeoPC.NearByMarker.LTile) != none)
        {
	       ConvState[ConvState.Length-1].StateOfFailure = (GeoPC.NearByMarker.LTile).CurrentState;
	}

        // get the last state from the previous ConvState and use it as the first state for the current, new ConvState.
        // (needed in the case that the assessment turned out to be wrong, to add the transition to state checking to it)
        ConvState[ConvState.Length-1].ConversationStates.Remove(0,ConvState[ConvState.Length-1].ConversationStates.Length);
        ConvState[ConvState.Length-1].ConversationStates.Insert(0,1);
        ConvState[ConvState.Length-1].ConversationStates[0] = ConvState[ConvState.Length-2].ConversationStates[ConvState[ConvState.Length-2].ConversationStates.Length-1];
}

function UpdateLanguage()
{
        super.UpdateLanguage();
        if(GeoPC.Dutch)
        {
                GUILabel(Controls[4]).Caption = NL_Title;
                GUIScrollTextBox(Controls[NOSTB]).SetContent("Je wordt gebeld door de dijk-expert.");
                CurrentLanguage=Dutch;
        }
        else
        {
                GUILabel(Controls[4]).Caption = EN_Title;

                GUIScrollTextBox(Controls[NOSTB]).SetContent("You are called by the levee expert.");

                CurrentLanguage=English;
        }
}

function CalcNewLines()
{
        local int tmp,i;
        local array<String> TempString;

        if(ConvState[ConvState.Length-1].ConversationFinished)
        {
                // next line button invisible, hang up button appears
                // Strange BUG, for some reason C8 becomes unclickable when C3
                // is made invisible; that's why it's disabled instead
                Controls[3].MenuState = MSAT_Disabled;
                Controls[8].setVisibility(true);
        }
        else if((GeoPC.NearByMarker.LTile) != none)
        {
                //there is a failure near this marker, so the red marker was set right
                if((GeoPC.NearByMarker.LTile).CurrentState == STA_Critical)
                {
                        //the failure was very serious (critical) so it was appropriate to take action.
                        if(GeoPC.NearByMarker.MeasureTaken.bMeasureEffective)
                        {
                                //the right measure was taken
                                TempString.Insert(0,4);
                                TempString[0] = CurrentLanguage.getValue("2");
                                TempString[1] = CurrentLanguage.getValue("5.2-D");
                                TempString[2] = CurrentLanguage.getValue("6.2-A");
                                TempString[3] = CurrentLanguage.getValue("5.8-A");
                                ConvState[ConvState.Length-1].ConversationFinished = true;
                        }
                        else
                        {
                                // it was the wrong measure
                                TempString.Insert(0,3);
                                TempString[0] = CurrentLanguage.getValue("2");
                                TempString[1] = CurrentLanguage.getValue("5.2-E");
                                TempString[2] = CurrentLanguage.getValue("6.1-A");
                                ConvState[ConvState.Length-1].ConversationFinished = true;
                        }
                }
                else if((GeoPC.NearByMarker.LTile).CurrentState == STA_Failed)
                {
                        TempString.Insert(0,1);
                        TempString[0] = CurrentLanguage.getValue("failed");
                        ConvState[ConvState.Length-1].ConversationFinished = true;

                }
                else
                {
                        //the failure was not very serious (critical) so there should have been no measure taken.
                        if((GeoPC.NearByMarker.LTile).Mechanism == FM_ErosionInner && (GeoPC.NearByMarker.LTile).LeveeType == LT_PrimaryLevee)
                        {
                                // erosion of the inner slope of a primary levee is an exception:
                                TempString.Insert(0,4);
                                TempString[0] = CurrentLanguage.getValue("2");
                                TempString[1] = CurrentLanguage.getValue("5.2-B1")$"||"$CurrentLanguage.getValue("5.2-H");
                                TempString[2] = CurrentLanguage.getValue("6.1-A");
                                TempString[3] = CurrentLanguage.getValue("5.8-A");
                                ConvState[ConvState.Length-1].ConversationFinished = true;
                        }
                        else
                        {
                                // the failure was not very serious tell the player the reason why it is not very serious
                                TempString.Insert(0,4);
                                TempString[0] = CurrentLanguage.getValue("2");
                                TempString[1] = CurrentLanguage.getValue("5.2-B1");
                                TempString[1] = TempString[1]$"||"$WhyFailureNotAsExpected(STA_Critical);
                                TempString[1] = TempString[1]$"||"$CurrentLanguage.getValue("5.2-B2");
                                TempString[1] = TempString[1]@CurrentLanguage.getValue("5.2-C2");
                                TempString[2] = CurrentLanguage.getValue("6.1-A");
                                TempString[3] = CurrentLanguage.getValue("5.1");
                                ConvState[ConvState.Length-1].ConversationFinished = true;
                                ConvState[ConvState.Length-1].ConversationStates.Insert(ConvState[ConvState.Length-1].ConversationStates.Length,1);
                                ConvState[ConvState.Length-1].ConversationStates[ConvState[ConvState.Length-1].ConversationStates.Length-1] = Con_Checking;
                        }
                }
        }
        else
        {
                // there ain't a failure at the place of the marker
                TempString.Insert(0,5);
                TempString[0] = CurrentLanguage.getValue("2");
                TempString[1] = CurrentLanguage.getValue("5.2-F");
                TempString[2] = CurrentLanguage.getValue("4.1");
                TempString[3] = CurrentLanguage.getValue("5.2-A2");
                TempString[4] = CurrentLanguage.getValue("6.1-A");
                ConvState[ConvState.Length-1].ConversationFinished = true;
        }
        //Add the tempString array to the Lines array
        tmp = Lines.Length;
        Lines.Insert(tmp,TempString.Length);
        for(i=0;i<TempString.Length;i++)
        {
                Lines[i+tmp] = TempString[i];
        }

}

// the returned string contains a representation of the reasons why the failure is not expectedstate
function String WhyFailureNotAsExpected(GeoEnums.GeoStates expectedstate)
{
        local int i,j;
        local array <Signal> failureSignals,tempSignals;
        local Signal failureSignal;
        local GeoEnums.GeoStates failureState;
        local SignalStringData.HowSeriousStruct HSeriousStruct;
        local string returner;
        returner = "";
        log("### Start WhyFailureNotAsExpected ###");
        // (there will always be a nearby marker for this menu because you're called by the levee expert
        // directly after taking a measure from the marker menu, but there will not always be a failure)
        if(GeoPC.NearByMarker.LTile != none)
        {
                failureState = (GeoPC.NearByMarker.LTile).CurrentState;
                log("(GeoPC.NearByMarker.LTile).CurrentState:"@(GeoPC.NearByMarker.LTile).CurrentState);
                log("GeoPC.NearByMarker.LTile.bReportable"@GeoPC.NearByMarker.LTile.bReportable);
                log("GeoPC.NearByMarker.LTile.bRelevant"@GeoPC.NearByMarker.LTile.bRelevant);
                log("GeoPC.NearByMarker.LTile.bCritical"@GeoPC.NearByMarker.LTile.bCritical);


                failureSignals = (GeoPC.NearByMarker.LTile).Signals;
				Log("Failuresignals.length: "  @ failuresignals.length);

                for(i = 0; i < failureSignals.Length; i++)
                {
                        // for all signals of the failure, traverse all its signal reports to see if any
                        // of them were made during the phase the failure actually is in currently.
                        // As soon as one does, add the signal having such a report to tempSignals.
						Log("Geostate: " @ failureSignal.SignalReports[j].GeoState @ " - current state: " @ failureState);
						failureSignal = failureSignals[i];
                        for(j = 0; j < failureSignal.SignalReports.Length; j++)
                        {
                                if(failureSignal.SignalReports[j].GeoState != failureState)
                                {
                                        failureSignal.SignalReports.Remove(j,1);
                                        j--;
                                }
                        }
                        if(failureSignal.SignalReports.Length > 0)
                        {
                                tempSignals.Insert(0,1);
                                tempSignals[0] = failureSignal;
                        }
                }
                log("tempSignals.length = "$tempSignals.length);
                if(tempSignals.Length > 0)
                {
                        // if any signals were found that were reported about in the current phase of the failure,
                        // get the seriousness according to these observations.
                        HSeriousStruct = DataObject.HowSerious(tempSignals, GeoPC);
                        log("HSeriousStruct.states = "$HSeriousStruct.states);
                        if(expectedstate == STA_Reportable)
                        {
                                HSeriousStruct.ReasonNot_VerySerious = HSeriousStruct.ReasonNot_NotSerious;
                        }
                        else if(expectedstate == STA_Relevant)
                        {
                                HSeriousStruct.ReasonNot_VerySerious = HSeriousStruct.ReasonNot_Serious;
                        }
                        else if(expectedstate == STA_Critical)
                        {
                                // why is this still empty?
                        }
                        else if(expectedstate == STA_NONE)
                        {
                                HSeriousStruct.ReasonNot_VerySerious.Remove(1, HSeriousStruct.ReasonNot_VerySerious.Length-1);
                                HSeriousStruct.ReasonNot_VerySerious[0]="";
                        }
                        log("HSeriousStruct.ReasonNot_VerySerious.Length = "$HSeriousStruct.ReasonNot_VerySerious.Length);
                        for(i=0;i<HSeriousStruct.ReasonNot_VerySerious.Length;i++)
                        {
                                returner = returner$HSeriousStruct.ReasonNot_VerySerious[i];
                                if(i != HSeriousStruct.ReasonNot_VerySerious.Length-1)
                                {
                                        returner = returner$"||";
                                }
                        }
                }
        }
        log("### End WhyFailureNotAsExpected ###");
        return returner;
}
function string MeasureExplenation(GeoEnums.FailingMechanisms mech,LeveeTile.TypeOfLevee TOL,Measure.EMeasures mea)
{
        local string returner;
        returner = "";
        log("MeasureExplenation1:"@returner );

		Log("Mech: " @ mech @ " - LeveeTile: " @  TOL @ " " @ mea);

        if(mech == FM_Piping)
        {

                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "het probleem onder de dijk zit. Onnodig afdekken van het binnentalud kan bovendien de waterdruk in de dijk verhogen, waardoor de dijk instabiel kan worden.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "bij piping het instroompunt vaak niet in het buitentalud zit, maar verder buitendijks.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "opkisten in dit geval veel sneller en gemakkelijker is. Het is een enkele wel. Als er meerdere wellen zijn verspreid over een groter oppervlak, of als er tegelijkertijd ook extra tegengewicht nodig is om de dijk stabiel te houden, dan is het aanleggen van een zandberm wel een goede optie.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "door de hogere waterstand in de kist het water minder snel onder de dijk door zal stromen en dus ook minder snel erosie zal optreden. Bovendien wordt doorgaans een folie onderin de kist gelegd, dat wel water doorlaat maar het zand tegenhoudt.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de teen verzwaren met zandzakken niets zal doen om de piping tegen te gaan.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "het water onder de dijk door loopt en het plaatsen van meer gewicht op de kruin dan alleen maar gevaarlijk is.";
                }
                log("MeasureExplenation2:"@returner );

        }else if(mech == FM_Macro && TOL == LT_PrimaryLevee)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "dit de situatie alleen maar erger maakt. Door het afsluiten van het binnentalud kan de waterdruk in de dijk hoger worden, waardoor de dijk nog meer instabiel wordt.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "er het een lastig uit te voeren maatregel is die relatief weinig helpt. Er is vooral tegenwicht nodig bij de teen om de dijk stabiel te houden. Het afdekken van het buitentalud met folie helpt slechts in uitzonderlijke gevallen, als extra maatregel en alleen als dit de waterdruk in de dijk vermindert.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "het geplaatste zand voor een tegenwicht zorgt, waardoor de dijk niet zal afschuiven. Maar let op: je kunt dit niet altijd zonder risico doen, want ook de nieuwe berm kan instabiel worden. Hoog dus heel voorzichtig op, met flauwe hellingen.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de zandzakken bij zo'n grote afschuiving te weinig tegenwicht bieden voor het voorkomen van het eerste glijvlak. Het plaatsen van meer zandzakken kost veel tijd. Deze maatregel zou goed zijn als aanvulling, om eventuele kleinere glijvlakken in het binnentalud tegen te gaan.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "meer gewicht op de kruin de situatie alleen maar zal verergeren.";
                }
                log("MeasureExplenation3:"@returner );

        }else if(mech == FM_Macro && (TOL == LT_RegionalLevee || TOL == LT_RegionalLeveeWithoutRoad))
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "dit een gevaarlijke maatregel is. De waterdruk in de dijk kan bij afsluiten van het binnentalud oplopen, waardoor het evenwicht nog verder verstoord wordt.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "er tegenwicht nodig is om de dijk stabiel te houden. Het effectief afsluiten van het buitentalud met folie is bovendien onmogelijk als er beschoeiingen aanwezig zijn.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "het geplaatste zand voor een tegenwicht zorgt, waardoor de dijk niet zal afschuiven. Maar let op: je kunt dit niet altijd zonder risico doen, want ook de berm kan afschuiven of de sloot dichtdrukken. Hoog dus heel voorzichtig op, met flauwe hellingen.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de zandzakken te weinig tegenwicht bieden voor het voorkomen van het eerste glijvlak. Deze maatregel zou goed zijn als aanvulling, om eventuele tweede glijvlakken tegen te gaan.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "meer gewicht op de kruin de situatie alleen maar zal verergeren.";
                }
                log("MeasureExplenation4:"@returner );

        }else if(mech == FM_Micro)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "het water van binnen uit komt, zal deze maatregel meestal niet helpen.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "veel regionale keringen een beschoeiing hebben, waardoor het lastig is te bepalen waar het water precies de dijk in komt. Bovendien is de maatregel erg lastig uit te voeren.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "door het talud aan te vullen er als het ware een filter ontstaat voor het materiaal in de dijk. Die erodeert dan niet van binnenuit. Bovendien krijgt de dijk meteen een stuk extra stevigheid. Let wel op; je gaat aanvullen op een weinig vaste en kletsnatte ondergrond.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de erosie van het dijklichaam hiermee niet wordt voorkomen.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "meer gewicht plaatsen op de kruin de interne erosie niet voorkomt en de situatie alleen maar verergert.";
                }
                log("MeasureExplenation5:"@returner );

        }else if(mech == FM_ErosionInner)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "het folie het talud zal beschermen tegen verdere erosie. Let wel dat er ook zandzakken nodig zijn om de folie op zijn plaats te houden en de hoeveelheid water dat over de dijk stroomt te beperken.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "het binnentalud wordt bedreigd door water dat over de dijk heen stroomt. Een folie over het buitentalud voorkomt dit niet.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "zo'n zandberm wordt weggespoeld als de dijk overstroomt. De erosie van het binnentalud wordt dus niet voorkomen.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten op de dijk of in het water.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de zandzakken op de teen de rest van het binnentalud niet beschermen tegen erosie.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "zandzakken het water tegenhouden waardoor het slechte binnentalud gespaard zal blijven. Let wel dat er ook een folie nodig is om het talud te beschermen tegen verdere erosie.";
                }
                log("MeasureExplenation6:"@returner );

        }else if(mech == FM_ErosionInnerMicro)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "het folie het talud zal beschermen tegen verdere erosie, let wel dat er ook zandzakken nodig zijn om de folie op zijn plaats te houden en overlopend water tegen te gaan.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "het probleem wordt veroorzaakt door water dat over de dijk stroomt. Een folie op het buitentalud heeft dan weinig zin. Bovendien hebben veel regionale keringen een beschoeiing, waardoor de maatregel erg lastig is uit te voeren.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "zo'n zandberm wordt weggespoeld als de dijk overstroomt. De erosie van het binnentalud wordt dus niet voorkomen.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de zandzakken op de teen de dijk zelf niet beschermen tegen erosie.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "de zandzakken het water tegenhouden waardoor het slechte talud op het binnentalud gespaard zal blijven. Let wel dat er ook een folie nodig is om het talud te beschermen tegen verdere erosie.";
                }
                log("MeasureExplenation7:"@returner );

        }else if(mech == FM_ErosionOuterFloatingWaste)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "het drijfvuil geen schade aanricht aan het binnentalud. Onnodig afdekken van het binnentalud kan bovendien de waterdruk in de dijk verhogen, waardoor de dijk instabiel kan worden.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "het drijfvuil eerst verwijderd moet worden. Als er dan schade aan het buitentalud blijkt te zijn, dan zou deze maatregel wellicht nodig zijn.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "het drijfvuil geen schade aanricht aan het binnentalud.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "het drijfvuil veel schade kan doen aan de bekleding van de dijk en daarom zo snel mogelijk verwijderd moet worden. Bij extreme weersomstandigheden is het soms onmogelijk om het drijfvuil te ruimen. Daarom is het belangrijk om snel in te grijpen als de weersomstandigheden nog goed zijn.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "het drijfvuil geen schade aanricht aan de binnenteen van de waterkering. Zandzakken aan de buitenkant van de dijk blijven door stroming en golfslag mogelijk niet goed liggen, waardoor zandzakken ook niet gebruikt kunnen worden ter bescherming van beschadigde plekken.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "het drijfvuil niet zorgt voor extra overloop.";
                }
                log("MeasureExplenation8:"@returner );


        }else if(mech == FM_WaterQuality)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "waterkwaliteit geen schade aanricht aan het binnentalud. Onnodig afdekken van het binnentalud kan bovendien de waterdruk in de dijk verhogen, waardoor de dijk instabiel kan worden.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "de waterkwaliteit eerst verwijderd moet worden. Als er dan schade aan het buitentalud blijkt te zijn, dan zou deze maatregel wellicht nodig zijn.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "de waterkwaliteit geen schade aanricht aan het binnentalud.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "het verwijderen van dode dieren de verspreiding van ziektes tegengaat.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "de waterkwaliteit geen schade aanricht aan de binnenteen van de waterkering. Zandzakken aan de buitenkant van de dijk blijven door stroming en golfslag mogelijk niet goed liggen, waardoor zandzakken ook niet gebruikt kunnen worden ter bescherming van beschadigde plekken.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "de waterkwaliteit niet zorgt voor extra overloop.";
                }
                log("MeasureExplenation8:"@returner );




        }else if(mech == FM_ErosionOuterRipRap)
        {
                if(mea == MEA_CoverInnerSlopeWithFoil)
                {
                        returner = "hiermee wel de waterstroming door de dijk beperkt wordt, maar niet de erosie van het buitentalud. Onnodig afdekken van het binnentalud kan bovendien de waterdruk in de dijk verhogen, waardoor de dijk instabiel kan worden.";
                }else if(mea == MEA_CoverOuterSlopeWithFoil)
                {
                        returner = "dit de dijk beschermt tegen verdere erosie. Later is het dan mogelijk om bij een lager waterpeil de schade te herstellen.";
                }else if(mea == MEA_SandBank_SlakeningSlope)
                {
                        returner = "er geen gevaar is voor afschuiven van de dijk. De steenbekleding op het buitentalud beschermt de dijk tegen erosie. Verflauwen van het binnentalud heeft daarom geen zin.";
                }else if(mea == MEA_RemoveWaste)
                {
                        returner = "er geen sprake is van ongeoorloofde objecten.";
                }else if(mea == MEA_ContainmentRing)
                {
                        returner = "deze maatregel alleen bij piping wordt toegepast. Piping speelt hier geen rol.";
                }else if(mea == MEA_SandbagsToe)
                {
                        returner = "het versterken van de teen de dijk niet tegen de erosie van het buitentalud zal beschermen.";
                }else if(mea == MEA_SandbagsTop)
                {
                        returner = "deze maatregel alleen nut heeft als er water over de dijk komt. Zolang daar geen sprake van is heeft deze maatregel geen enkel nut.";
                }
                log("MeasureExplenation9:"@returner );

        }else
        {
          log("MeasureExplenation10:"@returner );
        }

        log("MeasureExplenation11:"@mech@mea@TOL@returner );
        return returner;
}


function FillHashTable()
{
        local string PL_Name, Map, Location, NL_Expert,EN_Expert, NL_Measure, EN_Measure;
		local string riskname;

        PL_Name = ConvState[ConvState.Length-1].PlayerName$":";
        Map = ConvState[ConvState.Length-1].Map;
        Location = ConvState[ConvState.Length-1].Location;
        NL_Expert = "Dijk-expert";
        EN_Expert = "Levee expert";

        switch(GeoPC.NearByMarker.MeasureTaken.MeasureType)
        {
                case MEA_CoverInnerSlopeWithFoil:
                        NL_Measure = "binnentalud afdekken met folie";
                        EN_Measure = "";
                        break;
                case MEA_CoverOuterSlopeWithFoil:
                        NL_Measure = "buitentalud afdekken met folie";
                        EN_Measure = "";
                        break;
                case MEA_SandBank_SlakeningSlope:
                        NL_Measure = "berm van zand aanleggen of talud verflauwing";
                        EN_Measure = "";
                        break;
                case MEA_Removewaste:
                        NL_Measure = "het verplaatsen van objecten en obstakels";
                        EN_Measure = "remove foreign objects";
                        break;
                case MEA_ContainmentRing:
                        NL_Measure = "opkisten";
                        EN_Measure = "";
                        break;
                case MEA_SandbagsToe:
                        NL_Measure = "zandzakken op de teen";
                        EN_Measure = "";
                        break;
                case MEA_SandbagsTop:
                        NL_Measure = "zandzakken op de kruin";
                        EN_Measure = "";
                        break;


        }

        Dutch = New class'QAStringHashTable';

        Dutch.add("2",PL_Name@"Hallo, dijk-expert, wat is er aan de hand?");
        Dutch.add("4.1",PL_Name@"Ehm, nee.");
        Dutch.add("5.1",NL_Expert$":"@"Ok, keer nog wel terug naar het schadebeeld. Bel het Actiecentrum daarna om te vertellen of de situatie stabiel of verergerd is. Dag!");
        Dutch.add("5.2-A1",NL_Expert$":"@"Het schadebeeld was niet zeer ernstig om de volgende reden(en):");
        Dutch.add("5.2-A2",NL_Expert$":"@"Let dus voortaan beter op. Dag!");
        Dutch.add("5.2-A3",NL_Expert$":"@"Er was geen schadebeeld op de gegeven locatie.");
        Dutch.add("5.2-B1",NL_Expert$":"@"Het uitvoeren van een maatregel was in dit geval niet noodzakelijk. Het schadebeeld is namelijk (nog) niet kritisch om de volgende reden(en):");
        Dutch.add("5.2-B2","De maatregel is daarom niet uitgevoerd.");
        Dutch.add("5.2-C1",NL_Expert$":"@"Het uitvoeren van een maatregel was in dit geval noodzakelijk, hoewel jouw observaties niet nauwkeurig waren. Je had moeten rapporteren dat:");
        Dutch.add("5.2-C2","Je dient voortaan meer accuraat te rapporteren.");
        Dutch.add("5.2-C3",NL_Expert$":"@"Je had moeten rapporteren dat:");
        if(GeoPC.NearByMarker.LTile != none)
        {
			riskname = "een overstroming";

			if ( (GeoPC.NearByMarker.LTile).Mechanism == FM_WaterQuality)
			{
				riskname = "verdere verspreiding van ziektes ";
			}


                Dutch.add("5.2-D",NL_Expert$":"@"Hallo, de maatregel "$NL_Measure$" was de juiste maatregel, omdat "$MeasureExplenation((GeoPC.NearByMarker.LTile).Mechanism , (GeoPC.NearByMarker.LTile).LeveeType , GeoPC.NearByMarker.MeasureTaken.MeasureType)$" Met deze maatregel heeft u " $ riskname $ " voorkomen en"@Map@"gered. Heel erg bedankt.");

			if ( (GeoPC.NearByMarker.LTile).Mechanism == FM_WaterQuality)
			{
				Dutch.add("5.2-E",NL_Expert$":"@"Hallo, Het uitvoeren van een maatregel was in dit geval noodzakelijk. Alleen is "$NL_Measure$" de verkeerde maatregel||Herstel je fout. Tot ziens.");
			} else {
				Dutch.add("5.2-E",NL_Expert$":"@"Hallo, Het uitvoeren van een maatregel was in dit geval noodzakelijk, want de dijk is bijna doorgebroken. Alleen is "$NL_Measure$" de verkeerde maatregel, omdat "$MeasureExplenation((GeoPC.NearByMarker.LTile).Mechanism,(GeoPC.NearByMarker.LTile).LeveeType,GeoPC.NearByMarker.MeasureTaken.MeasureType)$"||Herstel je fout. Tot ziens.");
			}
        }
        Dutch.add("5.2-F",NL_Expert$":"@"Weet jij zeker dat er een faalmechanisme is"@Location@"in"@Map$". Wij kunnen het niet vinden. En we hebben elk graspolletje omgekeerd.");
        Dutch.add("5.2-H","We verwachten niet dat de dijk gaat overstromen. Houd de situatie desondanks goed in de gaten! Als de dijk overstroomt dan moet je wel maatregelen nemen!");

        Dutch.add("5.8-A",NL_Expert$":"@"Ga zo door! Groetjes.");
        Dutch.add("6.1-A",PL_Name@"Dat zal ik doen. Dag.");
        Dutch.add("6.2-A",PL_Name@"Graag gedaan! Op naar de volgende dijk. Tot ziens.");

        Dutch.add("failed",NL_Expert$":"@"Het is te laat! De dijk is doorgebroken.");

        English = New class'QAStringHashTable';

        English.add("2",PL_Name@"Hi, levee expert, what's up?");
        English.add("4.1",PL_Name@"Uhm, no.");
        English.add("5.1",EN_Expert$":"@"Ok, do return to the damage. Call the Action Center after this to tell if the situation is stable or has become worse. Bye!");
        English.add("5.2-A1",EN_Expert$":"@"The damage was not very serious for the following reason(s):");
        English.add("5.2-A2",EN_Expert$":"@"Be more accurate next time. Bye!");
        English.add("5.2-A3",EN_Expert$":"@"There was no damage at the location.");
        English.add("5.2-B1",EN_Expert$":"@"Taking a measure was not necessary in this case. The damage is not critical (yet) for the following reason(s):");
        English.add("5.2-B2","For this reason, the measure is not implemented.");
        English.add("5.2-C1",EN_Expert$":"@"Taking a measure was necessary in this case, although your observations weren't very accurate. You should have reported that:");
        English.add("5.2-C2","Be more accurate in reporting the signals next time. ");
        English.add("5.2-C3",EN_Expert$":"@"You should have reported that:");
        English.add("5.2-D",EN_Expert$":"@"Taking a measure was necessary in this case. By doing this you prevented a levee breach. Thank you for saving"@Map$"!");
        English.add("5.2-E",EN_Expert$":"@"Taking a measure was necessary in this case. Only, you have chosen the wrong measure. Correct your mistake! Bye!");
        English.add("5.2-F",EN_Expert$":"@"Are you sure there is an failure"@Location@"in"@Map$". We couldn't find it.");
        English.add("5.2-G",EN_Expert$":"@"Have you already taken measures at the earlier reported damage"@Location@"in"@Map$".");
        English.add("5.2-H","We won't expect that the levee is going to break. Despite this, keep an eye on the situation, because you do need to take measures when the levee starts overtopping.");
        English.add("5.8-A",EN_Expert$":"@"Keep on the good work! Bye!");
        English.add("6.1-A",PL_Name@"I will. Bye!");
        English.add("6.2-A",PL_Name@"My pleasure! Bye!");
        English.add("failed",EN_Expert$":"@"Oh dear! It seems the levee has breached.");
        English.add("failed",EN_Expert$":"@"Oh dear... It seems like the levee just broke!");
}

function HangupButtonClicked()
{
        // save convState to marker (only needed when making transition to state checking?)
        GeoPC.NearByMarker.ConvState = ConvState;

        // close the menu (or should it display MenuMarker immediately after?)
        GeoPC.InMenu(false);
        
		Controller.CloseAll(false);
		Log("MenuMeasureactionCenter: Close menu");
        //Controller.ReplaceMenu("GeoSimulator.MenuMarker");
}

defaultproperties
{
        NL_Title="Dijk-expert"
        EN_Title="Levee expert"
}