1080
1920
Var Timeout = 0
Var ImageDir = "ROOT/taobin_project/image/event/boost_energy/"
If show_eng = "true" Then
Var GotDiscountImg = ImageDir + "got_discount_code_en.png"
Var ButtonIdleImg = "ROOT/taobin_project/image/collectiing/bn_confirm.png"
Var ButtonPressedImg = "ROOT/taobin_project/image/collectiing/bp_confirm.png"
Else
Var GotDiscountImg = ImageDir + "got_discount_code_th.png"
Var ButtonIdleImg = "ROOT/taobin_project/image/collectiing_en/bn_confirm.png"
Var ButtonPressedImg = "ROOT/taobin_project/image/collectiing_en/bp_confirm.png"
EndIf
Var CloseButtonState = "Invisible"
DEBUGVAR GotDiscountImg
DEBUGVAR TelephoneNumber
SAVELOG "[BOOST_ENERGY] Sending code"
Var Param1 = "157"
Var Param2 = ""
Var Param3 = ""
AddData 43 TelephoneNumber Param1 Param2 Param3
1000
;Var CountDownBrewing = BREW_CNT
;Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
SAVELOG "[BOOST_ENERGY] Timeout"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
Open "/media/bt/xml/security_alarm.xml"
If Ext1a = "ok" Then
Else
SAVELOG "[BOOST_ENERGY] EventActionOk: Ext1a != ok send code fail"
DEBUGVAR ParamCP
DEBUGVAR TelephoneNumberX
DEBUGVAR TelephoneNumber
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var GotDiscountImg = ImageDir + "send_code_fail_en.png"
Else
Var GotDiscountImg = ImageDir + "send_code_fail_th.png"
EndIf
Var CloseButtonState = "Enable"
Var Timeout = 0
Refresh
EndIf
SAVELOG "[BOOST_ENERGY] EventActionError: send code fail"
DEBUGVAR ParamCP
DEBUGVAR TelephoneNumberX
DEBUGVAR TelephoneNumber
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var GotDiscountImg = ImageDir + "send_code_fail_en.png"
Else
Var GotDiscountImg = ImageDir + "send_code_fail_th.png"
EndIf
Var CloseButtonState = "Enable"
Var Timeout = 0
Refresh
;include="ROOT/taobin_project/inc/video.inc"
0
380
GotDiscountImg
;
; 751
; 413
; IMG_CNT
;
;
; XPosiShowCountDownBrew
; 470
; End
; 153
; 88
; RobotoBold
; 0x513C2F
; ShowCountDownBrewing
;