EscapeRoom

2-pre-alpha

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

MIT License

Diff of /branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj [r11] .. [r12] Maximize Restore

Switch to unified view


Gx_l–?!0…jüo=*=äø1õ¯q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$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4IF Client.bReadyToPLC THEN:   CASE Client.iCommandToPLC OF" 0 :    //Handshake   1 :    //Lock’       IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) =  0 THEN;     2       Lock_CO_Match := TRUE;!       "˜       ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) =  0 THEN ; #2       //Second Lock Function$
          ; %    END_IF& 2 :    //Key    ' 3 :    //IO( 4 :    //Media)   5 :    //Hint* 6 :    //State +l    IF SysStrCmp(Client.sCommandToPLC, 'SC') =  0 THEN      ,&       StateComplete();-x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') =  0 THEN      .       Start();/v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') =  0 THEN    0       Stop();1x      ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') =  0 THEN      2       Reset();3x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') =  0 THEN      4       Abort();5x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') =  0 THEN      6       Clear();7v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') =  0 THEN    8       Hold();9z      ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') =  0 THEN    :       Unhold(); ;|    ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') =  0 THEN      <       Suspend();=       ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') =  0 THEN      >       UnSuspend();?    @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C:   Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :K4   CASE Client.ActualStep OFL   0: // abortedMJ      LaserGamePuzzle := PACK_ML.Aborted;N:      DO_Storing_Light := bl.OUT;O     IF DI_Init AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN               P6       Client.ActualStep := 10;Q8       DO_Storing_Light := TRUE;R   10: // StoppedSJ    LaserGamePuzzle := PACK_ML.Stopped;T4      DO_HintLaser_ON := TRUE;U\    IF DI_Reset AND NOT DI_Auto_Hand_Switch THENV6       Client.ActualStep := 20;W6       DO_HintLaser_ON := TRUE;X@       DO_Storing_Light := FALSE;         Y    END_IF      ZB    IF NOT DI_NoodstopCabinet THEN;[4         Client.ActualStep := 0;\8         DO_HintLaser_ON := FALSE;]   20: // Idle^D      LaserGamePuzzle := PACK_ML.Idle;_B    DO_In_Bedrijf_Light := bl2.OUT;`x      r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);a&    IF r_trig.Q THEN   b>       DO_In_Bedrijf_Light := TRUE;c0       DO_Laser_ON := TRUE;   d8       Client.ActualStep := 30;   eļ          SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]);   // cabinet enabledf*    IF NOT DI_Stop THENg:         Client.ActualStep := 10;      hB       DO_In_Bedrijf_Light := FALSE; i0       DO_Laser_ON := FALSE;j   30: // ExecutekJ    LaserGamePuzzle := PACK_ML.Execute;l:      ton(PT := T#2M,IN := TRUE);mJ      IF Lock_CO_Match THEN          //OR ton.Qn0       StateComplete();               o@       DO_In_Bedrijf_Light := FALSE;p      END_IF   q END_CASE r^   DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;sD IF puzzleTimer.iProcess = 50 THENt@      IF Client.ActualStep < 30 THENuē          SendCommand(Command := CommandType.Hint ,Value := 'Make sure to enable the cabinet.');v    ELSE w        SendCommand(Command := CommandType.Hint ,Value := 'Show the number 234!');      x END_IFyR Client.Progress := puzzleTimer.iProcess;z {2PACK_ML.State.Resetting :|. Client.Progress := 0; }< DO_In_Bedrijf_Light := FALSE;~6   DO_Storing_Light := FALSE;< DO_Auto_Hand_Light := FALSE;   8    DO_Spanning_Light := FALSE;,  DO_Laser_ON := FALSE;:  KEY_puzzleFinished := FALSE;"    StateComplete();0PACK_ML.State.Starting :6 DO_Spanning_Light := TRUE;4PACK_ML.State.Completing :Ė    SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]); // Key to unlock the next thing   0    Client.Progress := 100;0PACK_ML.State.Aborting :4   DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN(  // Emergency Abort.  Abort();   END_IF LClient.ActualState := UM.CurrentState;äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);FIF puzzleTimer.iProcess >= 100 THEN   Stop();rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}@FUNCTION_BLOCK LaserStateMachineVAR_IN_OUT.    Client : PuzzleClient;END_VARVAR8  UM               : PACK_ML.UnitMode;  (    r_trig            : R_TRIG;Ąl  xInit          : BOOL := FALSE; // Flag for initialization Ē<    puzzleTimer       : PuzzleTimer;   Ģ"    bl              : blink;Ī"    bl2             : blink;Ĩ     ton             : TON;   Ķ8    KEY_puzzleFinished  : BOOL;§2  Key_CO_Panel_On    : BOOL;Ļ.  Lock_CO_Match    : BOOL;ĐL  //DI_NoodstopCabinet   : BOOL   := TRUE ;Š"UniqueIdGeneratorŦ524Ž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ÐÐ
­uÚÐ-FÐÐ
­ÚÐ-GÐÐ
­vÚÐ-FÐÐ
­ÚÐ-HÐÐ
­wÚÐ-FÐÐ
­ ÚÐ-IÐÐ
­¦ÚÐ-FÐÐ
­ÚÐ-JÐÐ
­rÚÐ-ÐÐ
­üÚÐ-KÐÐ
­FÚÐ-LÐÐ
­ÚÐ-MÐÐ
­IÚÐ-NÐÐ
­PÚÐ-OÐÐ
­QÚÐ-PÐÐ
­sÚÐ-QÐÐ
­RÚÐ-%ÐÐ
­SÚÐ-RÐÐ
­
ÚÐ-SÐÐ
­îÚÐ-TÐÐ
­tÚÐ-UÐÐ
­]ÚÐ-VÐÐ
­êÚÐ-WÐÐ
­ÍÚÐ-XÐÐ
­ªÚÐ-YÐÐ
­ðÚÐ-ZÐÐ
­ôÚÐ-[ÐÐ
­õÚÐ-\ÐÐ
­óÚÐ-%ÐÐ
­ñÚÐ-?ÐÐ
­YÚÐ-]ÐÐ
­ÚÐ-^ÐÐ
­´ÚÐ-_ÐÐ
­ÙÚÐ-`ÐÐ
­ÚÚÐ-?ÐÐ
­\ÚÐ-aÐÐ
­ÝÚÐ-bÐÐ
­ÚÐ-cÐÐ
­aÚÐ-dÐÐ
­£ÚÐ-eÐÐ
­¬ÚÐ-%ÐÐ
­­ÚÐ-fÐÐ
­±ÚÐ-gÐÐ
­²ÚÐ-hÐÐ
­×ÚÐ-iÐÐ
­ìÚÐ-\ÐÐ
­`ÚÐ-%ÐÐ
­÷ÚÐ-ZÐÐ
­øÚÐ-[ÐÐ
­ùÚÐ-\ÐÐ
­úÚÐ-iÐÐ
­ûÚÐ-\ÐÐ
­öÚÐ-%ÐÐ
­bÚÐ-jÐÐ
­ÚÐ-kÐÐ
­¹ÚÐ-lÐÐ
­ÚÐ-mÐÐ
­ÚÐ-nÐÐ
­fÚÐ-%ÐÐ
­ÓÚÐ-ÐÐ
­ÔÚÐ-fÐÐ
­ÕÚÐ-gÐÐ
­ÖÚÐ-oÐÐ
­ØÚÐ-iÐÐ
­ëÚÐ-\ÐÐ
­ÒÚÐ-pÐÐ
­ÚÐ-ZÐÐ
­ÚÐ-[ÐÐ
­ÚÐ-\ÐÐ
­ÚÐ-iÐÐ
­ÚÐ-\ÐÐ
­JÚÐ-%ÐÐ
­GÚÐ-qÐÐ
­ÚÐ-rÐÐ
­³ÚÐ-ÐÐ
­¦ÚÐ-sÐÐ
­ÚÐ-tÐÐ
­ÚÐ-uÐÐ
­ÚÐ-vÐÐ
­¢ÚÐ-wÐÐ
­ÚÐ-%ÐÐ
­ÚÐ-xÐÐ
­áÚÐ-ÐÐ
­âÚÐ-ÐÐ
­àÚÐ-yÐÐ
­ÚÐ-zÐÐ
­ÚÐ-ÐÐ
­çÚÐ-{ÐÐ
­þÚÐ-|ÐÐ
­xÚÐ-}ÐÐ
­{ÚÐ-~ÐÐ
­ÚÐ-ÐÐ
­}ÚÐ-ÐÐ
­¾ÚÐ-ÐÐ
­6ÚÐ-ÐÐ
­ÜÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­;ÚÐ-ÐÐ
­ãÚÐ-ÐÐ
­ÚÐ-ÐÐ
­RÚÐ-ÐÐ
­<ÚÐ-ÐÐ
­.ÚÐ-ÐÐ
­ÅÚÐ-}ÐÐ
­ÆÚÐ-ÐÐ
­ÇÚÐ-ÐÐ
­ÈÚÐ-ÐÐ
­¿ÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­åÚÐ-ÐÐ
­WÚÐ-ÐÐ
­ÉÚÐ-}ÐÐ
­ÊÚÐ-ÐÐ
­ËÚÐ-ÐÐ
­ÌÚÐ-ÐÐ
­·ÚÐ-ÐÐ
­>ÚÐ-ÐÐ
­[ÚÐ-ÐÐ
­?ÚÐ-ÐÐ
­   ÚÐ-ÐÐ
­gÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­hÚÐ-ÐÐ
­ÚÐ-ÐÐ
­fÚÐ-ÐÐ
­(ÚÐ-ÐÐ
­)ÚÐ-ÐÐ
­1ÚÐ-ÐÐ
­0ÚÐ-ÐÐ
­2ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­NÚÐ-ÐÐ
­#ÚÐ-ÐÐ
­¶ÚÐ-ÐÐ  E
ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÛÚÐ- ÐÐ
­ÚÐ-¡ÐÐ
­%ÚÐ-¢ÐÐ
­LÚÐ-£ÐÐ
­ÚÐ-¤ÐÐ
­»ÚÐ-¥ÐÐ
­¥ÚÐ-¦ÐÐ
­þÚÐ-§ÐÐ
­ýÚÐ-¨ÐÐ
­MÚÐ-©ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-Ðª-«Ð¬­-®¯°Ð±²­

	a/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj		b/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj
1	Gx_lü=!0…jüo)pàÅ5(ä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–?!0…jüo=*=äø1õ¯qSystem.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 longTagText$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_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock’ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN; 2 Lock_CO_Match := TRUE;! "˜ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN ; #2 //Second Lock Function$	2	TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id longTagText$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_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock’ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN; 2 Lock_CO_Match := TRUE;! "˜ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN ; #2 //Second Lock Function$
3	; % END_IF& 2 : //Key ' 3 : //IO( 4 : //Media) 5 : //Hint* 6 : //State +l IF SysStrCmp(Client.sCommandToPLC, 'SC') = 0 THEN ,& StateComplete();-x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN . Start();/v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 0 Stop();1x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 2 Reset();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 4 Abort();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 6 Clear();7v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN 8 Hold();9z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN : Unhold(); ;\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN < Suspend();= ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN > UnSuspend();? @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C: Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :K4 CASE Client.ActualStep OFL 0: // abortedM: DO_Storing_Light := bl.OUT;N IF DI_Init AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN O6 Client.ActualStep := 10;P8 DO_Storing_Light := TRUE;Q 10: // StoppedR4 DO_HintLaser_ON := TRUE;S\ IF DI_Reset AND NOT DI_Auto_Hand_Switch THENT6 Client.ActualStep := 20;U6 DO_HintLaser_ON := TRUE;V@ DO_Storing_Light := FALSE; W END_IF XB IF NOT DI_NoodstopCabinet THEN;Y4 Client.ActualStep := 0;Z8 DO_HintLaser_ON := FALSE;[ 20: // Idle\B DO_In_Bedrijf_Light := bl2.OUT;]x r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);^& IF r_trig.Q THEN _> DO_In_Bedrijf_Light := TRUE;`0 DO_Laser_ON := TRUE; a8 Client.ActualStep := 30; b¸ SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]); // cabinet enabledc* IF NOT DI_Stop THENd: Client.ActualStep := 10; eB DO_In_Bedrijf_Light := FALSE; f0 DO_Laser_ON := FALSE;g 30: // Executeh: ton(PT := T#2M,IN := TRUE);iJ IF Lock_CO_Match THEN //OR ton.Qj0 StateComplete(); k@ DO_In_Bedrijf_Light := FALSE;l END_IF m END_CASE n^ DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;oD IF puzzleTimer.iProcess = 50 THENp@ IF Client.ActualStep < 30 THENq² SendCommand(Command := CommandType.Hint ,Value := 'Make sure to enable the cabinet.');r ELSE s SendCommand(Command := CommandType.Hint ,Value := 'Show the number 234!'); t END_IFuR Client.Progress := puzzleTimer.iProcess;v w2PACK_ML.State.Resetting :x. Client.Progress := 0; y< DO_In_Bedrijf_Light := FALSE;z6 DO_Storing_Light := FALSE;{< DO_Auto_Hand_Light := FALSE; \|8 DO_Spanning_Light := FALSE;}, DO_Laser_ON := FALSE;~: KEY_puzzleFinished := FALSE;" StateComplete();0PACK_ML.State.Starting :6 DO_Spanning_Light := TRUE;4PACK_ML.State.Completing :Ì SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]); // Key to unlock the next thing 0 Client.Progress := 100;0PACK_ML.State.Aborting :4 DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN( // Emergency Abort. Abort(); END_IF LClient.ActualState := UM.CurrentState;äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);FIF puzzleTimer.iProcess >= 100 THEN Stop();rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}@FUNCTION_BLOCK LaserStateMachineVAR_IN_OUT. Client : PuzzleClient;END_VARVAR8 UM : PACK_ML.UnitMode; ( r_trig : R_TRIG;l xInit : BOOL := FALSE; // Flag for initialization < puzzleTimer : PuzzleTimer; " bl : blink; " bl2 : blink;¡ ton : TON; ¢8 KEY_puzzleFinished : BOOL;£2 Key_CO_Panel_On : BOOL;¤. Lock_CO_Match : BOOL;¥L //DI_NoodstopCabinet : BOOL := TRUE ;¦"UniqueIdGenerator§518¨POULevel©L{8e575c5b-1d37-49c6-941b-5c0ec7874787}ªStandard« ChildObjectGuids¬8System.Collections.ArrayList,AddAttributeSubsequent®boolÐÐ-ÐÐ E	3	; % END_IF& 2 : //Key ' 3 : //IO( 4 : //Media) 5 : //Hint* 6 : //State +l IF SysStrCmp(Client.sCommandToPLC, 'SC') = 0 THEN ,& StateComplete();-x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN . Start();/v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 0 Stop();1x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 2 Reset();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 4 Abort();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 6 Clear();7v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN 8 Hold();9z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN : Unhold(); ;\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN < Suspend();= ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN > UnSuspend();? @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C: Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :K4 CASE Client.ActualStep OFL 0: // abortedMJ LaserGamePuzzle := PACK_ML.Aborted;N: DO_Storing_Light := bl.OUT;O IF DI_Init AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN P6 Client.ActualStep := 10;Q8 DO_Storing_Light := TRUE;R 10: // StoppedSJ LaserGamePuzzle := PACK_ML.Stopped;T4 DO_HintLaser_ON := TRUE;U\ IF DI_Reset AND NOT DI_Auto_Hand_Switch THENV6 Client.ActualStep := 20;W6 DO_HintLaser_ON := TRUE;X@ DO_Storing_Light := FALSE; Y END_IF ZB IF NOT DI_NoodstopCabinet THEN;[4 Client.ActualStep := 0;\8 DO_HintLaser_ON := FALSE;] 20: // Idle^D LaserGamePuzzle := PACK_ML.Idle;_B DO_In_Bedrijf_Light := bl2.OUT;`x r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);a& IF r_trig.Q THEN b> DO_In_Bedrijf_Light := TRUE;c0 DO_Laser_ON := TRUE; d8 Client.ActualStep := 30; eļ SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]); // cabinet enabledf* IF NOT DI_Stop THENg: Client.ActualStep := 10; hB DO_In_Bedrijf_Light := FALSE; i0 DO_Laser_ON := FALSE;j 30: // ExecutekJ LaserGamePuzzle := PACK_ML.Execute;l: ton(PT := T#2M,IN := TRUE);mJ IF Lock_CO_Match THEN //OR ton.Qn0 StateComplete(); o@ DO_In_Bedrijf_Light := FALSE;p END_IF q END_CASE r^ DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;sD IF puzzleTimer.iProcess = 50 THENt@ IF Client.ActualStep < 30 THENuē SendCommand(Command := CommandType.Hint ,Value := 'Make sure to enable the cabinet.');v ELSE w SendCommand(Command := CommandType.Hint ,Value := 'Show the number 234!'); x END_IFyR Client.Progress := puzzleTimer.iProcess;z {2PACK_ML.State.Resetting :\|. Client.Progress := 0; }< DO_In_Bedrijf_Light := FALSE;~6 DO_Storing_Light := FALSE;< DO_Auto_Hand_Light := FALSE; 8 DO_Spanning_Light := FALSE;, DO_Laser_ON := FALSE;: KEY_puzzleFinished := FALSE;" StateComplete();0PACK_ML.State.Starting :6 DO_Spanning_Light := TRUE;4PACK_ML.State.Completing :Ė SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[1]); // Key to unlock the next thing 0 Client.Progress := 100;0PACK_ML.State.Aborting :4 DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN( // Emergency Abort. Abort(); END_IF LClient.ActualState := UM.CurrentState;äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);FIF puzzleTimer.iProcess >= 100 THEN Stop();rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}@FUNCTION_BLOCK LaserStateMachineVAR_IN_OUT. Client : PuzzleClient;END_VARVAR8 UM : PACK_ML.UnitMode; ( r_trig : R_TRIG;Ąl xInit : BOOL := FALSE; // Flag for initialization Ē< puzzleTimer : PuzzleTimer; Ģ" bl : blink;Ī" bl2 : blink;Ĩ ton : TON; Ķ8 KEY_puzzleFinished : BOOL;§2 Key_CO_Panel_On : BOOL;Ļ. Lock_CO_Match : BOOL;ĐL //DI_NoodstopCabinet : BOOL := TRUE ;Š"UniqueIdGeneratorŦ524ŽPOULevelL{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ÐÐ uÚÐ-FÐÐ ÚÐ-GÐÐ vÚÐ-FÐÐ ÚÐ-HÐÐ wÚÐ-FÐÐ ÚÐ-IÐÐ ¦ÚÐ-FÐÐ ÚÐ-JÐÐ rÚÐ-ÐÐ üÚÐ-KÐÐ FÚÐ-LÐÐ IÚÐ-MÐÐ PÚÐ-NÐÐ QÚÐ-OÐÐ sÚÐ-PÐÐ RÚÐ-%ÐÐ SÚÐ-QÐÐ îÚÐ-RÐÐ tÚÐ-SÐÐ ]ÚÐ-TÐÐ êÚÐ-UÐÐ ÍÚÐ-VÐÐ ªÚÐ-WÐÐ ðÚÐ-XÐÐ ôÚÐ-YÐÐ õÚÐ-ZÐÐ óÚÐ-%ÐÐ ñÚÐ-?ÐÐ YÚÐ-[ÐÐ ´ÚÐ-\ÐÐ ÙÚÐ-]ÐÐ ÚÚÐ-?ÐÐ \ÚÐ-^ÐÐ ÝÚÐ-_ÐÐ ÚÐ-`ÐÐ aÚÐ-aÐÐ £ÚÐ-bÐÐ ¬ÚÐ-%ÐÐ ÚÐ-cÐÐ ±ÚÐ-dÐÐ ²ÚÐ-eÐÐ ×ÚÐ-fÐÐ ìÚÐ-ZÐÐ `ÚÐ-%ÐÐ ÷ÚÐ-XÐÐ øÚÐ-YÐÐ ùÚÐ-ZÐÐ úÚÐ-fÐÐ ûÚÐ-ZÐÐ öÚÐ-%ÐÐ bÚÐ-gÐÐ ¹ÚÐ-hÐÐ ÚÐ-iÐÐ ÚÐ-jÐÐ fÚÐ-%ÐÐ ÓÚÐ-ÐÐ ÔÚÐ-cÐÐ ÕÚÐ-dÐÐ ÖÚÐ-kÐÐ ØÚÐ-fÐÐ ëÚÐ-ZÐÐ ÒÚÐ-lÐÐ ÚÐ-XÐÐ ÚÐ-YÐÐ ÚÐ-ZÐÐ ÚÐ-fÐÐ ÚÐ-ZÐÐ JÚÐ-%ÐÐ GÚÐ-mÐÐ ÚÐ-nÐÐ ³ÚÐ-ÐÐ ¦ÚÐ-oÐÐ ÚÐ-pÐÐ ÚÐ-qÐÐ ÚÐ-rÐÐ ¢ÚÐ-sÐÐ ÚÐ-%ÐÐ ÚÐ-tÐÐ áÚÐ-ÐÐ âÚÐ-ÐÐ àÚÐ-uÐÐ ÚÐ-vÐÐ ÚÐ-ÐÐ çÚÐ-wÐÐ þÚÐ-xÐÐ xÚÐ-yÐÐ {ÚÐ-zÐÐ ÚÐ-{ÐÐ }ÚÐ-\|ÐÐ ¾ÚÐ-}ÐÐ 6ÚÐ-~ÐÐ ÜÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ;ÚÐ-ÐÐ ãÚÐ-ÐÐ ÚÐ-ÐÐ RÚÐ-ÐÐ <ÚÐ-ÐÐ .ÚÐ-ÐÐ ÅÚÐ-yÐÐ ÆÚÐ-ÐÐ ÇÚÐ-{ÐÐ ÈÚÐ-\|ÐÐ ¿ÚÐ-}ÐÐ =ÚÐ-ÐÐ åÚÐ-ÐÐ WÚÐ-ÐÐ ÉÚÐ-yÐÐ ÊÚÐ-ÐÐ ËÚÐ-{ÐÐ ÌÚÐ-ÐÐ ·ÚÐ-}ÐÐ >ÚÐ-ÐÐ [ÚÐ-ÐÐ ?ÚÐ-ÐÐ ÚÐ-ÐÐ gÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ hÚÐ-ÐÐ ÚÐ-ÐÐ fÚÐ-ÐÐ (ÚÐ-ÐÐ )ÚÐ-ÐÐ 1ÚÐ-ÐÐ 0ÚÐ-ÐÐ 2ÚÐ-ÐÐ 3ÚÐ-ÐÐ +ÚÐ-ÐÐ NÚÐ-ÐÐ #ÚÐ-ÐÐ ¶ÚÐ-ÐÐ E	4	ËÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ lÚÐ-ÐÐ eÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ÚÐ-ÐÐ µÚÐ-ÐÐ ´ÚÐ- ÐÐ ÷ÚÐ-!ÐÐ ¶ÚÐ-"ÐÐ ·ÚÐ-#ÐÐ øÚÐ-$ÐÐ ¯ÚÐ-%ÐÐ ©ÚÐ-&ÐÐ üÚÐ-ÐÐ ªÚÐ-'ÐÐ «ÚÐ-(ÐÐ ¬ÚÐ-)ÐÐ ÚÐ-*ÐÐ ¹ÚÐ-+ÐÐ ºÚÐ-,ÐÐ »ÚÐ--ÐÐ ¾ÚÐ-.ÐÐ ¿ÚÐ-/ÐÐ ÀÚÐ-0ÐÐ ÁÚÐ-1ÐÐ ÂÚÐ-2ÐÐ ÃÚÐ-3ÐÐ ÄÚÐ-4ÐÐ ÅÚÐ-5ÐÐ ÆÚÐ-6ÐÐ ÇÚÐ-7ÐÐ ÈÚÐ-8ÐÐ ÉÚÐ-9ÐÐ ÎÚÐ-:ÐÐ ÏÚÐ-;ÐÐ ÐÚÐ-<ÐÐ ÑÚÐ-=ÐÐ ¼ÚÐ->ÐÐ ¸ÚÐ-%ÐÐ ½ÚÐ-?ÐÐ ÚÐ-@ÐÐ ÓÚÐ-ÐÐ ÕÚÐ-AÐÐ ÖÚÐ-BÐÐ ×ÚÐ-CÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-DÐÐ ÚÐ-EÐÐ uÚÐ-FÐÐ ÚÐ-GÐÐ vÚÐ-FÐÐ ÚÐ-HÐÐ wÚÐ-FÐÐ ÚÐ-IÐÐ ¦ÚÐ-FÐÐ ÚÐ-JÐÐ rÚÐ-ÐÐ üÚÐ-KÐÐ FÚÐ-LÐÐ ÚÐ-MÐÐ IÚÐ-NÐÐ PÚÐ-OÐÐ QÚÐ-PÐÐ sÚÐ-QÐÐ RÚÐ-%ÐÐ SÚÐ-RÐÐ
		5	ÚÐ-SÐÐ îÚÐ-TÐÐ tÚÐ-UÐÐ ]ÚÐ-VÐÐ êÚÐ-WÐÐ ÍÚÐ-XÐÐ ªÚÐ-YÐÐ ðÚÐ-ZÐÐ ôÚÐ-[ÐÐ õÚÐ-\ÐÐ óÚÐ-%ÐÐ ñÚÐ-?ÐÐ YÚÐ-]ÐÐ ÚÐ-^ÐÐ ´ÚÐ-_ÐÐ ÙÚÐ-`ÐÐ ÚÚÐ-?ÐÐ \ÚÐ-aÐÐ ÝÚÐ-bÐÐ ÚÐ-cÐÐ aÚÐ-dÐÐ £ÚÐ-eÐÐ ¬ÚÐ-%ÐÐ ÚÐ-fÐÐ ±ÚÐ-gÐÐ ²ÚÐ-hÐÐ ×ÚÐ-iÐÐ ìÚÐ-\ÐÐ `ÚÐ-%ÐÐ ÷ÚÐ-ZÐÐ øÚÐ-[ÐÐ ùÚÐ-\ÐÐ úÚÐ-iÐÐ ûÚÐ-\ÐÐ öÚÐ-%ÐÐ bÚÐ-jÐÐ ÚÐ-kÐÐ ¹ÚÐ-lÐÐ ÚÐ-mÐÐ ÚÐ-nÐÐ fÚÐ-%ÐÐ ÓÚÐ-ÐÐ ÔÚÐ-fÐÐ ÕÚÐ-gÐÐ ÖÚÐ-oÐÐ ØÚÐ-iÐÐ ëÚÐ-\ÐÐ ÒÚÐ-pÐÐ ÚÐ-ZÐÐ ÚÐ-[ÐÐ ÚÐ-\ÐÐ ÚÐ-iÐÐ ÚÐ-\ÐÐ JÚÐ-%ÐÐ GÚÐ-qÐÐ ÚÐ-rÐÐ ³ÚÐ-ÐÐ ¦ÚÐ-sÐÐ ÚÐ-tÐÐ ÚÐ-uÐÐ ÚÐ-vÐÐ ¢ÚÐ-wÐÐ ÚÐ-%ÐÐ ÚÐ-xÐÐ áÚÐ-ÐÐ âÚÐ-ÐÐ àÚÐ-yÐÐ ÚÐ-zÐÐ ÚÐ-ÐÐ çÚÐ-{ÐÐ þÚÐ-\|ÐÐ xÚÐ-}ÐÐ {ÚÐ-~ÐÐ ÚÐ-ÐÐ }ÚÐ-ÐÐ ¾ÚÐ-ÐÐ 6ÚÐ-ÐÐ ÜÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ;ÚÐ-ÐÐ ãÚÐ-ÐÐ ÚÐ-ÐÐ RÚÐ-ÐÐ <ÚÐ-ÐÐ .ÚÐ-ÐÐ ÅÚÐ-}ÐÐ ÆÚÐ-ÐÐ ÇÚÐ-ÐÐ ÈÚÐ-ÐÐ ¿ÚÐ-ÐÐ =ÚÐ-ÐÐ åÚÐ-ÐÐ WÚÐ-ÐÐ ÉÚÐ-}ÐÐ ÊÚÐ-ÐÐ ËÚÐ-ÐÐ ÌÚÐ-ÐÐ ·ÚÐ-ÐÐ >ÚÐ-ÐÐ [ÚÐ-ÐÐ ?ÚÐ-ÐÐ ÚÐ-ÐÐ gÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ hÚÐ-ÐÐ ÚÐ-ÐÐ fÚÐ-ÐÐ (ÚÐ-ÐÐ )ÚÐ-ÐÐ 1ÚÐ-ÐÐ 0ÚÐ-ÐÐ 2ÚÐ-ÐÐ 3ÚÐ-ÐÐ +ÚÐ-ÐÐ NÚÐ-ÐÐ #ÚÐ-ÐÐ ¶ÚÐ-ÐÐ E
5	ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÛÚÐ-ÐÐ ÚÐ-ÐÐ %ÚÐ-ÐÐ LÚÐ-ÐÐ ÚÐ- ÐÐ »ÚÐ-¡ÐÐ ¥ÚÐ-¢ÐÐ þÚÐ-£ÐÐ ýÚÐ-¤ÐÐ MÚÐ-¥ÐÐ ÚÐ-ÐÐ ÚÐ-Ð¦-§Ð¨©-ª«¬Ð®	6	ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÛÚÐ- ÐÐ ÚÐ-¡ÐÐ %ÚÐ-¢ÐÐ LÚÐ-£ÐÐ ÚÐ-¤ÐÐ »ÚÐ-¥ÐÐ ¥ÚÐ-¦ÐÐ þÚÐ-§ÐÐ ýÚÐ-¨ÐÐ MÚÐ-©ÐÐ ÚÐ-ÐÐ ÚÐ-Ðª-«Ð¬-®¯°Ð±²