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