1080 1312 "ROOT/image/BG_Menu_Point_Page1.bmp" SoundVolume ; On open TopView "hide" Var Timeout = 0 Var TelephoneNumber = "" 1000 Var Timeout = Timeout + 1 If Timeout > 20 Then Open "/media/bt/xml/menu_page5.xml" EndIf TimerReset Refresh 413 458 "ROOT/image/BN_1.bmp" "ROOT/image/BP_1.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 498 458 "ROOT/image/BN_2.bmp" "ROOT/image/BP_2.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 582 458 "ROOT/image/BN_3.bmp" "ROOT/image/BP_3.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 413 535 "ROOT/image/BN_4.bmp" "ROOT/image/BP_4.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 498 535 "ROOT/image/BN_5.bmp" "ROOT/image/BP_5.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 582 535 "ROOT/image/BN_6.bmp" "ROOT/image/BP_6.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 413 612 "ROOT/image/BN_7.bmp" "ROOT/image/BP_7.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 498 612 "ROOT/image/BN_8.bmp" "ROOT/image/BP_8.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 582 612 "ROOT/image/BN_9.bmp" "ROOT/image/BP_9.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 413 689 "ROOT/image/BN_Star.bmp" "ROOT/image/BP_Star.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 498 689 "ROOT/image/BN_0.bmp" "ROOT/image/BP_0.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 10 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 10 Then Var Tel_Confirm_State = "Enable" EndIf 582 689 "ROOT/image/BN_#.bmp" "ROOT/image/BP_#.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 373 779 "ROOT/image/BN_Skip.bmp" "ROOT/image/BP_Skip.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "/media/bt/xml/menu_page5.xml" 486 779 "ROOT/image/BN_Edit.bmp" "ROOT/image/BP_Edit.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var Timeout = 0 Trim TelephoneNumber -1 Var Tel_Confirm_State = "Disable" TimerReset Refresh 600 779 Tel_Confirm_State "ROOT/image/BN_Confirm.bmp" "ROOT/image/BP_Confirm.bmp" "ROOT/image/BD_Confirm.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var StepGetPoint = 0 ;GETACCEXT TelephoneNumber 5 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Open "/media/bt/xml/menu_CollectPoint_Page2.xml" 310 380 474 Center 50 fontType1 0xF0E000 TelephoneNumber Telnum 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 = 1 EndIf