"Enable" 1080 1920 ; "0xeae6e1" SoundVolume ; On open Var Menu3Selected = "PressForever" SAVELOG PreviseXMLFileName2 Var Timeout = 0 DEBUGVAR SlientRefreshIndex If SlientRefreshIndex = 3 Then Var SlientRefreshIndex = 4 EndIf 1000 ;DEBUGVAR ICE_PROCESS_STATUS If ICE_PROCESS_STATUS = 2 Then Var ice_tab_process_show = "Enable" Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Else Var ice_tab_process_show = "Invisible" EndIf GetVisible inst_show3 ;DEBUGVAR inst_show3 If inst_show3 = 1 Then InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile If show_eng = "true" Then InstanceSetString "ShowEng" Else InstanceSetString "ShowThai" EndIf EndIf EndIf ; setvarint SlientRefreshEnable 1 ;DEBUGVAR SlientRefreshEnable If SlientRefreshIndex = 3 Then If inst_show3 = 0 Then GetXMLFileNameCurrentRunning CurrentOpenFile3 Open CurrentOpenFile3 Else Var SlientRefreshIndex = 4 EndIf EndIf TimerReset InstanceGetString SaveStringInst DEBUGVAR SaveStringInst DEBUGVAR show_eng DEBUGVAR EnabledBlockUpdateInst6 DEBUGVAR EnabledBlocksDrawInst6 If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile Else If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then Var StatusRefresh = "NoRefresh" DEBUGVAR StatusRefresh Else Var StatusRefresh = "Refresh" DEBUGVAR StatusRefresh GetXMLFileNameCurrentRunning CurrentOpenFile2 Open CurrentOpenFile2 EndIf EndIf If show_eng = "true" Then If SaveStringInst = "ShowThai" Then InstanceSetString "ShowEng" GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile EndIf Else If SaveStringInst = "ShowEng" Then InstanceSetString "ShowThai" GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile EndIf EndIf