"Enable" 1080 1920 "0xeae6e1" SoundVolume "Partial" ; On open Var Timeout = 0 Var TelephoneNumber = "" Var ShowTextNumber = "Enable" Var ShowErrorText = "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 FlagWaitUpdateCoinAmount = 0 Var number7 = "" Var number8 = "" Var number9 = "" Var number10 = "" Var Ext1a = "" Var GetAccFlag = 0 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then If Seeker.pageStoreCredit0 = 1 Then Change StoreCreditAmount Var ChangeFlag2 = 1 If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else Open "ROOT/taobin_project/xml/page_collect_point_1.xml" EndIf Else CoinVending BILLREJECT 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 EndIf If FlagWaitUpdateCoinAmount = 1 Then If Timeout > 2 Then 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 EndIf TimerReset If GetAccFlag = 1 Then If Ext1a = "ok" Then Var CoffeeCredit = Ext1b INT CoffeeCredit Var Seeker.CoffeePinNumber = Ext1c If Seeker = "next" Then Var Curr = "curr" DEBUGVAR CoffeeCredit DEBUGVAR Curr.CurrCreditAmount If TelephoneNumber = Curr.CurrCreditTelNum Then Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount If Curr.CurrCreditUse > 0 Then Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse If CoffeeCredit < 0 Then Var CoffeeCredit = 0 EndIf EndIf EndIf EndIf Var Seeker.TNumberTaobinCredit = TelephoneNumber If Seeker.pageStoreCredit0 = 1 Then Var Seeker.StoreCreditFlag = 1 Var CoffeeCreditKeep = StoreCreditAmount + CoffeeCredit Open "ROOT/taobin_project/xml/page_payment_storeCredit2-2.xml" Else Var Seeker.StoreCreditFlag = 1 If ViewBill < RemainAmount Then CoinVending BILLSTACKALL Var FlagWaitUpdateCoinAmount = 1 Var Timeout = 0 Else CoinVending BILLSTACKALL Var CoffeeCreditKeep = RemainAmountKeep + CoffeeCredit ;If Seeker = "next" Then ; Var Curr = "curr" ; Var CoffeeCreditKeep = CoffeeCreditKeep - Curr.CurrCreditUse ;EndIf Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml" EndIf EndIf Else If Ext1a = "new customer" Then Var CoffeeCreditKeep = 0 Var CoffeeCredit = 0 Var Seeker.TNumberTaobinCredit = TelephoneNumber Open "ROOT/taobin_project/xml/page_payment_storeCredit2.xml" Else If Ext1a = "invalid password" Then Var ShowErrorText = "Enable" EndIf EndIf 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 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 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 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 Var ShowErrorText = "Invisible" 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 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 Var Tel_Confirm_State = "Disable" StrLen TelephoneNumber TelNumLen If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf ;Var ShowErrorText = "Invisible" TimerReset Refresh 218 1607 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If Seeker.pageStoreCredit0 = 1 Then Change StoreCreditAmount Var ChangeFlag2 = 1 Var Seeker.TNumberTaobinCredit = "" If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else Open "ROOT/taobin_project/xml/page_collect_point_1.xml" EndIf Else CoinVending BILLREJECT 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 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 Var GetAccFlag = 1 GETACCEXT TelephoneNumber 13 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_17.png" ) 444 942 ShowErrorText "Enable" "ROOT/taobin_project/image/collectiing/text_show_notfound.png" 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