"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 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 Var PosX_Cancel = 397 ;Var CountryName = "Malaysia" ;inter-max-number If CountryName = "Malaysia" Then Var PosX_Cancel = 218 EndIf ;inter-max-number If CountryName = "Indonesia" Then Var PosX_Cancel = 218 EndIf 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then ;Open "ROOT/taobin_project/xml/page_catalog2.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf If GetAccFlag = 1 Then If Ext1a = "ok" Then Var PinNumberUser = Ext1c Var CoffeeCredit = Ext1b INT CoffeeCredit DEBUGVAR PinNumberUser Open "ROOT/taobin_project/xml/page_topup_credit2.xml" Else DEBUGVAR Ext1a 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 MaxPhoneNumber StrLen TelephoneNumber TelNumLen Var ShowTextNumber = "Invisible" If TelNumLen >= MinPhoneNumber Then If MaxPhoneNumber > 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 ;Open "ROOT/taobin_project/xml/page_catalog2.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" 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-2.png" ) 444 945 ShowErrorText "Enable" Var( DirImage + "/text_show_notfound.png") 152 920 ShowErrorText2 "Enable" Var( DirImage + "/text_show_error5.png") ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml" Var Tel2DFlag = 0 TRY "ROOT/taobin_project/xml/verify_number.ev" If Tel2DFlag = 1 Then Var GetAccFlag = 1 GETACCEXT TelephoneNumber 19 Else Var ShowErrorText2 = "Enable" ;Var TelephoneNumber = "" Var Tel_Confirm_State = "Invisible" Refresh EndIf