"Enable" 1080 1920 "0xEFEDEA" SoundVolume ; On open If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en/" Else Var DirImage = "ROOT/taobin_project/image/collectiing/" EndIf Var Timeout = 0 Var GetFreeFlag = 0 Var ShowErrorText = "Invisible" Var ShowWaitText = "Invisible" Var ShowButtonText = "Enable" 1000 Var Timeout = Timeout + 1 If GetFreeFlag = 1 Then If Timeout > 240 Then StrLen TelephoneNumberProblem TelNumLen If TelNumLen >= 10 Then If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp Else Var VendingTSIDProblem = VendingTSID EndIf Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems" PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_drinkfail3.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf If MachineStage = "remove-cup" Then Else If MachineStage = "show-menu" Then StrLen TelephoneNumberProblem TelNumLen If TelNumLen >= 10 Then If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp Else Var VendingTSIDProblem = VendingTSID EndIf Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems(Got Free)" PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf Var GetFreeFromError = 1 Var TelephoneNumberGOTFree = TelephoneNumberProblem Var ShowPrice = "Invisible" Open "ROOT/taobin_project/xml/page_catalog_free.xml" EndIf EndIf Else If Timeout > 60 Then StrLen TelephoneNumberProblem TelNumLen If TelNumLen >= 10 Then If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp Else Var VendingTSIDProblem = VendingTSID EndIf Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems" PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_drinkfail3.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf If MachineStage = "remove-cup" Then Var ShowErrorText = "Enable" Var ShowWaitText = "Invisible" Else Var ShowErrorText = "Invisible" If MachineStage = "show-menu" Then Else If GetFreeFlag = 1 Then Var ShowWaitText = "Enable" EndIf EndIf EndIf Refresh TimerReset 53 473 Var( DirImage + "/img_popup13.png" ) 0 427 1080 Center 62 RobotoBlack 0x513C2F "Enable" TextErrorShow 271 1479 ShowErrorText Var( DirImage + "/text_20.png" ) 61 1479 ShowWaitText Var( DirImage + "/text_24.png" ) 294 1536 ShowButtonText Var( DirImage + "/bn_door_open2.png" ) Var( DirImage + "/bp_door_open2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If GetFreeFlag = 0 Then Var GetFreeFlag = 1 Var Timeout = 0 Var ShowButtonText = "Invisible" EndIf Machine RemoveCup Refresh 294 1677 ShowButtonText Var( DirImage + "/bn_recieve_coupon.png" ) Var( DirImage + "/bp_recieve_coupon.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Machine RemoveCup StrLen TelephoneNumberProblem TelNumLen If TelNumLen >= 10 Then If Seeker.PayWithQR = 1 Then Var VendingTSIDProblem = VendingTSIDTmp Else Var VendingTSIDProblem = VendingTSID EndIf Var ProblemID = 7 Var ChooseProblem = "taobin purchasing problems" PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem EndIf If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_drinkfail3.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf