"Enable" 1080 1920 SoundVolume ; "0xeae6e1" Var Timeout = 0 If show_eng = "true" Then Var RegisterLineImg = "ROOT/taobin_project/image/event/nam_hom_coconut/not_member_en.png" Var CloseBtn = "ROOT/taobin_project/image/event/nam_hom_coconut/bn_close_en.png" Else Var RegisterLineImg = "ROOT/taobin_project/image/event/nam_hom_coconut/not_member_th.png" Var CloseBtn = "ROOT/taobin_project/image/event/nam_hom_coconut/bn_close_th.png" EndIf 1000 DEBUGVAR Timeout If Timeout > 8 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointMain = 1 Then GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf EndIf Var Timeout = Timeout + 1 TimerReset Refresh ;include="ROOT/taobin_project/inc/video.inc" 0 478 RegisterLineImg 393 1796 CloseBtn CloseBtn If Seeker.CodeChannel = 1 Then If Seeker.CollectPointMain = 1 Then GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf