"Enable" 1080 1920 "0xEFEDEA" SoundVolume "Partial" ; On open Var Timeout = 0 Var TelephoneNumber = "" Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" Var Tel_Confirm_State = "Invisible" Var GetCreditFlag = 0 Var Xtext19 = 260 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var Xtext19 = 154 Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf If show_eng = "true" Then Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Else Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" EndIf Var StepX = 2 Var TaobinCredit = 0 If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3" EndIf Var MaxNumber = 10 Var show_eng_button_stage = "Enable" If CountryName = "Malaysia" Then Var MaxNumber = 11 Var show_eng_button_stage = "Invisible" EndIf If CountryName = "Indonesia" Then Var MaxNumber = 12 Var show_eng_button_stage = "Invisible" EndIf DEBUGVAR LanguageShow If LanguageShow = "ENG" Then EndIf If LanguageShow = "THAI" Then EndIf Refresh 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf TimerReset If StepX = 0 Then If Ext1a = "ok" Then Var TaobinName = Ext1d Var TaobinCoupons = Ext1g Var TaobinExpire = Ext1f Var TaobinLevel = Ext1e Var TNumberTaobinMemberXXX = TelephoneNumber Var CoffeePointRank = Ext1b INT CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank GETACCEXT TelephoneNumber 15 Var StepX = 1 Else Var ShowErrorText = "Enable" EndIf Else If StepX = 1 Then Var PolygonST1 = "Invisible" Var PolygonST2 = "Invisible" Var CouponSTA = "Invisible" Var CouponSTB = "Invisible" Var CouponPage = 1 Var MakeDrinkState = 0 Var CouponInfo1 = Ext1a Var CouponInfo2 = Ext1b Var CouponInfo3 = Ext1c Var CouponInfo4 = Ext1d Var CouponInfo5 = Ext1e Var CouponInfo6 = Ext1f Var CouponInfo7 = Ext1g Var CouponInfo8 = Ext1h Var CouponInfo9 = Ext1i Var CouponInfo10 = Ext1j Open "ROOT/taobin_project/xml/page_check_member2.xml" ;GETACCEXT TelephoneNumber 13 ;Var StepX = 2 Else Var CouponPage = 1 Var MakeDrinkState = 0 ;Var TaobinCredit = Ext1b ;GETACCEXT TelephoneNumber 14 ;Var StepX = 0 ;Open "ROOT/taobin_project/xml/page_check_member1.xml" If Ext1a = "ok" Then Open "ROOT/taobin_project/xml/page_check_member1.xml" Else If Ext1a = "new customer" Then Open "ROOT/taobin_project/xml/page_check_newmember1.xml" EndIf EndIf EndIf EndIf Refresh Var ShowErrorText = "Enable" Refresh 333 1004 "ROOT/taobin_project/image/collectiing/bn_1.png" "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 477 1004 "ROOT/taobin_project/image/collectiing/bn_2.png" "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 620 1004 "ROOT/taobin_project/image/collectiing/bn_3.png" "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 333 1148 "ROOT/taobin_project/image/collectiing/bn_4.png" "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 477 1148 "ROOT/taobin_project/image/collectiing/bn_5.png" "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 620 1148 "ROOT/taobin_project/image/collectiing/bn_6.png" "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 333 1292 "ROOT/taobin_project/image/collectiing/bn_7.png" "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 477 1292 "ROOT/taobin_project/image/collectiing/bn_8.png" "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 620 1292 "ROOT/taobin_project/image/collectiing/bn_9.png" "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" Trim TelephoneNumber MaxNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 477 1432 "ROOT/taobin_project/image/collectiing/bn_0.png" "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowTextNumber = "Invisible" TimerReset Refresh Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 620 1432 "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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var Tel_Confirm_State = "Invisible" EndIf If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf ;Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" TimerReset Refresh 44 1783 Var( DirImage + "/bn_back.png" ) Var( DirImage + "/bp_back.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog.xml" 750 1783 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bn_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume Var Tel2DFlag = 0 Var Tel2D = TelephoneNumber Trim Tel2D 1 If Tel2D = "0" Then Var Tel2DFlag = 1 EndIf If Tel2DFlag = 1 Then GETACCEXT TelephoneNumber 19 Else Var ShowErrorText2 = "Enable" ;Var TelephoneNumber = "" Var Tel_Confirm_State = "Invisible" Refresh EndIf 217 784 Var( DirImage + "/img3.png" ) 349 825 ShowTextNumber "Enable" Var( DirImage + "/text15.png" ) 248 800 ShowTextNumber "Enable" Var( DirImage + "/Group.png" ) 0 797 1080 Center 62 RobotoBlack 0x513C2F "Enable" TelephoneNumber Telnum-mask-1 Xtext19 521 Var( DirImage + "/text_19.png" ) 430 942 ShowErrorText "Enable" Var( DirImage + "/text_show_notfound.png") 152 910 ShowErrorText2 "Enable" Var( DirImage + "/text_show_error5.png") 990 438 show_eng_button_stage show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; eng If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Open CurrentXMLFileName2 Open "/media/bt/xml/security_alarm.xml"