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

THAI: Added Clean Feedback

Browse source
This commit is contained in:
Kenta420 2025-01-16 17:26:30 +07:00
parent 42ce124c89
commit 47def2ae71
32 changed files with 468 additions and 537 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/clean_feedback/bn_feedback_level_1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.2 KiB

BIN
image/clean_feedback/bn_feedback_level_1_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
image/clean_feedback/bn_feedback_level_2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9 KiB

BIN
image/clean_feedback/bn_feedback_level_2_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.1 KiB

BIN
image/clean_feedback/bn_feedback_level_3.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 7.9 KiB

BIN
image/clean_feedback/bn_feedback_level_3_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.3 KiB

BIN
image/clean_feedback/bn_feedback_level_4.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
image/clean_feedback/bn_feedback_level_4_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.9 KiB

BIN
image/clean_feedback/bn_feedback_level_5.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
image/clean_feedback/bn_feedback_level_5_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
image/clean_feedback/bp_feedback_level_1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.4 KiB

BIN
image/clean_feedback/bp_feedback_level_1_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
image/clean_feedback/bp_feedback_level_2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9 KiB

BIN
image/clean_feedback/bp_feedback_level_2_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.2 KiB

BIN
image/clean_feedback/bp_feedback_level_3.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.2 KiB

BIN
image/clean_feedback/bp_feedback_level_3_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.8 KiB

BIN
image/clean_feedback/bp_feedback_level_4.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
image/clean_feedback/bp_feedback_level_4_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.9 KiB

BIN
image/clean_feedback/bp_feedback_level_5.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
image/clean_feedback/bp_feedback_level_5_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
image/clean_feedback/exit_icon.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 714 B

BIN
image/clean_feedback/popup_bg.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 4.5 KiB

228
inter/whatthecup/sgp/xml/page_payment_code-SGP_blue.xml
View file

