"Enable" 1080 1920 BackgroundColor SoundVolume ; "Partial" ; On open ; jump If IgnoreCollectPointByMe = 1 Then Var IgnoreCollectPointByMe = 0 Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf If Seeker.CodeChannel = 1 Then If Seeker.CollectPointMain = 0 Then SAVELOG "Seeker.CollectPointMain = 0 Jump!!!" Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf If SettingIgnoreCollectPoint = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var ShowTextNumber = "Enable" Var Timeout = 0 Var TelephoneNumber = "" Var TelephoneNumberX = "" Var TimeOutPlay = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collect_point1_en" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" If UsePepsiTheme = 1 Then Var DirImage = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName Var DirImage = DirImage + "/image/collect_point1_en" Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_eng.png" EndIf Else Var DirImage = "ROOT/taobin_project/image/collect_point1" ;Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If InternationalEnable = 1 Then If LanguageShow = "UAE_DUBAI" Then Var IMG_CNT = CountryRootPath + "/image/page_doing/img2.png" EndIf EndIf SAVELOG "collect_point1" SAVELOG Seeker.TNumberTaobinCredit SAVELOG TelephoneNumber SAVELOG "collect_point1_" Var Seeker.FromConsent = 0 Var ParamCP = "" Var ParamCP = ParamCP + Seeker.CampaignPPrice Var ParamCP = ParamCP + "/" Var ParamCP = ParamCP + Seeker.CampaignPCode Var ParamCP = ParamCP + "/" Var ParamCP = ParamCP + Seeker.CampaignPayChanel Var ParamCP = ParamCP + "/" Var CampaingRef = "" GenHashWithTimeStamp CampaingRef Var CampaingRef1 = "" Var CampaingRef2 = "" SUBSTRING CampaingRef 0 6 CampaingRef1 SUBSTRING CampaingRef 12 18 CampaingRef2 Var CampaingRef1 = CampaingRef1 + CampaingRef2 Var ParamCP = ParamCP + CampaingRef1 Var PepweenCollectPoint = 1 If PepweenEnable = 1 Then If Seeker.selected_a_drink = "12-99-05-0053" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0054" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0055" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0057" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0058" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0059" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0060" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0061" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0062" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0064" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0065" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-05-0056" Then Var PepweenCollectPoint = 0 EndIf If Seeker.selected_a_drink = "12-99-03-0066" Then Var PepweenCollectPoint = 0 EndIf EndIf DEBUGVAR PepweenCollectPoint DEBUGVAR ProBadValentineEnable DEBUGVAR FromBadValentinePro DEBUGVAR LipitPro DEBUGVAR FromLipitPro DEBUGVAR FruityRayaEnable DEBUGVAR FromFruityRaya DEBUGVAR ProThaiTeaEnable DEBUGVAR FromProThaiTea DEBUGVAR FromProYuzu If Seeker.TNumberTaobinCredit = "" Then If web_telnumOK = "" Then If show_eng = "true" Then Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Else Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" EndIf Else Var TelephoneNumber = web_telnumOK Var StepGetPoint = 1 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "collect_point1-p52." Var TelephoneNumberX = TelephoneNumber DEBUGVAR TelephoneNumber If FromTeaTimePro = 1 Then Var TelPhoneNum = TelephoneNumber Var drink_price = PriceFromCatalog Var param2 = "" Var param3 = "" AddData 45 TelPhoneNum drink_price param2 param3 EndIf ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Var Param1 = TelephoneNumber + "/" Var Param1 = Param1 + ParamCP If MyMintEnable = 1 Then If FromMyMintPro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml" EndIf EndIf DEBUGVAR FruityRayaEnable DEBUGVAR FromFruityRaya If FruityRayaEnable = 1 Then If FromFruityRaya = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml" EndIf EndIf DEBUGVAR ProThaiTeaEnable DEBUGVAR FromProThaiTea If ProThaiTeaEnable = 1 Then If FromProThaiTea = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml" EndIf EndIf DEBUGVAR ProYuzuEnable DEBUGVAR FromProYuzu If ProYuzuEnable = 1 Then If FromProYuzu = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml" EndIf EndIf If PepweenEnable = 1 Then If PepweenCollectPoint = 0 Then GETACCEXT TelephoneNumber 31 Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" EndIf EndIf If ProBadValentineEnable = 1 Then If FromBadValentinePro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_2.xml" EndIf EndIf If LipitPro = 1 Then If FromLipitPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf Else If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf EndIf EndIf DEBUGVAR NamHomCoconutPro DEBUGVAR FromNamHomCoconutPro DEBUGVAR Seeker.CodeChannel If NamHomCoconutPro = 1 Then If FromNamHomCoconutPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf Else If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf EndIf EndIf If UseSGPCollectFlag = 1 Then Var Param1 = "SG/" + Param1 GETACCEXT Param1 35 Else GETACCEXT Param1 23 EndIf Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit If FromTeaTimePro = 1 Then Var TelPhoneNum = TelephoneNumber Var drink_price = PriceFromCatalog Var param2 = "" Var param3 = "" AddData 45 TelPhoneNum drink_price param2 param3 EndIf Var StepGetPoint = 1 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "collect_point1-p71." Var TelephoneNumberX = TelephoneNumber DEBUGVAR TelephoneNumber DEBUGVAR PepweenCollectPoint ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Var Param1 = TelephoneNumber + "/" Var Param1 = Param1 + ParamCP DEBUGVAR MyMintEnable DEBUGVAR FromMyMintPro DEBUGVAR LipitPro DEBUGVAR FromLipitPro If MyMintEnable = 1 Then If FromMyMintPro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml" EndIf EndIf DEBUGVAR FruityRayaEnable DEBUGVAR FromFruityRaya If FruityRayaEnable = 1 Then If FromFruityRaya = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml" EndIf EndIf DEBUGVAR ProThaiTeaEnable DEBUGVAR FromProThaiTea If ProThaiTeaEnable = 1 Then If FromProThaiTea = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml" EndIf EndIf DEBUGVAR ProYuzuEnable DEBUGVAR FromProYuzu If ProYuzuEnable = 1 Then If FromProYuzu = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml" EndIf EndIf If ProBadValentineEnable = 1 Then If FromBadValentinePro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_2.xml" EndIf EndIf If LipitPro = 1 Then If FromLipitPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf Else If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf EndIf EndIf DEBUGVAR NamHomCoconutPro DEBUGVAR FromNamHomCoconutPro DEBUGVAR Seeker.CodeChannel If NamHomCoconutPro = 1 Then If FromNamHomCoconutPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf Else If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf EndIf EndIf If PepweenCollectPoint = 0 Then GETACCEXT TelephoneNumber 31 Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" Else If UseSGPCollectFlag = 1 Then Var Param1 = "SG/" + Param1 GETACCEXT Param1 35 Else GETACCEXT Param1 23 EndIf Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" EndIf EndIf Var Tel_Confirm_Flag = 1 DEBUGVAR BREW_CNT If SGPSimMode = "Enable" Then If BREW_CNT = 0 Then Var BREW_CNT = 20 EndIf 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" If UsePepsiTheme = 1 Then Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_percent_eng.png" EndIf EndIf If XPercent = 0 Then Else Var XPercent = 0 EndIf Var AlphaBg = "ROOT/taobin_project/image/collectiing/alpha.png" Var NumImgDir = "ROOT/taobin_project/image/collectiing/" If UsePepsiTheme = 1 Then Var AlphaBg = "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/alpha.png" Var NumImgDir = "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/" EndIf Var bn_NumPad1 = NumImgDir + "bn_1.png" Var bp_NumPad1 = NumImgDir + "bp_1.png" Var bn_NumPad2 = NumImgDir + "bn_2.png" Var bp_NumPad2 = NumImgDir + "bp_2.png" Var bn_NumPad3 = NumImgDir + "bn_3.png" Var bp_NumPad3 = NumImgDir + "bp_3.png" Var bn_NumPad4 = NumImgDir + "bn_4.png" Var bp_NumPad4 = NumImgDir + "bp_4.png" Var bn_NumPad5 = NumImgDir + "bn_5.png" Var bp_NumPad5 = NumImgDir + "bp_5.png" Var bn_NumPad6 = NumImgDir + "bn_6.png" Var bp_NumPad6 = NumImgDir + "bp_6.png" Var bn_NumPad7 = NumImgDir + "bn_7.png" Var bp_NumPad7 = NumImgDir + "bp_7.png" Var bn_NumPad8 = NumImgDir + "bn_8.png" Var bp_NumPad8 = NumImgDir + "bp_8.png" Var bn_NumPad9 = NumImgDir + "bn_9.png" Var bp_NumPad9 = NumImgDir + "bp_9.png" Var bn_NumPad0 = NumImgDir + "bn_0.png" Var bp_NumPad0 = NumImgDir + "bp_0.png" Var bn_NumPadBack = NumImgDir + "bn_back-1.png" Var bp_NumPadBack = NumImgDir + "bp_back-1.png" Var TextEditImg = DirImage + "/text_edit.png" DEBUGVAR TextEditImg 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing DEBUGVAR DebugBypassCollectPt2 ; 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 StrLen TelephoneNumber TelNumLen If TelNumLen > 0 Then Var ShowTextNumber = "Invisible" Else ; Add Var TimeOutPlay = TimeOutPlay + 1 If TimeOutPlay > 10 Then Var TimeOutPlay = 0 If show_eng = "true" Then Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Else Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" EndIf EndIf ; EndIf DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 30 Then SAVELOG "collect_point1-p107." ;Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf If Timeout = 18 Then Var date_time_str = "" STRDATETIME date_time_str Var date_time_str = "/mnt/sdcard/scn_" + date_time_str Var date_time_str = date_time_str + ".png" DEBUGVAR date_time_str SCREEN_CAP date_time_str EndIf If Timeout = 9 Then ;RefreshAll EndIf Refresh TimerReset 0 380 AlphaBg 158 665 "ROOT/taobin_project/image/collectiing/img_popup1.png" 333 1086 bn_NumPad1 bp_NumPad1 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1086 bn_NumPad2 bp_NumPad2 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1086 bn_NumPad3 bp_NumPad3 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 333 1230 bn_NumPad4 bp_NumPad4 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1230 bn_NumPad5 bp_NumPad5 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1230 bn_NumPad6 bp_NumPad6 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 333 1373 bn_NumPad7 bp_NumPad7 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1373 bn_NumPad8 bp_NumPad8 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1373 bn_NumPad9 bp_NumPad9 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1517 bn_NumPad0 bp_NumPad0 "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1517 bn_NumPadBack bp_NumPadBack "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Trim TelephoneNumber -1 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var Tel_Confirm_State = "Invisible" EndIf If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf TimerReset Refresh 0 873 1080 Center 62 RobotoBlack HeadlineColor TelephoneNumber Telnum-mask-3 218 1671 Var( DirImage + "/bn_negative.png") Var( DirImage + "/bp_negative.png") "ROOT/sounds/codebuttom.wav" SoundVolume ; goto lid straw ;Open "ROOT/taobin_project/xml/page_catalog.xml" SAVELOG "collect_point1-p589." Open "ROOT/taobin_project/xml/page_lid_straw.xml" 577 1671 Tel_Confirm_State Var( DirImage + "/bn_positive.png") Var( DirImage + "/bp_positive.png") Var( DirImage + "/bn_positive.png") "ROOT/sounds/codebuttom.wav" SoundVolume If Tel_Confirm_Flag = 1 Then Var Tel2DFlag = 0 Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev" TRY verifyNumberEV If Tel2DFlag = 1 Then Var StepGetPoint = 1 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "collect_point1-p583." Var TelephoneNumberX = TelephoneNumber ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc DEBUGVAR TelephoneNumber If FromTeaTimePro = 1 Then Var TelPhoneNum = TelephoneNumber Var drink_price = PriceFromCatalog Var param2 = "" Var param3 = "" AddData 45 TelPhoneNum drink_price param2 param3 EndIf If ChildrenFree = 1 Then Var Seeker.TNumberTaobinMember = TelephoneNumber Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Var Param1 = TelephoneNumber + "/" Var Param1 = Param1 + ParamCP DEBUGVAR FruityRayaEnable DEBUGVAR FromFruityRaya If FruityRayaEnable = 1 Then If FromFruityRaya = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml" EndIf EndIf DEBUGVAR ProThaiTeaEnable DEBUGVAR FromProThaiTea If ProThaiTeaEnable = 1 Then If FromProThaiTea = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml" EndIf EndIf DEBUGVAR ProYuzuEnable DEBUGVAR FromProYuzu If ProYuzuEnable = 1 Then If FromProYuzu = 1 Then Open "ROOT/taobin_project/inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml" EndIf EndIf If MyMintEnable = 1 Then If FromMyMintPro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml" EndIf EndIf If ProBadValentineEnable = 1 Then If FromBadValentinePro = 1 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_2.xml" EndIf EndIf If LipitPro = 1 Then If FromLipitPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf Else If LipitRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml" EndIf EndIf EndIf EndIf DEBUGVAR NamHomCoconutPro DEBUGVAR FromNamHomCoconutPro DEBUGVAR Seeker.CodeChannel If NamHomCoconutPro = 1 Then If FromNamHomCoconutPro = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointPromotion = 1 Then If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf Else If NamHomCoconutRewardOutOfStock = 0 Then GETACCEXT TelephoneNumber 32 Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml" EndIf EndIf EndIf EndIf If PepweenCollectPoint = 0 Then GETACCEXT TelephoneNumber 31 Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml" Else If UseSGPCollectFlag = 1 Then Var Param1 = "SG/" + Param1 GETACCEXT Param1 35 Else GETACCEXT Param1 23 EndIf ;Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/inter/sgp/xml/page_collect_point_2.lxml" EndIf Else If show_eng = "true" Then Var DirImage2 = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage2 = "ROOT/taobin_project/image/collectiing" EndIf Var text_show_error = DirImage2 + "/text_show_error5.png" Var ShowErrorText = "Enable" ;Var TelephoneNumber = "" Var Tel_Confirm_State = "Invisible" Refresh EndIf EndIf ; Border Edit 217 866 Var( DirImage + "/img3.png") 157 868 ShowTextNumber TextEditImg 236 699 eval( If FromProThaiTea = 1 Then Var return = "Invisible" Else If FromProYuzu = 1 Then Var return = "Invisible" Else Var return = "Enable" EndIf EndIf ) Var( DirImage + "/text_2.png") 236 699 eval( If FromProThaiTea = 1 Then Var return = "Enable" Else If FromProYuzu = 1 Then Var return = "Invisible" Else Var return = "Enable" EndIf EndIf ) Var( DirImage + "/edit.png") ;include="ROOT/taobin_project/inc/video.inc" ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 ShowCountdown End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing ; XPosiShowCountDownBrew 470 ShowPercent End 153 88 RobotoBold HeadlineColor XPercent 152 955 ShowErrorText text_show_error Open "/media/bt/xml/security_alarm.xml" If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf Var DebugBypassCollectPt2 = 1 DEBUGVAR DebugBypassCollectPt2 Var TaobinLevel = "2" Var CoffeePoint = 54