THAI: Added Clean Feedback

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

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>

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

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

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>

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

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>

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