@ -13,7 +13,7 @@
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
Var Seeker.CollectPointMain = 0
@ -22,17 +22,17 @@
;Var VendingQRCode = "ERROR"
;VendingQR ON
;Var QRCODE99 = ""
;CoinVending OFF
VendingQR OFF
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ErrorCause = ""
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
@ -40,7 +40,7 @@
If web_readyOK = "true" Then
Var web_readyOK = "false"
If web_code = "" Then
Else
Var ShowTextNumber = "Invisible"
@ -70,11 +70,11 @@
Var ECommerce = ECommerce + TOPPING_PRICE
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
@ -91,7 +91,7 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
@ -101,49 +101,49 @@
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
;VendingQR OFF
;Open menu_back_to_main
;Open menu_back_to_main
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Refresh
EndIf
TimerReset
</EventTimeout>
</EventTimeout>
<EventIDCard>
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
CoinVending OFF
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
EndIf
EndIf
EndIf
@ -159,7 +159,7 @@
<EventActionOk>
If Seeker.CodeChannel = 1 Then
@ -174,24 +174,24 @@
SPLIT ECommerce "/" 9 ShouldCollectPoint
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "AIR:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "TWN:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG Seeker.VendingCode
SAVELOG Seeker.VendingCampaignRI3
SAVELOG ShouldCollectPoint
INT ShouldCollectPoint
@ -208,7 +208,7 @@
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
EndIf
EndIf
@ -216,7 +216,7 @@
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
@ -227,12 +227,12 @@
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If Seeker.IntVendingCampaign >= PayAmount Then
If Seeker.IntVendingCampaign >= PayAmount Then
If ShouldCollectPoint = 1 Then
Var Seeker.CollectPointMain = 1
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf
@ -240,24 +240,24 @@
TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev"
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
@ -271,21 +271,21 @@
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Else
If ShouldCollectPoint = 1 Then
Var Seeker.CollectPointMain = 1
EndIf
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -297,11 +297,11 @@
;Var ECommerce = ""
;Var ECommerce = ECommerce + PriceDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + DiscountDrink
;Var ECommerce = ECommerce + DiscountDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + SessionID2
;Var ECommerce = ECommerce + SessionID2
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + SelectDrink
;Var ECommerce = ECommerce + SelectDrink
;Var ECommerce = ECommerce + "/"
;Var ECommerce = ECommerce + "KBA:2/"
;Var ECommerce = ECommerce + Seeker.VendingCode
@ -324,11 +324,11 @@
;Var Seeker.CodeChannel = 2
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
@ -343,7 +343,7 @@
EndIf
EndIf
Else
Else
;SAVELOG "Seeker.CodeChannel 2 > ActOK."
;
@ -354,12 +354,12 @@
;Var QRCODETMP = QRCODE99
;Var Seeker.CodeChannel = 1
;
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
;If CART_COUNT >= 1 Then
; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
;Else
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
; Open "ROOT/taobin_project/xml/page_payment_cash.xml"
;EndIf
EndIf
@ -368,7 +368,7 @@
<EventActionError>
If Seeker.CodeChannel = 1 Then
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
SAVELOG ShowErrorText
@ -386,7 +386,7 @@
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
If ErrorCause = "failed_fromoper_0007" Then
Var text_show_error = DirImage + "/text_show_error7.png"
EndIf
@ -405,10 +405,10 @@
Var Seeker.CodeChannel = 1
Var QRCODE99 = ""
Var QRCODETMP = ""
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
@ -438,7 +438,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
@ -449,7 +449,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -463,7 +463,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
@ -474,7 +474,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -488,7 +488,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
@ -499,7 +499,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -513,7 +513,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_A.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "A"
Var ShowTextNumber = "Invisible"
@ -524,7 +524,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -538,7 +538,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
@ -549,7 +549,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -563,7 +563,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
@ -574,7 +574,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -588,7 +588,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
@ -599,7 +599,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -613,7 +613,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_B.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "B"
Var ShowTextNumber = "Invisible"
@ -624,7 +624,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -638,7 +638,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
@ -649,7 +649,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -663,7 +663,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
@ -674,7 +674,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -688,7 +688,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
@ -699,7 +699,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -713,7 +713,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_C.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "C"
Var ShowTextNumber = "Invisible"
@ -724,7 +724,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -738,7 +738,7 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
@ -746,7 +746,7 @@
Var TelephoneNumber# = Str# + TelephoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
@ -764,19 +764,19 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_sh.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
;Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var ShowTextNumber = "Invisible"
Var Mode# = 1
Var Str# = "#"
Var TelephoneNumber# = Str# + TelephoneNumber
EndIf
TimerReset
Refresh
Var ShowErrorText = "Invisible"
@ -791,21 +791,21 @@
<FilenamePress> "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var Clear# = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var Clear# = 1
EndIf
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
If Clear# = 1 Then
Var ShowTextNumber = "Enable"
Var Mode# = 0
@ -818,7 +818,7 @@
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
@ -830,15 +830,15 @@
<FilenamePress> Var( DirImage + "/bn_cancel2.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
</EventClick>
</Button>
@ -854,9 +854,9 @@
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
If UnitTestType = "2" Then
If TelephoneNumber = "00000001" Then
@ -870,14 +870,14 @@
Var ShowErrorText = "Enable"
EndIf
If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
VendingQR OFF
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
@ -896,11 +896,11 @@
Var ECommerce = ECommerce + TOPPING_PRICE
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
@ -910,7 +910,7 @@
Var ECommerce = ECommerce + "C00"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
@ -929,17 +929,17 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
SAVELOG ShowTextNumber
Refresh
</EventClick>
</Button>
@ -971,7 +971,7 @@
</Text>
<Image>
<X> 188 </X>
@ -997,9 +997,9 @@
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>

4
inter/whatthecup/uae_dubai/xml/page_payment_code-UAE_blue.xml
View file

@ -239,7 +239,7 @@
If ShouldCollectPoint = 1 Then
Var Seeker.CollectPointMain = 1
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf
@ -285,7 +285,7 @@
Var Seeker.CollectPointMain = 1
EndIf
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf

140
xml/event/tricker.ev
View file

@ -176,8 +176,9 @@ Var StrawberrySeriesPro = 0
Var StrawberrySeriesMenu = 0
Var NewCollectPoint = 1
Var PayMentCodeShouldCollectPromotionPoint = 0
Var NotCollectPointPromotion = 0
Var PaymentCodeShouldCollectPromotionPoint = 0
Var CleanFeedbackFlag = 0
Var NewFlowPaymentCode = 0
Var New_Payment = 0
@ -199,138 +200,8 @@ If SystemDateMonthInt = 1 Then
EndIf
EndIf
If SystemDateMonthInt = 7 Then
If SystemDateDayInt <= 10 Then
Var NamHomCoconutPro = 1
EndIf
If SystemDateDayInt >= 7 Then
If SystemDateDayInt <= 9 Then
Var Cocoa77Pro = 1
EndIf
EndIf
If SystemDateDayInt >= 15 Then
If SystemDateDayInt <= 17 Then
Var PassionMintPro = 1
EndIf
EndIf
If SystemDateDayInt >= 22 Then
Var 7UpLuckyDrawX2Pro = 1
EndIf
EndIf
If SystemDateMonthInt >= 7 Then
Var LuckyDrawCampaign = 1
EndIf
If SystemDateMonthInt = 8 Then
If SystemDateDayInt <= 9 Then
Var 7UpLuckyDrawX2Pro = 1
EndIf
If SystemDateDayInt >= 10 Then
Var MomCocoaPro = 1
If SystemDateDayInt >= 12 Then
Var MomCocoaProDiscountEnable = 1
EndIf
EndIf
EndIf
If SystemDateMonthInt = 9 Then
If SystemDateDayInt <= 6 Then
Var MomCocoaPro = 1
EndIf
If SystemDateDayInt >= 9 Then
Var RobinsonBeautyPro = 1
EndIf
EndIf
If SystemDateMonthInt = 10 Then
If SystemDateDayInt <= 25 Then
Var JemilaPro = 1
EndIf
If SystemDateDayInt >= 21 Then
Var HalloweenPro = 1
EndIf
EndIf
If SystemDateMonthInt = 11 Then
If SystemDateDayInt <= 3 Then
Var HalloweenPro = 1
EndIf
If SystemDateDayInt >= 4 Then
If SystemDateDayInt <= 8 Then
Var WeekdayDiscountPro = 1
EndIf
EndIf
If SystemDateDayInt >= 11 Then
If SystemDateDayInt <= 15 Then
Var WeekdayDiscountPro = 1
EndIf
EndIf
If SystemDateDayInt >= 18 Then
If SystemDateDayInt <= 22 Then
Var WeekdayDiscountPro = 1
EndIf
EndIf
If SystemDateDayInt >= 25 Then
If SystemDateDayInt <= 29 Then
Var WeekdayDiscountPro = 1
EndIf
EndIf
If SystemDateDayInt >= 20 Then
Var JemilaToppingFlag = 1
Var SugarZeroCalFreeFlag = 1
If SystemDateDayOfWeek = "Wednesday" Then
Var JemilaToppingFreeFlag = 1
EndIf
EndIf
If SystemDateDayInt >= 21 Then
Var HappyTriosPro = 1
EndIf
If WeekdayDiscountPro = 1 Then
If SystemTimeHourInt >= 16 Then
If SystemTimeHourInt < 22 Then
Var WeekdayDiscountProEventOn = 1
EndIf
EndIf
EndIf
If SystemDateDayInt >= 11 Then
Var OreoDiscount11Pro = 1
EndIf
EndIf
If SystemDateMonthInt = 12 Then
Var WinterWonderPro = 1
Var ThickTeaByBrewerPro = 1
If SystemDateDayInt >= 16 Then
Var ThickTeaByBrewerBanner = 1
EndIf
If SystemDateMonthInt >= 2 Then
Var CleanFeedbackFlag = 1
EndIf
@ -343,6 +214,7 @@ EndIf
If BoxID = 105005 Then
Var NewFlowPaymentCode = 1
Var New_Payment = 1
Var CleanFeedbackFlag = 1
Var 12Day12MenuPro = 0
;Var WinterWonderPro = 0
;Var ThickTeaByBrewerBanner = 0

181
xml/page_clean_feedback.xml Normal file
View file

@ -0,0 +1,181 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
<Background> "0xffffff" </Background>
<EventOpen>
Var Timeout = 0
Var TimeoutTarget = 10
Var DirImage = "ROOT/taobin_project/image/clean_feedback/"
Var PopupTitle = "คะแนนความสะอาดของตู้"
Var Description = "ช่วยน้องเต่าประเมินด้วยน๊า.. เพราะเราอยากพัฒนาขึ้นในทุก ๆ วัน"
Var TitleSize = 65
Var FeedbackLevel[0] = DirImage + "bn_feedback_level_1.png"
Var FeedbackLevel[0].Pressed = DirImage + "bp_feedback_level_1.png"
Var FeedbackLevel[1] = DirImage + "bn_feedback_level_2.png"
Var FeedbackLevel[1].Pressed = DirImage + "bp_feedback_level_2.png"
Var FeedbackLevel[2] = DirImage + "bn_feedback_level_3.png"
Var FeedbackLevel[2].Pressed = DirImage + "bp_feedback_level_3.png"
Var FeedbackLevel[3] = DirImage + "bn_feedback_level_4.png"
Var FeedbackLevel[3].Pressed = DirImage + "bp_feedback_level_4.png"
Var FeedbackLevel[4] = DirImage + "bn_feedback_level_5.png"
Var FeedbackLevel[4].Pressed = DirImage + "bp_feedback_level_5.png"
If show_eng = "true" Then
Var PopupTitle = "Cleanliness Score of the Machine"
Var Description = "Please help us evaluate! We want to improve every single day."
Var TitleSize = 55
Var FeedbackLevel[0] = DirImage + "bn_feedback_level_1_en.png"
Var FeedbackLevel[0].Pressed = DirImage + "bp_feedback_level_1_en.png"
Var FeedbackLevel[1] = DirImage + "bn_feedback_level_2_en.png"
Var FeedbackLevel[1].Pressed = DirImage + "bp_feedback_level_2_en.png"
Var FeedbackLevel[2] = DirImage + "bn_feedback_level_3_en.png"
Var FeedbackLevel[2].Pressed = DirImage + "bp_feedback_level_3_en.png"
Var FeedbackLevel[3] = DirImage + "bn_feedback_level_4_en.png"
Var FeedbackLevel[3].Pressed = DirImage + "bp_feedback_level_4_en.png"
Var FeedbackLevel[4] = DirImage + "bn_feedback_level_5_en.png"
Var FeedbackLevel[4].Pressed = DirImage + "bp_feedback_level_5_en.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > TimeoutTarget Then
Function 2
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
</Image>
<Image>
<X> 45 </X>
<Y> 669 </Y>
<Filename> Var( DirImage + "/popup_bg.png" ) </Filename>
</Image>
<Button>
<X> 965 </X>
<Y> 698 </Y>
<Filename> Var( DirImage + "/exit_icon.png" ) </Filename>
<EventClick>
Function 2
</EventClick>
</Button>
<Text>
<X> 45 </X>
<Y> 745 </Y>
<Width> 987 </Width>
<Align> center-vertical-horizontal </Align>
<Font> KanitRegularTTF </Font>
<Size> TitleSize </Size>
<Color> 0x513C2F </Color>
<Value> PopupTitle </Value>
</Text>
<Text>
<X> 45 </X>
<Y> 823 </Y>
<Width> 987 </Width>
<Align> center-vertical-horizontal </Align>
<Font> KanitSemiBoldTTF </Font>
<Size> 31 </Size>
<Color> 0xDE794E </Color>
<Value> Description </Value>
</Text>
<Button>
<X> 103 </X>
<Y> 925 </Y>
<Filename> FeedbackLevel[0] </FileName>
<FilenamePress> FeedbackLevel[0].Pressed </FilenamePress>
<EventClick>
__CMD "machine-cleanliness-score" 1 "-" "-"
Function 2
</EventClick>
</Button>
<Button>
<X> 279 </X>
<Y> 925 </Y>
<Filename> FeedbackLevel[1] </FileName>
<FilenamePress> FeedbackLevel[1].Pressed </FilenamePress>
<EventClick>
__CMD "machine-cleanliness-score" 2 "-" "-"
Function 2
</EventClick>
</Button>
<Button>
<X> 455 </X>
<Y> 925 </Y>
<Filename> FeedbackLevel[2] </FileName>
<FilenamePress> FeedbackLevel[2].Pressed </FilenamePress>
<EventClick>
__CMD "machine-cleanliness-score" 3 "-" "-"
Function 2
</EventClick>
</Button>
<Button>
<X> 632 </X>
<Y> 925 </Y>
<Filename> FeedbackLevel[3] </FileName>
<FilenamePress> FeedbackLevel[3].Pressed </FilenamePress>
<EventClick>
__CMD "machine-cleanliness-score" 4 "-" "-"
Function 2
</EventClick>
</Button>
<Button>
<X> 809 </X>
<Y> 925 </Y>
<Filename> FeedbackLevel[4] </FileName>
<FilenamePress> FeedbackLevel[4].Pressed </FilenamePress>
<EventClick>
__CMD "machine-cleanliness-score" 5 "-" "-"
Function 2
</EventClick>
</Button>
<Function2>
If CleanFeedBackToCollectPoint = 1 Then
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</Function2>
</Popup>

199
xml/page_collect_point_1.xml
View file

@ -25,12 +25,22 @@
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then
SAVELOG "Seeker.CollectPointMain = 0 Jump!!!"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
If SettingIgnoreCollectPoint = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Var ShowErrorText = "Invisible"
@ -55,7 +65,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
@ -137,8 +147,6 @@
EndIf
EndIf
DEBUGVAR NotCollectPointPromotion
DEBUGVAR RobinsonBeautyPro
DEBUGVAR FromRobinsonBeautyPro
DEBUGVAR JemilaPro
@ -173,54 +181,10 @@
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
@ -229,14 +193,6 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
Var StepGetPoint = 1
Var PdpaAsk = 0
@ -256,40 +212,6 @@
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 0 Then
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
@ -339,8 +261,12 @@
SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If Timeout = 18 Then
@ -686,11 +612,17 @@
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
</EventClick>
</Button>
@ -732,88 +664,15 @@
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
If FruityRayaEnable = 1 Then
If FromFruityRaya = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml"
EndIf
EndIf
DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea
If ProThaiTeaEnable = 1 Then
If FromProThaiTea = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml"
EndIf
EndIf
DEBUGVAR ProYuzuEnable
DEBUGVAR FromProYuzu
If ProYuzuEnable = 1 Then
If FromProYuzu = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml"
EndIf
EndIf
If NotCollectPointPromotion = 0 Then
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
If JemilaPro = 1 Then
If FromJemilaPro = 1 Then
If JemilaRewardOutOfStock = 1 Then
SAVELOG "Jemila prize out of stock skip collect promotion point."
Else
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 0 Then
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 40
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
@ -824,7 +683,7 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf

35
xml/page_collect_point_2.xml
View file

@ -44,7 +44,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
@ -139,14 +139,19 @@
INT luckyDrawTicket
Var luckyDrawAlredyGotReward = Ext1i
If FromHalloweenPro = 1 Then
Open "ROOT/taobin_project/xml/event/halloween/check_quota.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
If FromHalloweenPro = 1 Then
Open "ROOT/taobin_project/xml/event/halloween/check_quota.xml"
Else
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
EndIf
Else
@ -285,10 +290,20 @@
Var GetLuckyDraw = 1
GETACCEXT TelephoneNumber 14
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf

43
xml/page_collect_point_error.xml
View file

@ -7,7 +7,7 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
@ -19,8 +19,8 @@
Var Timeout = 0
SAVELOG show_eng
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -36,20 +36,24 @@
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
@ -88,11 +92,16 @@
<FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventClick>
</Button>
@ -107,17 +116,17 @@
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>

4
xml/page_payment_code.xml
View file

@ -289,7 +289,7 @@
If ShouldCollectPoint = 1 Then
Var Seeker.CollectPointMain = 1
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf
@ -335,7 +335,7 @@
Var Seeker.CollectPointMain = 1
EndIf
If PayMentCodeShouldCollectPromotionPoint = 1 Then
If PaymentCodeShouldCollectPromotionPoint = 1 Then
Var Seeker.CollectPointPromotion = 1
EndIf
EndIf

95
xml/page_show_consent.xml
View file

@ -7,12 +7,12 @@
<EventOpen>
; On open
Var Timeout = 0
SAVELOG show_eng
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/consent_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -23,11 +23,11 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/consent_mmr/"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_press_accept_consent.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_press_accept_consent.mp3"
@ -40,9 +40,9 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
@ -53,30 +53,35 @@
;SAVELOG "Timeout"
;Open "ROOT/taobin_project/xml/page_lid_straw.xml"
SAVELOG "Timeout"
Var Seeker.FromConsent = 1
Var StepGetPoint = 1
;GETACCEXT TelephoneNumber 14
; goto lid straw
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
@ -131,20 +136,25 @@
<FilenamePress> Var( DirImage + "/bp_accept.png" ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
SAVELOG "Press Accept"
SAVELOG "show_consent-p83."
If UnitTestType = "1" Then
Var CoffeePoint = 10
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf
EndIf
@ -153,14 +163,19 @@
Var StepGetPoint = 1
;GETACCEXT TelephoneNumber 14
; goto lid straw
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 1
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
If NewCollectPoint = 1 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf
</EventClick>
@ -173,7 +188,7 @@
;<FilenamePress> Var( DirImage + "/bp_decline.png" ) </FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
;<EventClick>
; ; goto lid straw
; SAVELOG "Press Decline"
; SAVELOG "show_consent-p110."
@ -191,13 +206,13 @@
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>

76
xml/page_thankyou.xml
View file

@ -69,7 +69,7 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
@ -152,7 +152,7 @@
Var show_video = 1
Var SaveTheWorldST = "Invisible"
If CountryName = "Thailand" Then
Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play
Else
@ -318,15 +318,7 @@
If CountDownThankyou = 0 Then
If IgnoreNetCore = "true" Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If TestLoopMakeDrink = 1 Then
@ -340,19 +332,31 @@
If RoadShow = "true" Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If EnablePayLaterMode = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CleanFeedbackFlag = 1 Then
Var CleanFeedBackToCollectPoint = 0
Open "ROOT/taobin_project/xml/page_clean_feedback.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
@ -428,15 +432,7 @@
EndIf
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
DEBUGVAR ChangeFlag2
@ -523,15 +519,7 @@
EndIf
Else
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TRY "ROOT/taobin_project/xml/open_page_collect_point.ev"
@ -583,15 +571,7 @@
EndIf
Else
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TRY "ROOT/taobin_project/xml/open_page_collect_point.ev"
EndIf