"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.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 DEBUGVAR PayOfflineMode If PayOfflineMode = 1 Then Var Seeker.TaobinErrorNetwork = 1 Var Seeker.PointTaobinStr = ParamCP Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember= TelephoneNumber Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" EndIf Var InitCNT = BREW_CNT Var ShowPercent = "Invisible" Var ShowCountdown = "Enable" If ShowCountDownAsPercent = 1 Then Var ShowPercent = "Enable" Var ShowCountdown = "Invisible" Var IMG_CNT = "ROOT/taobin_project/inter/sgp/image/page_doing/img2_percent_eng.png" EndIf 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing ; percent If ShowCountDownAsPercent = 1 Then Var XPercent = InitCNT - ShowCountDownBrewing If ShowCountDownBrewing <= 5 Then Var XPercent = 95 Else Var XPercent = XPercent * 100 DEBUGVAR XPercent Var XPercent = XPercent / InitCNT EndIf DEBUGVAR XPercent EndIf 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 DEBUGVAR "Try open collect.error timeout30" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_error.lxml" 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 If UseSGPCollectFlag = 1 Then GETACCEXT Param1 35 Else GETACCEXT TelephoneNumber 14 EndIf Var Ext1a = "" Open "ROOT/taobin_project/inter/sgp/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/sgp/xml/page_collect_point_error.lxml" 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 DEBUGVAR TaobinName Var CatchNotMember = 0 If TaobinName = "" Then Var CatchNotMember = 1 Endif If TaobinName = "-" Then Var CatchNotMember = 1 EndIf DEBUGVAR CatchNotMember If CatchNotMember = 1 Then Var MemberErrText = Param1 + ", member=false" DEBUGVAR MemberErrText Var MemberErrText = "" DEBUGVAR TaobinName Var TaobinName = "" DEBUGVAR MemberPrompt Var CatchNotMember = 0 Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Var TelephoneNumber = TelephoneNumberX Var TNumberTaobinMemberXXX = TelephoneNumber ;Var PointTaobinTmp = 4 Var PointTaobin = PointTaobinTmp Var pTaobin = PointTaobin DEBUGVAR TaobinLevel If TaobinLevel = "1" Then Var pTaobin = PayAmount / 20 Else Var pTaobin = PayAmount / 15 EndIf If pTaobin > 0 Then Var pTaobinX = PointTaobin / pTaobin If pTaobinX >= 2 Then Var Point2X = 1 EndIf EndIf 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 TaobinPDPA = 0 Then ;inter-xml-open If CountryName = "Malaysia" Then Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml" EndIf ;inter-xml-open If CountryName = "Indonesia" Then Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.xml" EndIf ;inter-xml-open If CountryName = "Australia" Then If NewCollectPointFlag = 1 Then Var pageCollectPoint = CountryRootPath + "/xml/page_collect_point_3.lxml" Open pageCollectPoint Else Open "ROOT/taobin_project/xml/page_collect_point_3.xml" EndIf EndIf ;inter-xml-open If CountryName = "Singapore" Then DEBUGVAR "Try open collect3.sgp" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_3.lxml" EndIf Open "ROOT/taobin_project/xml/page_show_consent.xml" EndIf If PayAmount >= 20 Then If TaobinPromoX = "p2.no_otp" Then Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" EndIf If TaobinPromoX = "p2.unused" Then Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml" EndIf EndIf If NewCollectPoint = 1 Then Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml" 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/sgp/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/sgp/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-3 ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 ShowCountdown End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing ; XPosiShowCountDownBrew 470 ShowPercent End 153 88 RobotoBold 0x513C2F XPercent