"Enable" 1080 1920 "0xeae6e1" SoundVolume ; "Partial" ; On open 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" 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 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 If Seeker.TNumberTaobinCredit = "" Then Var number7 = "" Var number8 = "" Var number9 = "" Var number10 = "" If web_telnumOK = "" Then Else Var TelephoneNumber = web_telnumOK Var StepGetPoint = 0 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "collect_point1-p52." Var TelephoneNumberX = TelephoneNumber GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var StepGetPoint = 1 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "collect_point1-p71." Var TelephoneNumberX = TelephoneNumber ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Var Param1 = TelephoneNumber + "/" Var Param1 = Param1 + ParamCP GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf Var Tel_Confirm_Flag = 1 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing 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_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 "ROOT/taobin_project/image/collectiing/alpha.png" 158 665 "ROOT/taobin_project/image/collectiing/img_popup1.png" 333 1086 "ROOT/taobin_project/image/collectiing/bn_1.png" "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "1" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "1" EndIf If TelNumLen = 8 Then Var number8 = "1" EndIf If TelNumLen = 9 Then Var number9 = "1" EndIf If TelNumLen = 10 Then Var number10 = "1" EndIf EndIf 477 1086 "ROOT/taobin_project/image/collectiing/bn_2.png" "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "2" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "2" EndIf If TelNumLen = 8 Then Var number8 = "2" EndIf If TelNumLen = 9 Then Var number9 = "2" EndIf If TelNumLen = 10 Then Var number10 = "2" EndIf EndIf 620 1086 "ROOT/taobin_project/image/collectiing/bn_3.png" "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "3" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "3" EndIf If TelNumLen = 8 Then Var number8 = "3" EndIf If TelNumLen = 9 Then Var number9 = "3" EndIf If TelNumLen = 10 Then Var number10 = "3" EndIf EndIf 333 1230 "ROOT/taobin_project/image/collectiing/bn_4.png" "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "4" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "4" EndIf If TelNumLen = 8 Then Var number8 = "4" EndIf If TelNumLen = 9 Then Var number9 = "4" EndIf If TelNumLen = 10 Then Var number10 = "4" EndIf EndIf 477 1230 "ROOT/taobin_project/image/collectiing/bn_5.png" "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "5" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "5" EndIf If TelNumLen = 8 Then Var number8 = "5" EndIf If TelNumLen = 9 Then Var number9 = "5" EndIf If TelNumLen = 10 Then Var number10 = "5" EndIf EndIf 620 1230 "ROOT/taobin_project/image/collectiing/bn_6.png" "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "6" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "6" EndIf If TelNumLen = 8 Then Var number8 = "6" EndIf If TelNumLen = 9 Then Var number9 = "6" EndIf If TelNumLen = 10 Then Var number10 = "6" EndIf EndIf 333 1373 "ROOT/taobin_project/image/collectiing/bn_7.png" "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "7" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "7" EndIf If TelNumLen = 8 Then Var number8 = "7" EndIf If TelNumLen = 9 Then Var number9 = "7" EndIf If TelNumLen = 10 Then Var number10 = "7" EndIf EndIf 477 1373 "ROOT/taobin_project/image/collectiing/bn_8.png" "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "8" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "8" EndIf If TelNumLen = 8 Then Var number8 = "8" EndIf If TelNumLen = 9 Then Var number9 = "8" EndIf If TelNumLen = 10 Then Var number10 = "8" EndIf EndIf 620 1373 "ROOT/taobin_project/image/collectiing/bn_9.png" "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "9" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf If TelNumLen = 7 Then Var number7 = "9" EndIf If TelNumLen = 8 Then Var number8 = "9" EndIf If TelNumLen = 9 Then Var number9 = "9" EndIf If TelNumLen = 10 Then Var number10 = "9" EndIf EndIf 477 1517 "ROOT/taobin_project/image/collectiing/bn_0.png" "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 10 StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowTextNumber = "Invisible" TimerReset Refresh If TelNumLen = 7 Then Var number7 = "0" EndIf If TelNumLen = 8 Then Var number8 = "0" EndIf If TelNumLen = 9 Then Var number9 = "0" EndIf If TelNumLen = 10 Then Var number10 = "0" EndIf EndIf 620 1517 "ROOT/taobin_project/image/collectiing/bn_back-1.png" "ROOT/taobin_project/image/collectiing/bp_back-1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Trim TelephoneNumber -1 Var Tel_Confirm_State = "Invisible" StrLen TelephoneNumber TelNumLen If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf TimerReset Refresh 0 873 1080 Center 62 RobotoBlack 0x513C2F TelephoneNumber Telnum-mask-1 218 1671 Var( DirImage + "/bn_negative.png") Var( DirImage + "/bp_negative.png") "ROOT/sounds/codebuttom.wav" SoundVolume ; goto lid straw 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 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 Var Param1 = TelephoneNumber + "/" Var Param1 = Param1 + ParamCP GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf ; Border Edit 217 866 "ROOT/taobin_project/image/collect_point1/img3.png" 157 868 ShowTextNumber Var( DirImage + "/text_edit.png") 236 699 Var( DirImage + "/text_2.png") ; Advertise ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing 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