"Enable" 1080 1920 "0xEAE6E1" SoundVolume Var Timeout = 0 Var Seeker.TaobinErrorNetwork = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Else Var DirImage = "ROOT/taobin_project/image/collectiing" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If PayOfflineMode = 1 Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/xml/event/lent_day/page_lent_day_collect_fail.xml" EndIf 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing Var Timeout = Timeout + 1 If Timeout > 30 Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/xml/event/lent_day/page_lent_day_collect_fail.xml" EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" If Ext1a = "" Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/xml/event/lent_day/page_lent_day_collect_fail.xml" Else Var TaobinName = Ext1c Var TelephoneNumber = TelephoneNumberX Var TNumberTaobinMemberXXX = TelephoneNumber If TaobinName = "" Then Var Seeker.IsLineMember = 0 Else If TaobinName = "-" Then Var Seeker.IsLineMember = 0 Else Var Seeker.IsLineMember = 1 EndIf EndIf If Seeker.IsLineMember = 0 Then SAVELOG "Not Line member skip." 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 Seeker.PointTaobinStr = ParamCP Var Seeker.TNumberTaobinMember = TelephoneNumberX DEBUGVAR Ext1b Var TotalPrice = Ext1b INT TotalPrice DEBUGVAR PayAmount DEBUGVAR TotalPrice DEBUGVAR Seeker.PointTaobinStr DEBUGVAR Seeker.TNumberTaobinMember Open "ROOT/taobin_project/xml/event/lent_day/page_collect_lent_collecting.xml" EndIf Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/xml/event/lent_day/page_lent_day_collect_fail.xml" If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf ;include="ROOT/taobin_project/inc/video.inc" 178 680 Var( DirImage + "/text20.png" ) 490 1390 100 100 "Enable" "ROOT/taobin_project/image/page_payment_en/page_payment/loading.gif" 751 413 IMG_CNT XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing