"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 Seeker.TaobinErrorNetwork = 0 If PayOfflineMode = 1 Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/xml/page_collect_point_error.xml" EndIf 1000 Var CountDownBrewing = CountDownBrewing - 1 Var ShowCountDownBrewing = CountDownBrewing Var Timeout = Timeout + 1 If Timeout > 30 Then If StepGetPoint = 0 Then Open "ROOT/taobin_project/xml/page_show_consent.xml" Else Var TaobinLevel = 0 Var CoffeePoint = 1 Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" If TelephoneNumber = "" Then Var TelephoneNumber = TelephoneNumberX EndIf Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/xml/page_collect_point_error.xml" EndIf 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 If TelephoneNumber = "" Then Var TelephoneNumber = TelephoneNumberX EndIf GETACCEXT TelephoneNumber 14 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf Else If Ext1a = "" Then ;Var CoffeePoint = 1 ;Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/xml/page_collect_point_error.xml" Else If Ext1a = "ok" Then Var TaobinName = Ext1d Var TaobinCoupons = Ext1g Var TaobinExpire = Ext1f Var TaobinLevel = Ext1e Var TNumberTaobinMemberXXX = TelephoneNumber If TaobinLevel = 1 Then Var PointTaobin = PayAmount / 20 Else Var PointTaobin = PayAmount / 15 EndIf Var Seeker.PointTaobinStr = "" + PointTaobin Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + PointTaobin 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 Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Else ;Var CoffeePoint = 1 ;Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/xml/page_collect_point_error.xml" EndIf EndIf EndIf If StepGetPoint = 0 Then Open "ROOT/taobin_project/xml/page_show_consent.xml" Else ;Var CoffeePoint = 1 Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/xml/page_collect_point_error.xml" EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf 178 680 "ROOT/taobin_project/image/collectiing/text20.png" ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; 0 873 1080 Center 62 RobotoBlack 0x513C2F TelephoneNumber Telnum-mask-1 ; 751 413 "ROOT/taobin_project/image/page_doing/img2.png" ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing