"Enable" 1080 1920 "0xeae6e1" SoundVolume "Partial" ; On open VendingQR OFF Var Timeout = 0 Var TelephoneNumber = "" Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var ShowErrorText2 = "Invisible" Var Tel_Confirm_State = "Invisible" Var GetCreditFlag = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf Var Ext1a = "" Var GetAccFlag = 0 Var AcceptAuto = "false" If web_readyOK = "true" Then Var web_readyOK = "false" Var AcceptAuto = "true" Var ShowTextNumber = "Invisible" Var PinNumber = "" Var TelephoneNumber = web_telnum Var DataTmp = TelephoneNumber + "/" Var DataTmp = DataTmp + PinNumber GETACCEXT DataTmp 19 Var GetAccFlag = 1 Else If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_phone_for_credits.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_phone_for_credits.mp3" EndIf EndIf Var MaxNumber = 10 Var PosX_Cancel = 397 ;Var CountryName = "Malaysia" If CountryName = "Malaysia" Then Var MaxNumber = 11 Var PosX_Cancel = 218 EndIf If CountryName = "Indonesia" Then Var MaxNumber = 12 Var PosX_Cancel = 218 EndIf 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf ;Open "ROOT/taobin_project/xml/page_payment_credit2.xml" If GetAccFlag = 1 Then If Ext1a = "ok" Then Var PinNumberUser = Ext1c Var CoffeeCredit = Ext1b INT CoffeeCredit ;Var CoffeeCredit = 5 DEBUGVAR PinNumberUser Open "ROOT/taobin_project/xml/page_payment_credit2.xml" Else DEBUGVAR Ext1a Var Curr = "curr" DEBUGVAR Curr DEBUGVAR Curr.CurrCreditTelNum If Seeker = "next" Then If Ext1a = "new customer" Then Var Curr = "curr" If TelephoneNumber = Curr.CurrCreditTelNum Then Var CoffeeCredit = 0 Var PinNumberUser = Curr.CurrCreditPinNum Open "ROOT/taobin_project/xml/page_payment_credit2.xml" EndIf EndIf EndIf Var ShowErrorText = "Enable" EndIf EndIf Refresh If GetAccFlag = 1 Then Var ShowErrorText = "Enable" EndIf Refresh 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 601 "ROOT/taobin_project/image/collectiing/img_popup1.png" 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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" Trim TelephoneNumber MaxNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf 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 Var ShowTextNumber = "Invisible" If TelNumLen >= 10 Then If MaxNumber > 10 Then Var Tel_Confirm_State = "Enable" Else Function 2 EndIf EndIf 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 PosX_Cancel 1607 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf 577 1607 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bn_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume Function 2 217 802 Var( DirImage + "/img3.png" ) 244 817 ShowTextNumber "Enable" Var( DirImage + "/text14.png" ) 248 836 ShowTextNumber "Enable" Var( DirImage + "/Group.png" ) 0 817 1080 Center 62 RobotoBlack 0x513C2F "Enable" TelephoneNumber Telnum-mask-1 188 626 Var( DirImage + "/text_13.png" ) 444 945 ShowErrorText "Enable" Var( DirImage + "/text_show_notfound.png") 152 920 ShowErrorText2 "Enable" Var( DirImage + "/text_show_error5.png") ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; Open "/media/bt/xml/security_alarm.xml" Var Tel2DFlag = 0 Var Tel2D = TelephoneNumber Trim Tel2D 1 If Tel2D = "0" Then Var Tel2DFlag = 1 EndIf If Tel2DFlag = 1 Then Var GetAccFlag = 1 GETACCEXT TelephoneNumber 19 Else Var ShowErrorText2 = "Enable" ;Var TelephoneNumber = "" Var Tel_Confirm_State = "Invisible" Refresh EndIf