EscapeRoom

2-pre-alpha

Brought to you by: florenvanolden, jeffreyb, oscarfokker, ozzy, tobivw

MIT License

Diff of /repair_ballast/Display_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/VisionGameStateMachine/svnobj [r56] .. [r57] Maximize Restore

Switch to unified view


Gx_l^9!0…jüoÀ&” KvÏOÀvSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument    L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText4//---- Client init  ----\\$IF NOT xInit THEN N UM            (    sName := 'Normal Operation', ì                    dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô                    dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö                    dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \                   eInitialState := PACK_ML.State.Aborted,0                     xActive := TRUE);   xInit := TRUE; END_IFD//---- Client communicatie  ----\\4IF Client.bReadyToPLC THEN:   CASE Client.iCommandToPLC OF" 0 :    //Handshake    1 :    //Lock!       IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) =  0 THEN      "0       //First Lock Function#        SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[0]);$       ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) =  0 THEN    %2       //Second Lock Function&          SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]);'    END_IF( 2 :    //Key)   3 :    //IO* 4 :    //Media+   5 :    //Hint, 6 :    //State -p    IF SysStrCmp(Client.sCommandFromPLC, 'SC') =  0 THEN      .&       StateComplete();/x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') =  0 THEN      0       Start();1v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') =  0 THEN    2       Stop();3x      ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') =  0 THEN      4       Reset();5x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') =  0 THEN      6       Abort();7x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') =  0 THEN      8       Clear();9v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') =  0 THEN    :       Hold();;z      ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') =  0 THEN    <       Unhold(); =|    ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') =  0 THEN      >       Suspend();?       ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') =  0 THEN      @       UnSuspend();A    B END_CASEC6 Client.iCommandToPLC := 0;D8 Client.sCommandToPLC := '';E:   Client.bReadyToPLC := FALSE;FD//---- Client statemachine  ----\\G.CASE UM.CurrentState OFH,PACK_ML.State.Stopped:I ;J,PACK_ML.State.Aborted:K&PACK_ML.State.Idle:L2PACK_ML.State.Complete : M.PACK_ML.State.Execute :N( CASE Client.Mode OFOV      Mode.Mode1: // Target practise simulationPJ         IF puzzleTimer.iProcess = 25 THEN;Qº             //   SendCommand(Command := CommandType.Hint ,Value := 'Collect the object in the room.'); R       END_IFSJ       IF puzzleTimer.iProcess = 50 THEN;T             //SendCommand(Command := CommandType.Media ,Value := 'Padlock K000367');   U       END_IF         VJ       IF puzzleTimer.iProcess = 75 THEN;W          //X       Y4 CASE Client.ActualStep OFZ
                [¬    0: // determine if depending on the level of the game the calibration step is needed.\P      IF Client.Level = Level.Beginner THEN;]6       Client.ActualStep := 30;^    ELSE_6       Client.ActualStep := 10;` 10:// a2    xHide_ijkpunt := FALSE;b:      xHide_Text_Center := FALSE;c   20:dd   30: // Hide the ijkpunten Start van de visiongamee0      xHide_ijkpunt := TRUE;f8    xHide_Text_Center := TRUE;g4    xHide_Crosshair := TRUE;h4    xHide_Text_Top := FALSE;iÌ       sInstructionString := 'Time To Start the Training Excersise, remember this is a battle simulation!';j 40:k2PACK_ML.State.Resetting :l"   StateComplete();m0PACK_ML.State.Starting :n4PACK_ML.State.Completing :o0PACK_ML.State.Aborting :p.PACK_ML.State.Stopping:q2PACK_ML.State.Clearing :   rEND_CASEs.//---- Emergency ----\\tVIF NOT x_EmergencyGF AND x_EmergencyFF THENu(    //Emergency Abort.v   Abort();   w8//---- State handling ----\\xLClient.ActualState := UM.CurrentState;y>messageQueue(Client := Client);zäpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);{PClient.Progress := puzzleTimer.iProcess;|FIF puzzleTimer.iProcess >= 100 THEN}    Stop();~InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}JFUNCTION_BLOCK VisionGameStateMachineVAR_IN_OUT.    Client : PuzzleClient;END_VARVAR0  UM   : PACK_ML.UnitMode; j    xInit          : BOOL := FALSE; // Flag for initialization:  messageQueue : MessageQueue;6    puzzleTimer : PuzzleTimer;// 8xHide_Map       : BOOL := TRUE ;<xHide_Leopold     : BOOL := TRUE;>xHide_Leopold2     : BOOL := TRUE;<xHide_Zeeland   : BOOL := TRUE;>xHide_Rotterdam : BOOL := TRUE;<xHide_Dolfijn  : BOOL := TRUE;<xHide_ijkpunt   : BOOL := TRUE;>xHide_Crosshair : BOOL := TRUE;<xHide_Text_Top : BOOL := TRUE;BxHide_Text_Center   :BOOL := TRUE;<xHide_Button1     : BOOL := TRUE;<xHide_Button2       : BOOL := TRUE;<sInstructionString  :   STRING;>sInstructionString2    :   STRING;2sButtonString1     : STRING;2sButtonString2     : STRING;"UniqueIdGenerator434POULevelL{8e575c5b-1d37-49c6-941b-5c0ec7874787}Standard ChildObjectGuids 8System.Collections.ArrayList¡,AddAttributeSubsequent¢boolÐÐ-ÐÐ E
ÐÐ
­$ÚÐ-ÐÐ
­%ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­lÚÐ-ÐÐ
­eÚÐ-ÐÐ
­ÚÐ-ÐÐ
­*ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­®ÚÐ-ÐÐ
­ÚÐ- ÐÐ
­µÚÐ-!ÐÐ
­´ÚÐ-"ÐÐ
­÷ÚÐ-#ÐÐ
­¶ÚÐ-$ÐÐ
­·ÚÐ-%ÐÐ
­&ÚÐ-&ÐÐ
­¯ÚÐ-'ÐÐ
­©ÚÐ-(ÐÐ
­ÚÚÐ-)ÐÐ
­«ÚÐ-*ÐÐ
­¬ÚÐ-+ÐÐ
­­ÚÐ-,ÐÐ
­¹ÚÐ--ÐÐ
­ºÚÐ-.ÐÐ
­»ÚÐ-/ÐÐ
­¾ÚÐ-0ÐÐ
­¿ÚÐ-1ÐÐ
­ÀÚÐ-2ÐÐ
­ÁÚÐ-3ÐÐ
­ÂÚÐ-4ÐÐ
­ÃÚÐ-5ÐÐ
­ÄÚÐ-6ÐÐ
­ÅÚÐ-7ÐÐ
­ÆÚÐ-8ÐÐ
­ÇÚÐ-9ÐÐ
­ÈÚÐ-:ÐÐ
­ÉÚÐ-;ÐÐ
­ÎÚÐ-<ÐÐ
­ÏÚÐ-=ÐÐ
­ÐÚÐ->ÐÐ
­ÑÚÐ-?ÐÐ
­¼ÚÐ-@ÐÐ
­¸ÚÐ-'ÐÐ
­½ÚÐ-AÐÐ
­ÚÐ-BÐÐ
­ÓÚÐ-ÐÐ
­ÕÚÐ-CÐÐ
­ÖÚÐ-DÐÐ
­×ÚÐ-EÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-FÐÐ
­ÚÐ-ÐÐ
­ÚÐ-GÐÐ
­ÚÐ-HÐÐ
­ÚÐ-IÐÐ
­ÚÐ-JÐÐ
­ÚÐ-IÐÐ
­ÚÐ-KÐÐ
­ÚÐ-IÐÐ
­ ÚÐ-LÐÐ
­¦ÚÐ-IÐÐ
­ÚÐ-MÐÐ
­GÚÐ-AÐÐ
­[ÚÐ-NÐÐ
­\ÚÐ-AÐÐ
­^ÚÐ-OÐÐ
­wÚÐ-PÐÐ
­xÚÐ-QÐÐ
­yÚÐ-RÐÐ
­zÚÐ-SÐÐ
­{ÚÐ-TÐÐ
­|ÚÐ-UÐÐ
­}ÚÐ-VÐÐ
­ÚÐ-WÐÐ
­vÚÐ-RÐÐ
­ÚÐ-XÐÐ
­]ÚÐ-BÐÐ
­ÚÐ-ÐÐ
­ÚÐ-YÐÐ
­ÚÐ-ZÐÐ
­ÚÐ-[ÐÐ
­ÚÐ-\ÐÐ
­ÚÐ-]ÐÐ
­ ÚÐ-^ÐÐ
­¡ÚÐ-_ÐÐ
­ÚÐ-'ÐÐ
­£ÚÐ-AÐÐ
­ÚÐ-`ÐÐ
­®ÚÐ-aÐÐ
­¯ÚÐ-bÐÐ
­°ÚÐ-AÐÐ
­ÚÐ-cÐÐ
­ÚÐ-dÐÐ
­¥ÚÐ-eÐÐ
­©ÚÐ-fÐÐ
­ªÚÐ-gÐÐ
­¨ÚÐ-hÐÐ
­­ÚÐ-ÐÐ
­¬ÚÐ-AÐÐ
­«ÚÐ-iÐÐ
­¦ÚÐ-ÐÐ
­§ÚÐ-ÐÐ
­ÚÐ-jÐÐ
­ÚÐ-ZÐÐ
­ÚÐ-BÐÐ
­üÚÐ-IÐÐ
­þÚÐ-kÐÐ
­ÚÐ-lÐÐ
­ÚÐ-mÐÐ
­ÚÐ-lÐÐ
­RÚÐ-nÐÐ
­ ÚÐ-lÐÐ
­UÚÐ-oÐÐ
­!ÚÐ-lÐÐ
­WÚÐ-pÐÐ
­"ÚÐ-lÐÐ
­[ÚÐ-qÐÐ
­#ÚÐ-lÐÐ
­   ÚÐ-rÐÐ
­+ÚÐ-ÐÐ
­,ÚÐ-sÐÐ
­gÚÐ-ÐÐ
­CÚÐ-tÐÐ
­DÚÐ-uÐÐ
­EÚÐ-vÐÐ
­hÚÐ-ÐÐ
­-ÚÐ-ÐÐ
­.ÚÐ-wÐÐ
­ÚÐ-ÐÐ
­fÚÐ-xÐÐ
­ÚÐ-ÐÐ
­ÚÐ-yÐÐ
­(ÚÐ-ÐÐ
­ÚÐ-zÐÐ
­ÚÐ-ÐÐ
­ÚÐ-{ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-|ÐÐ
­ÚÐ-}ÐÐ
­ÚÐ-ÐÐ
­oÚÐ-ÐÐ
­lÚÐ-ÐÐ
­kÚÐ-ÐÐ
­eÚÐ-ÐÐ
­dÚÐ-Ð~Ð E
%ÐÐ
­/ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­4ÚÐ-ÐÐ
­5ÚÐ-ÐÐ
­6ÚÐ-ÐÐ
­7ÚÐ-ÐÐ
­8ÚÐ-ÐÐ
­9ÚÐ-ÐÐ
­:ÚÐ-ÐÐ
­HÚÐ-ÐÐ
­IÚÐ-ÐÐ
­JÚÐ-ÐÐ
­LÚÐ-ÐÐ
­MÚÐ-ÐÐ
­TÚÐ-ÐÐ
­NÚÐ-ÐÐ
­OÚÐ-ÐÐ
­PÚÐ-ÐÐ
­QÚÐ-ÐÐ
­RÚÐ-ÐÐ
­UÚÐ-ÐÐ
­VÚÐ-ÐÐ
­XÚÐ-ÐÐ
­YÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ZÚÐ-ÐÐ
­²ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­±ÚÐ-ÐÐ
­WÚÐ-ÐÐ
­SÚÐ-ÐÐ
­;ÚÐ-ÐÐ
­<ÚÐ-ÐÐ
­ÚÐ-Ð-Ð- Ð¡¢­

	a/repair_ballast/Display_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/VisionGameStateMachine/svnobj		b/repair_ballast/Display_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/VisionGameStateMachine/svnobj
1	Gx_l¤8!0…jüo8&ã5'D¯@ö¥System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}	1	Gx_l^9!0…jüoÀ&” KvÏOÀvSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
2	TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id longTagText4//---- Client init ----\\$IF NOT xInit THEN N UM ( sName := 'Normal Operation', ì dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \ eInitialState := PACK_ML.State.Aborted,0 xActive := TRUE); xInit := TRUE; END_IFD//---- Client communicatie ----\\4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock! IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN "0 //First Lock Function# SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[0]);$ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN %2 //Second Lock Function& SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]);' END_IF( 2 : //Key) 3 : //IO* 4 : //Media+ 5 : //Hint, 6 : //State -p IF SysStrCmp(Client.sCommandFromPLC, 'SC') = 0 THEN .& StateComplete();/x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN 0 Start();1v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 2 Stop();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 4 Reset();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 6 Abort();7x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 8 Clear();9v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN : Hold();;z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN < Unhold(); =\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN > Suspend();? ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN @ UnSuspend();A B END_CASEC6 Client.iCommandToPLC := 0;D8 Client.sCommandToPLC := '';E: Client.bReadyToPLC := FALSE;FD//---- Client statemachine ----\\G.CASE UM.CurrentState OFH,PACK_ML.State.Stopped:I ;J,PACK_ML.State.Aborted:K&PACK_ML.State.Idle:L2PACK_ML.State.Complete : M.PACK_ML.State.Execute :N( CASE Client.Mode OFOV Mode.Mode1: // Target practise simulationPJ IF puzzleTimer.iProcess = 25 THEN;Qº // SendCommand(Command := CommandType.Hint ,Value := 'Collect the object in the room.'); R END_IFSJ IF puzzleTimer.iProcess = 50 THEN;T //SendCommand(Command := CommandType.Media ,Value := 'Padlock K000367'); U END_IF VJ IF puzzleTimer.iProcess = 75 THEN;W //X Y4 CASE Client.ActualStep OFZ	2	TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id longTagText4//---- Client init ----\\$IF NOT xInit THEN N UM ( sName := 'Normal Operation', ì dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \ eInitialState := PACK_ML.State.Aborted,0 xActive := TRUE); xInit := TRUE; END_IFD//---- Client communicatie ----\\4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock! IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN "0 //First Lock Function# SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[0]);$ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN %2 //Second Lock Function& SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]);' END_IF( 2 : //Key) 3 : //IO* 4 : //Media+ 5 : //Hint, 6 : //State -p IF SysStrCmp(Client.sCommandFromPLC, 'SC') = 0 THEN .& StateComplete();/x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN 0 Start();1v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 2 Stop();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 4 Reset();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 6 Abort();7x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 8 Clear();9v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN : Hold();;z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN < Unhold(); =\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN > Suspend();? ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN @ UnSuspend();A B END_CASEC6 Client.iCommandToPLC := 0;D8 Client.sCommandToPLC := '';E: Client.bReadyToPLC := FALSE;FD//---- Client statemachine ----\\G.CASE UM.CurrentState OFH,PACK_ML.State.Stopped:I ;J,PACK_ML.State.Aborted:K&PACK_ML.State.Idle:L2PACK_ML.State.Complete : M.PACK_ML.State.Execute :N( CASE Client.Mode OFOV Mode.Mode1: // Target practise simulationPJ IF puzzleTimer.iProcess = 25 THEN;Qº // SendCommand(Command := CommandType.Hint ,Value := 'Collect the object in the room.'); R END_IFSJ IF puzzleTimer.iProcess = 50 THEN;T //SendCommand(Command := CommandType.Media ,Value := 'Padlock K000367'); U END_IF VJ IF puzzleTimer.iProcess = 75 THEN;W //X Y4 CASE Client.ActualStep OFZ
3	[¬ 0: // determine if depending on the level of the game the calibration step is needed.\P IF Client.Level = Level.Beginner THEN;]6 Client.ActualStep := 30;^ ELSE_6 Client.ActualStep := 10;` 10:// a2 xHide_ijkpunt := FALSE;b: xHide_Text_Center := FALSE;c 20:dd 30: // Hide the ijkpunten Start van de visiongamee0 xHide_ijkpunt := TRUE;f8 xHide_Text_Center := TRUE;g4 xHide_Crosshair := TRUE;h4 xHide_Text_Top := FALSE;iÌ sInstructionString := 'Time To Start the Training Excersise, remember this is a battle simulation!';j 40:k2PACK_ML.State.Resetting :l" StateComplete();m0PACK_ML.State.Starting :n4PACK_ML.State.Completing :o0PACK_ML.State.Aborting :p.PACK_ML.State.Stopping:q2PACK_ML.State.Clearing : rEND_CASEs.//---- Emergency ----\\tVIF NOT x_EmergencyGF AND x_EmergencyFF THENu( //Emergency Abort.v Abort(); w8//---- State handling ----\\xLClient.ActualState := UM.CurrentState;y>messageQueue(Client := Client);zäpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);{PClient.Progress := puzzleTimer.iProcess;\|FIF puzzleTimer.iProcess >= 100 THEN} Stop();~InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}JFUNCTION_BLOCK VisionGameStateMachineVAR_IN_OUT. Client : PuzzleClient;END_VARVAR0 UM : PACK_ML.UnitMode; j xInit : BOOL := FALSE; // Flag for initialization: messageQueue : MessageQueue;6 puzzleTimer : PuzzleTimer;// 8xHide_Map : BOOL := TRUE ;<xHide_Leopold : BOOL := TRUE;>xHide_Leopold2 : BOOL := TRUE;<xHide_Zeeland : BOOL := TRUE;>xHide_Rotterdam : BOOL := TRUE;<xHide_Dolfijn : BOOL := TRUE;<xHide_ijkpunt : BOOL := TRUE;>xHide_Crosshair : BOOL := TRUE;<xHide_Text_Top : BOOL := TRUE;BxHide_Text_Center :BOOL := TRUE;<xHide_Button1 : BOOL := TRUE;<xHide_Button2 : BOOL := TRUE;:sInstructionString : STRING;"sButtonString : "UniqueIdGenerator432POULevelL{8e575c5b-1d37-49c6-941b-5c0ec7874787}Standard ChildObjectGuids8System.Collections.ArrayList,AddAttributeSubsequent boolÐÐ-ÐÐ E	3	[¬ 0: // determine if depending on the level of the game the calibration step is needed.\P IF Client.Level = Level.Beginner THEN;]6 Client.ActualStep := 30;^ ELSE_6 Client.ActualStep := 10;` 10:// a2 xHide_ijkpunt := FALSE;b: xHide_Text_Center := FALSE;c 20:dd 30: // Hide the ijkpunten Start van de visiongamee0 xHide_ijkpunt := TRUE;f8 xHide_Text_Center := TRUE;g4 xHide_Crosshair := TRUE;h4 xHide_Text_Top := FALSE;iÌ sInstructionString := 'Time To Start the Training Excersise, remember this is a battle simulation!';j 40:k2PACK_ML.State.Resetting :l" StateComplete();m0PACK_ML.State.Starting :n4PACK_ML.State.Completing :o0PACK_ML.State.Aborting :p.PACK_ML.State.Stopping:q2PACK_ML.State.Clearing : rEND_CASEs.//---- Emergency ----\\tVIF NOT x_EmergencyGF AND x_EmergencyFF THENu( //Emergency Abort.v Abort(); w8//---- State handling ----\\xLClient.ActualState := UM.CurrentState;y>messageQueue(Client := Client);zäpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);{PClient.Progress := puzzleTimer.iProcess;\|FIF puzzleTimer.iProcess >= 100 THEN} Stop();~InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}JFUNCTION_BLOCK VisionGameStateMachineVAR_IN_OUT. Client : PuzzleClient;END_VARVAR0 UM : PACK_ML.UnitMode; j xInit : BOOL := FALSE; // Flag for initialization: messageQueue : MessageQueue;6 puzzleTimer : PuzzleTimer;// 8xHide_Map : BOOL := TRUE ;<xHide_Leopold : BOOL := TRUE;>xHide_Leopold2 : BOOL := TRUE;<xHide_Zeeland : BOOL := TRUE;>xHide_Rotterdam : BOOL := TRUE;<xHide_Dolfijn : BOOL := TRUE;<xHide_ijkpunt : BOOL := TRUE;>xHide_Crosshair : BOOL := TRUE;<xHide_Text_Top : BOOL := TRUE;BxHide_Text_Center :BOOL := TRUE;<xHide_Button1 : BOOL := TRUE;<xHide_Button2 : BOOL := TRUE;<sInstructionString : STRING;>sInstructionString2 : STRING;2sButtonString1 : STRING;2sButtonString2 : STRING;"UniqueIdGenerator434POULevelL{8e575c5b-1d37-49c6-941b-5c0ec7874787}Standard ChildObjectGuids 8System.Collections.ArrayList¡,AddAttributeSubsequent¢boolÐÐ-ÐÐ E
4	ÐÐ $ÚÐ-ÐÐ %ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ lÚÐ-ÐÐ eÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ÚÐ- ÐÐ µÚÐ-!ÐÐ ´ÚÐ-"ÐÐ ÷ÚÐ-#ÐÐ ¶ÚÐ-$ÐÐ ·ÚÐ-%ÐÐ &ÚÐ-&ÐÐ ¯ÚÐ-'ÐÐ ©ÚÐ-(ÐÐ ÚÚÐ-)ÐÐ «ÚÐ-ÐÐ ¬ÚÐ-+ÐÐ ÚÐ-,ÐÐ ¹ÚÐ--ÐÐ ºÚÐ-.ÐÐ »ÚÐ-/ÐÐ ¾ÚÐ-0ÐÐ ¿ÚÐ-1ÐÐ ÀÚÐ-2ÐÐ ÁÚÐ-3ÐÐ ÂÚÐ-4ÐÐ ÃÚÐ-5ÐÐ ÄÚÐ-6ÐÐ ÅÚÐ-7ÐÐ ÆÚÐ-8ÐÐ ÇÚÐ-9ÐÐ ÈÚÐ-:ÐÐ ÉÚÐ-;ÐÐ ÎÚÐ-<ÐÐ ÏÚÐ-=ÐÐ ÐÚÐ->ÐÐ ÑÚÐ-?ÐÐ ¼ÚÐ-@ÐÐ ¸ÚÐ-'ÐÐ ½ÚÐ-AÐÐ ÚÐ-BÐÐ ÓÚÐ-ÐÐ ÕÚÐ-CÐÐ ÖÚÐ-DÐÐ ×ÚÐ-EÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-FÐÐ ÚÐ-ÐÐ ÚÐ-GÐÐ ÚÐ-HÐÐ ÚÐ-IÐÐ ÚÐ-JÐÐ ÚÐ-IÐÐ ÚÐ-KÐÐ ÚÐ-IÐÐ ÚÐ-LÐÐ ¦ÚÐ-IÐÐ ÚÐ-MÐÐ GÚÐ-AÐÐ [ÚÐ-NÐÐ \ÚÐ-AÐÐ ^ÚÐ-OÐÐ wÚÐ-PÐÐ xÚÐ-QÐÐ yÚÐ-RÐÐ zÚÐ-SÐÐ {ÚÐ-TÐÐ \|ÚÐ-UÐÐ }ÚÐ-VÐÐ ÚÐ-WÐÐ vÚÐ-RÐÐ ÚÐ-XÐÐ ]ÚÐ-BÐÐ ÚÐ-ÐÐ ÚÐ-YÐÐ ÚÐ-ZÐÐ ÚÐ-[ÐÐ ÚÐ-\ÐÐ ÚÐ-]ÐÐ ÚÐ-^ÐÐ ¡ÚÐ-_ÐÐ ÚÐ-'ÐÐ £ÚÐ-AÐÐ ÚÐ-`ÐÐ ®ÚÐ-aÐÐ ¯ÚÐ-bÐÐ °ÚÐ-AÐÐ ÚÐ-cÐÐ ÚÐ-dÐÐ ¥ÚÐ-eÐÐ ©ÚÐ-fÐÐ ªÚÐ-gÐÐ ¨ÚÐ-hÐÐ ÚÐ-ÐÐ ¬ÚÐ-AÐÐ «ÚÐ-iÐÐ ¦ÚÐ-ÐÐ §ÚÐ-ÐÐ ÚÐ-jÐÐ ÚÐ-ZÐÐ ÚÐ-BÐÐ üÚÐ-IÐÐ þÚÐ-kÐÐ ÚÐ-lÐÐ ÚÐ-mÐÐ ÚÐ-lÐÐ RÚÐ-nÐÐ ÚÐ-lÐÐ UÚÐ-oÐÐ !ÚÐ-lÐÐ WÚÐ-pÐÐ "ÚÐ-lÐÐ [ÚÐ-qÐÐ #ÚÐ-lÐÐ ÚÐ-rÐÐ +ÚÐ-ÐÐ ,ÚÐ-sÐÐ gÚÐ-ÐÐ CÚÐ-tÐÐ DÚÐ-uÐÐ EÚÐ-vÐÐ hÚÐ-ÐÐ -ÚÐ-ÐÐ .ÚÐ-wÐÐ ÚÐ-ÐÐ fÚÐ-xÐÐ ÚÐ-ÐÐ ÚÐ-yÐÐ (ÚÐ-ÐÐ ÚÐ-zÐÐ ÚÐ-ÐÐ ÚÐ-{ÐÐ ÚÐ-ÐÐ ÚÐ-\|ÐÐ ÚÐ-}ÐÐ ÚÐ-ÐÐ oÚÐ-ÐÐ lÚÐ-ÐÐ kÚÐ-ÐÐ eÚÐ-ÐÐ dÚÐ-Ð~Ð E	4	ÐÐ $ÚÐ-ÐÐ %ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ lÚÐ-ÐÐ eÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ÚÐ- ÐÐ µÚÐ-!ÐÐ ´ÚÐ-"ÐÐ ÷ÚÐ-#ÐÐ ¶ÚÐ-$ÐÐ ·ÚÐ-%ÐÐ &ÚÐ-&ÐÐ ¯ÚÐ-'ÐÐ ©ÚÐ-(ÐÐ ÚÚÐ-)ÐÐ «ÚÐ-ÐÐ ¬ÚÐ-+ÐÐ ÚÐ-,ÐÐ ¹ÚÐ--ÐÐ ºÚÐ-.ÐÐ »ÚÐ-/ÐÐ ¾ÚÐ-0ÐÐ ¿ÚÐ-1ÐÐ ÀÚÐ-2ÐÐ ÁÚÐ-3ÐÐ ÂÚÐ-4ÐÐ ÃÚÐ-5ÐÐ ÄÚÐ-6ÐÐ ÅÚÐ-7ÐÐ ÆÚÐ-8ÐÐ ÇÚÐ-9ÐÐ ÈÚÐ-:ÐÐ ÉÚÐ-;ÐÐ ÎÚÐ-<ÐÐ ÏÚÐ-=ÐÐ ÐÚÐ->ÐÐ ÑÚÐ-?ÐÐ ¼ÚÐ-@ÐÐ ¸ÚÐ-'ÐÐ ½ÚÐ-AÐÐ ÚÐ-BÐÐ ÓÚÐ-ÐÐ ÕÚÐ-CÐÐ ÖÚÐ-DÐÐ ×ÚÐ-EÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-FÐÐ ÚÐ-ÐÐ ÚÐ-GÐÐ ÚÐ-HÐÐ ÚÐ-IÐÐ ÚÐ-JÐÐ ÚÐ-IÐÐ ÚÐ-KÐÐ ÚÐ-IÐÐ ÚÐ-LÐÐ ¦ÚÐ-IÐÐ ÚÐ-MÐÐ GÚÐ-AÐÐ [ÚÐ-NÐÐ \ÚÐ-AÐÐ ^ÚÐ-OÐÐ wÚÐ-PÐÐ xÚÐ-QÐÐ yÚÐ-RÐÐ zÚÐ-SÐÐ {ÚÐ-TÐÐ \|ÚÐ-UÐÐ }ÚÐ-VÐÐ ÚÐ-WÐÐ vÚÐ-RÐÐ ÚÐ-XÐÐ ]ÚÐ-BÐÐ ÚÐ-ÐÐ ÚÐ-YÐÐ ÚÐ-ZÐÐ ÚÐ-[ÐÐ ÚÐ-\ÐÐ ÚÐ-]ÐÐ ÚÐ-^ÐÐ ¡ÚÐ-_ÐÐ ÚÐ-'ÐÐ £ÚÐ-AÐÐ ÚÐ-`ÐÐ ®ÚÐ-aÐÐ ¯ÚÐ-bÐÐ °ÚÐ-AÐÐ ÚÐ-cÐÐ ÚÐ-dÐÐ ¥ÚÐ-eÐÐ ©ÚÐ-fÐÐ ªÚÐ-gÐÐ ¨ÚÐ-hÐÐ ÚÐ-ÐÐ ¬ÚÐ-AÐÐ «ÚÐ-iÐÐ ¦ÚÐ-ÐÐ §ÚÐ-ÐÐ ÚÐ-jÐÐ ÚÐ-ZÐÐ ÚÐ-BÐÐ üÚÐ-IÐÐ þÚÐ-kÐÐ ÚÐ-lÐÐ ÚÐ-mÐÐ ÚÐ-lÐÐ RÚÐ-nÐÐ ÚÐ-lÐÐ UÚÐ-oÐÐ !ÚÐ-lÐÐ WÚÐ-pÐÐ "ÚÐ-lÐÐ [ÚÐ-qÐÐ #ÚÐ-lÐÐ ÚÐ-rÐÐ +ÚÐ-ÐÐ ,ÚÐ-sÐÐ gÚÐ-ÐÐ CÚÐ-tÐÐ DÚÐ-uÐÐ EÚÐ-vÐÐ hÚÐ-ÐÐ -ÚÐ-ÐÐ .ÚÐ-wÐÐ ÚÐ-ÐÐ fÚÐ-xÐÐ ÚÐ-ÐÐ ÚÐ-yÐÐ (ÚÐ-ÐÐ ÚÐ-zÐÐ ÚÐ-ÐÐ ÚÐ-{ÐÐ ÚÐ-ÐÐ ÚÐ-\|ÐÐ ÚÐ-}ÐÐ ÚÐ-ÐÐ oÚÐ-ÐÐ lÚÐ-ÐÐ kÚÐ-ÐÐ eÚÐ-ÐÐ dÚÐ-Ð~Ð E
5	#ÐÐ /ÚÐ-ÐÐ 0ÚÐ-ÐÐ 1ÚÐ-ÐÐ 2ÚÐ-ÐÐ 3ÚÐ-ÐÐ 4ÚÐ-ÐÐ 5ÚÐ-ÐÐ 6ÚÐ-ÐÐ 7ÚÐ-ÐÐ 8ÚÐ-ÐÐ 9ÚÐ-ÐÐ :ÚÐ-ÐÐ HÚÐ-ÐÐ IÚÐ-ÐÐ JÚÐ-ÐÐ LÚÐ-ÐÐ MÚÐ-ÐÐ TÚÐ-ÐÐ NÚÐ-ÐÐ OÚÐ-ÐÐ PÚÐ-ÐÐ QÚÐ-ÐÐ RÚÐ-ÐÐ UÚÐ-ÐÐ VÚÐ-ÐÐ XÚÐ-ÐÐ YÚÐ-ÐÐ ÚÐ-ÐÐ ZÚÐ-ÐÐ ÚÐ-ÐÐ WÚÐ-ÐÐ SÚÐ-ÐÐ ;ÚÐ-ÐÐ <ÚÐ-ÐÐ ÚÐ-Ð-Ð-Ð	5	%ÐÐ /ÚÐ-ÐÐ 0ÚÐ-ÐÐ 1ÚÐ-ÐÐ 2ÚÐ-ÐÐ 3ÚÐ-ÐÐ 4ÚÐ-ÐÐ 5ÚÐ-ÐÐ 6ÚÐ-ÐÐ 7ÚÐ-ÐÐ 8ÚÐ-ÐÐ 9ÚÐ-ÐÐ :ÚÐ-ÐÐ HÚÐ-ÐÐ IÚÐ-ÐÐ JÚÐ-ÐÐ LÚÐ-ÐÐ MÚÐ-ÐÐ TÚÐ-ÐÐ NÚÐ-ÐÐ OÚÐ-ÐÐ PÚÐ-ÐÐ QÚÐ-ÐÐ RÚÐ-ÐÐ UÚÐ-ÐÐ VÚÐ-ÐÐ XÚÐ-ÐÐ YÚÐ-ÐÐ ÚÐ-ÐÐ ZÚÐ-ÐÐ ²ÚÐ-ÐÐ ÚÐ-ÐÐ ±ÚÐ-ÐÐ WÚÐ-ÐÐ SÚÐ-ÐÐ ;ÚÐ-ÐÐ <ÚÐ-ÐÐ ÚÐ-Ð-Ð- Ð¡¢