update adv

This commit is contained in:
wanlop run 2023-11-07 15:25:42 +07:00
commit fbebcf0ee1
21 changed files with 6719 additions and 567 deletions

View file

@ -921,6 +921,52 @@
EndIf
EndIf
; Init read
ReadProfile "ROOT/xmlprofile/main.json" "XMLProfile"
DEBUGVAR XMLProfile
STRCONTAIN "y18IDCardLive" XMLProfile Y18IDCARDLIVE_ENABLE
STRCONTAIN "y18IDCard" XMLProfile Y18IDCARD_ENABLE
STRCONTAIN "SugarBreak" XMLProfile SugarBreakEnable
STRCONTAIN "Discount50" XMLProfile Discount50
DEBUGVAR EnableLiveness
DEBUGVAR Only18
DEBUGVAR NoSugarStepRight2
DEBUGVAR HalfPrice
If Y18IDCARDLIVE_ENABLE = "true" Then
Var EnableLiveness = "true"
Var Only18 = "true"
Else
Var EnableLiveness = "false"
Var Only18 = "false"
EndIf
If Y18IDCARD_ENABLE = "true" Then
Var Only18 = "true"
; MenuProfile
Else
Var Only18 = "false"
EndIf
; Only get 1,2,3
If SugarBreakEnable = "true" Then
Var NoSugarStepRight2 = "true"
Else
Var NoSugarStepRight2 = "false"
EndIf
If Discount50 = "true" Then
Var HalfPrice = "true"
Var InvokeDiscountCMD = "true"
DEBUGVAR InvokeDiscountCMD
__CMD "invoke-discount-50" "-" "-" "-"
Else
Var HalfPrice = "false"
DEBUGVAR Discount50
EndIf
Var NETCORE_LOST_COUNT_UP = 0
If RoadShow = "true" Then
@ -965,6 +1011,48 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
; New profile: Y18, Y18+Live, NoSugarStepRight2
;DEBUGVAR 12-02-01-0021.Price
;DEBUGVAR $12-02-01-0021.Price
DEBUGVAR XMLProfile
; test
; Var XMLProfile = "y18IDCard"
; Var XMLProfile = "y18IDCardLive"
; Var XMLProfile = "SugarBreak"
If XMLProfile = "" Then
; test action
ReadProfile "ROOT/xmlprofile/main.json" "XMLProfile"
DEBUGVAR XMLProfile
; Var XMLProfile = "Discount50"
EndIf
If Discount50 = "true" Then
Var HalfPrice = "true"
If InvokeDiscountCMD = "" Then
__CMD "invoke-discount-50" "-" "-" "-"
Var InvokeDiscountCMD = "true"
Else
DEBUGVAR InvokeDiscountCMD
EndIf
Else
Var HalfPrice = "false"
DEBUGVAR Discount50
EndIf
DEBUGVAR EnableLiveness
DEBUGVAR Only18
DEBUGVAR NoSugarStepRight2
DEBUGVAR HalfPrice
DEBUGVAR WebAppShow
If IgnoreNetCore = "true" Then
@ -1036,7 +1124,7 @@
DEBUGVAR NETCORE_EVENT_CNT_X
EndIf
If NETCORE_EVENT_CNT_X > 300 Then
If NETCORE_EVENT_CNT_X > 3600 Then
Var stop_now = "true"
Var stop_now_from_netcore_event = 1
Var MachineErrorDetailAll = "Netcore Lost"
@ -1112,10 +1200,15 @@
Var CountDownPauseVideo = CountDownPauseVideo - 1
If CountDownPauseVideo = 1 Then
If InvokeDiscountCMD = "true" Then
If JXMLVersionInt > 451 Then
TapScreen 30 638
EndIf
EndIf
EndIf
If CountDownPauseVideo = 0 Then