pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

do menu v3

Browse source
This commit is contained in:
wanlop run 2025-04-02 18:55:42 +07:00
parent 71d0dfb457
commit feee551702
173 changed files with 7794 additions and 417120 deletions
Download patch file Download diff file Expand all files Collapse all files

64
xml/page_board.xml
View file

@ -1260,8 +1260,8 @@
EnableLanguage "THAI"
Var RedirectToNormalVersion = 1
EnableLanguage "MYANMAR"
EnableLanguage "MSC"
;EnableLanguage "MYANMAR"
;EnableLanguage "MSC"
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
@ -1493,7 +1493,6 @@
; Below. Pendding from XMLProfile
DEBUGVAR EnableMultiInstance
Var RedirectToNormalVersion = 0
If UsePepsiTheme = 1 Then
If InternationalEnable = 1 Then
@ -1574,66 +1573,11 @@
</EventOpen>
<EventActionOk>
If GetNamHomCoconutRemainReward = 1 Then
If Ext1a = "" Then
SAVELOG "Get Nam hom coconut remain reward error Ext1a is empty."
Else
DEBUGVAR Ext1a
SPLIT2 Ext1a "/" RemainRewardSpl
Var SuperSetRemain = RemainRewardSpl[0]
Var BalanceEssenceTonerRemain = RemainRewardSpl[1]
Var CleansingGalRemain = RemainRewardSpl[2]
Var TumbleBottleRemain = RemainRewardSpl[3]
Var ClearGelRemain = RemainRewardSpl[4]
Var E_GiftCard100BathRemain = RemainRewardSpl[5]
Var ClearGel4mlRemain = RemainRewardSpl[6]
INT SuperSetRemain
INT BalanceEssenceTonerRemain
INT CleansingGalRemain
INT TumbleBottleRemain
INT ClearGelRemain
INT E_GiftCard100BathRemain
INT ClearGel4mlRemain
Var SumNamHomCoconutRemainReward = SuperSetRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + BalanceEssenceTonerRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + CleansingGalRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + TumbleBottleRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + ClearGelRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + E_GiftCard100BathRemain
Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + ClearGel4mlRemain
If ShouldShowNamHomCoconutRemainReward = 1 Then
Var ShowNamHomCoconutRemainReward = "Enable"
EndIf
;DEBUG
;Var SumNamHomCoconutRemainReward = 200
If SumNamHomCoconutRemainReward > 500 Then
Var ShowNamHomCoconutRemainReward = "Invisible"
Else
If SumNamHomCoconutRemainReward = 0 Then
SAVELOG "NamHomCoconutPro: All reward out of stock"
WRITE_FILE "/mnt/sdcard/nam_hom_coconut_reward_out_of_stock" "1"
EndIf
EndIf
Var NamHomCoconutRemainReward = SumNamHomCoconutRemainReward
DEBUGVAR NamHomCoconutRemainReward
Var GetNamHomCoconutRemainRewardLastTime = SystemTimeMinuteInt
EndIf
EndIf
</EventActionOk>
<EventActionError>
If GetNamHomCoconutRemainReward = 1 Then
SAVELOG "Get Nam hom coconut remain reward requet error."
EndIf
</EventActionError>
<EventUnitTest1>

27
xml/page_topping_select8.xml
View file

@ -10412,22 +10412,21 @@
<Volume> SoundVolume </Volume>
<EventClick>
If ChildrenFree = 1 Then
Var ChildrenFree = 0
Var Cid = 33
Var PointCrm = "0"
Var GetScore = "1"
AddData Cid TelNumPromotion IDNum PointCrm GetScore
;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/tricker.ev"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
DEBUGVAR OpenFromInstMenuTab
If OpenFromInstMenuTab > 0 Then
DEBUGVAR OpenFromInstMenuTab
TabMenuVisibleInst OpenFromInstMenuTab
EndIf
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Open OpenFromXML
</EventClick>
</Button>