"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 SAVELOG UnitTestType If UnitTestType = "1" Then Var CoffeePoint = 10 Open "ROOT/taobin_project/xml/page_show_consent.xml" EndIf Var TaobinLevel = 0 Var Point2X = 0 Var Seeker.IsLineMember = 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/inter/aus/xml/page_collect_point_error.xml" EndIf 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing Var Timeout = Timeout + 1 If Timeout > 30 Then Var TaobinLevel = 0 Var CoffeePoint = 1 Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.xml" EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" If StepGetPoint = 0 Then If PdpaAsk = 0 Then Open "ROOT/taobin_project/xml/page_show_consent.xml" Else Var StepGetPoint = 1 Var TelephoneNumber = TelephoneNumberX GETACCEXT TelephoneNumber 14 Var Ext1a = "" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.xml" EndIf Else If Ext1a = "" Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.xml" Else If Ext1a = "ok" Then Var TaobinName = Ext1d Var TaobinCoupons = Ext1g Var TaobinExpire = Ext1f Var TaobinLevel = Ext1e Var TaobinPDPA = Ext1h Var TaobinPromoX = Ext1j DEBUGVAR TaobinPDPA Var PointTaobinTmp = Ext1i DEBUGVAR PointTaobinTmp INT PointTaobinTmp INT TaobinPDPA If TaobinName = "-" Then Var Seeker.IsLineMember = 0 Else Var Seeker.IsLineMember = 1 EndIf Var TelephoneNumber = TelephoneNumberX Var TNumberTaobinMemberXXX = TelephoneNumber ;Var PointTaobinTmp = 4 Var PointTaobin = PointTaobinTmp DEBUGVAR TaobinLevel Var Seeker.PointTaobinStr = ParamCP Var Seeker.TNumberTaobinMember = TelephoneNumberX Var CoffeePointRank = Ext1b INT CoffeePointRank Var CoffeePoint1 = Ext1c INT CoffeePoint1 Var CoffeePoint = PointTaobin + CoffeePoint1 Var CoffeePointOld = CoffeePoint1 If TaobinLevel = 1 Then Var CoffeePointRank = CoffeePointRank + 0 Else Var CoffeePointRank = CoffeePointRank + PointTaobin EndIf Var CoffeePointRankTmp = CoffeePointRank DEBUGVAR Seeker.PointTaobinStr DEBUGVAR Seeker.TNumberTaobinMember If NewCollectPointFlag = 1 Then Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_3.lxml" Else Open "ROOT/taobin_project/xml/page_collect_point_3.xml" EndIf Else Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.lxml" EndIf EndIf EndIf Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.lxml" If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf 178 680 Var( DirImage + "/text20.png" ) ;include="ROOT/taobin_project/inc/video.inc" 0 873 1080 Center 62 RobotoBlack 0x513C2F TelephoneNumber Telnum-mask-1 ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing