diff --git a/image/event/jemila/bg_bottom.png b/image/event/jemila/bg_bottom.png new file mode 100644 index 00000000..e11ce917 Binary files /dev/null and b/image/event/jemila/bg_bottom.png differ diff --git a/image/event/jemila/bg_top.png b/image/event/jemila/bg_top.png new file mode 100644 index 00000000..0f18d54a Binary files /dev/null and b/image/event/jemila/bg_top.png differ diff --git a/image/event/jemila/bn_close_en.png b/image/event/jemila/bn_close_en.png new file mode 100644 index 00000000..4fb106fb Binary files /dev/null and b/image/event/jemila/bn_close_en.png differ diff --git a/image/event/jemila/bn_close_th.png b/image/event/jemila/bn_close_th.png new file mode 100644 index 00000000..1acb2605 Binary files /dev/null and b/image/event/jemila/bn_close_th.png differ diff --git a/image/event/jemila/bn_random.png b/image/event/jemila/bn_random.png new file mode 100644 index 00000000..d18c0578 Binary files /dev/null and b/image/event/jemila/bn_random.png differ diff --git a/image/event/jemila/continue_btn.png b/image/event/jemila/continue_btn.png new file mode 100644 index 00000000..4bedc95a Binary files /dev/null and b/image/event/jemila/continue_btn.png differ diff --git a/image/event/jemila/continue_en_btn.png b/image/event/jemila/continue_en_btn.png new file mode 100644 index 00000000..5a6b4be8 Binary files /dev/null and b/image/event/jemila/continue_en_btn.png differ diff --git a/image/event/jemila/fail_bg.png b/image/event/jemila/fail_bg.png new file mode 100644 index 00000000..ee86c7b0 Binary files /dev/null and b/image/event/jemila/fail_bg.png differ diff --git a/image/event/jemila/fail_img.png b/image/event/jemila/fail_img.png new file mode 100644 index 00000000..fefbb8f4 Binary files /dev/null and b/image/event/jemila/fail_img.png differ diff --git a/image/event/jemila/new_point.png b/image/event/jemila/new_point.png new file mode 100644 index 00000000..353ed94b Binary files /dev/null and b/image/event/jemila/new_point.png differ diff --git a/image/event/jemila/no_point.png b/image/event/jemila/no_point.png new file mode 100644 index 00000000..53c7dec2 Binary files /dev/null and b/image/event/jemila/no_point.png differ diff --git a/image/event/jemila/not_member_en.png b/image/event/jemila/not_member_en.png new file mode 100644 index 00000000..a840ec04 Binary files /dev/null and b/image/event/jemila/not_member_en.png differ diff --git a/image/event/jemila/not_member_th.png b/image/event/jemila/not_member_th.png new file mode 100644 index 00000000..47c7a914 Binary files /dev/null and b/image/event/jemila/not_member_th.png differ diff --git a/image/event/jemila/point.png b/image/event/jemila/point.png new file mode 100644 index 00000000..a9ab161e Binary files /dev/null and b/image/event/jemila/point.png differ diff --git a/image/event/jemila/random_bg.png b/image/event/jemila/random_bg.png new file mode 100644 index 00000000..693c146c Binary files /dev/null and b/image/event/jemila/random_bg.png differ diff --git a/image/event/jemila/random_open_img_1.png b/image/event/jemila/random_open_img_1.png new file mode 100644 index 00000000..f1de98fb Binary files /dev/null and b/image/event/jemila/random_open_img_1.png differ diff --git a/image/event/jemila/random_open_img_2.png b/image/event/jemila/random_open_img_2.png new file mode 100644 index 00000000..d1c89504 Binary files /dev/null and b/image/event/jemila/random_open_img_2.png differ diff --git a/image/event/jemila/random_open_img_3.png b/image/event/jemila/random_open_img_3.png new file mode 100644 index 00000000..b2c8051b Binary files /dev/null and b/image/event/jemila/random_open_img_3.png differ diff --git a/image/event/jemila/random_select_effect.png b/image/event/jemila/random_select_effect.png new file mode 100644 index 00000000..eab02ad4 Binary files /dev/null and b/image/event/jemila/random_select_effect.png differ diff --git a/image/event/jemila/random_select_img_1.png b/image/event/jemila/random_select_img_1.png new file mode 100644 index 00000000..decbfc4e Binary files /dev/null and b/image/event/jemila/random_select_img_1.png differ diff --git a/image/event/jemila/random_select_img_2.png b/image/event/jemila/random_select_img_2.png new file mode 100644 index 00000000..59e2dbf7 Binary files /dev/null and b/image/event/jemila/random_select_img_2.png differ diff --git a/image/event/jemila/random_select_img_3.png b/image/event/jemila/random_select_img_3.png new file mode 100644 index 00000000..4c964a10 Binary files /dev/null and b/image/event/jemila/random_select_img_3.png differ diff --git a/image/event/jemila/reward_1.png b/image/event/jemila/reward_1.png new file mode 100644 index 00000000..13c79af9 Binary files /dev/null and b/image/event/jemila/reward_1.png differ diff --git a/image/event/jemila/reward_1_name_en.png b/image/event/jemila/reward_1_name_en.png new file mode 100644 index 00000000..d45d2b24 Binary files /dev/null and b/image/event/jemila/reward_1_name_en.png differ diff --git a/image/event/jemila/reward_1_name_th.png b/image/event/jemila/reward_1_name_th.png new file mode 100644 index 00000000..d45d2b24 Binary files /dev/null and b/image/event/jemila/reward_1_name_th.png differ diff --git a/image/event/jemila/reward_2.png b/image/event/jemila/reward_2.png new file mode 100644 index 00000000..6fce1e39 Binary files /dev/null and b/image/event/jemila/reward_2.png differ diff --git a/image/event/jemila/reward_2_name_en.png b/image/event/jemila/reward_2_name_en.png new file mode 100644 index 00000000..ac94f95f Binary files /dev/null and b/image/event/jemila/reward_2_name_en.png differ diff --git a/image/event/jemila/reward_2_name_th.png b/image/event/jemila/reward_2_name_th.png new file mode 100644 index 00000000..0b82f8b9 Binary files /dev/null and b/image/event/jemila/reward_2_name_th.png differ diff --git a/image/event/jemila/reward_3.png b/image/event/jemila/reward_3.png new file mode 100644 index 00000000..5fad62e0 Binary files /dev/null and b/image/event/jemila/reward_3.png differ diff --git a/image/event/jemila/reward_3_name_en.png b/image/event/jemila/reward_3_name_en.png new file mode 100644 index 00000000..4706a0a5 Binary files /dev/null and b/image/event/jemila/reward_3_name_en.png differ diff --git a/image/event/jemila/reward_3_name_th.png b/image/event/jemila/reward_3_name_th.png new file mode 100644 index 00000000..a0f6a5fa Binary files /dev/null and b/image/event/jemila/reward_3_name_th.png differ diff --git a/image/event/jemila/reward_bg.png b/image/event/jemila/reward_bg.png new file mode 100644 index 00000000..b53fd80a Binary files /dev/null and b/image/event/jemila/reward_bg.png differ diff --git a/image/event/jemila/taobin_jemila.png b/image/event/jemila/taobin_jemila.png new file mode 100644 index 00000000..7aed9e73 Binary files /dev/null and b/image/event/jemila/taobin_jemila.png differ diff --git a/image/event/jemila/text_fail_collect_en.png b/image/event/jemila/text_fail_collect_en.png new file mode 100644 index 00000000..05873695 Binary files /dev/null and b/image/event/jemila/text_fail_collect_en.png differ diff --git a/image/event/jemila/text_fail_collect_th.png b/image/event/jemila/text_fail_collect_th.png new file mode 100644 index 00000000..d24ddc34 Binary files /dev/null and b/image/event/jemila/text_fail_collect_th.png differ diff --git a/image/event/jemila/text_fail_send_reward_en.png b/image/event/jemila/text_fail_send_reward_en.png new file mode 100644 index 00000000..f2831b16 Binary files /dev/null and b/image/event/jemila/text_fail_send_reward_en.png differ diff --git a/image/event/jemila/text_fail_send_reward_th.png b/image/event/jemila/text_fail_send_reward_th.png new file mode 100644 index 00000000..4a77d409 Binary files /dev/null and b/image/event/jemila/text_fail_send_reward_th.png differ diff --git a/inter/aus/xml/page_brewing3.lxml b/inter/aus/xml/page_brewing3.lxml index 25e7e9e2..b79d3abc 100644 --- a/inter/aus/xml/page_brewing3.lxml +++ b/inter/aus/xml/page_brewing3.lxml @@ -19,7 +19,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -51,8 +51,8 @@ WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -65,7 +65,7 @@ Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" - + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -76,14 +76,14 @@ Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav" @@ -92,7 +92,7 @@ Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" - + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" @@ -101,9 +101,9 @@ Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" - Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + - Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -119,7 +119,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -142,7 +142,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -152,7 +152,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -165,7 +165,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -181,9 +181,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -192,12 +192,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -211,19 +211,19 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -240,7 +240,7 @@ DEBUGVAR TxReference - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else @@ -248,13 +248,13 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -265,7 +265,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -291,7 +291,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -308,31 +308,31 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Enable" + Var SelectMenuBetweenBrewEnable1Blink = "Enable" Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - ;Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + ;Var SelectMenuBetweenBrewEnable1Blink = "Invisible" ;Var SelectMenuBetweenBrewEnable1 = "Invisible" DEBUGVAR NeedUpgrade @@ -341,7 +341,7 @@ ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 - + ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 @@ -358,16 +358,16 @@ Var bg_strawProblem_ST2 = "Invisible" - If bg_lidProblem_ST2 = "Invisible" Then + If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf - - + + If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" @@ -380,7 +380,7 @@ DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -419,14 +419,14 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + ; echo 1 > /mnt/sdcard/game_enable READ_FILE "/mnt/sdcard/game_enable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_enable DEBUGVAR game_mode_enable - + If GameEnableFromTrickerEv = 1 Then Var game_mode_enable = "true" EndIf @@ -445,14 +445,14 @@ DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker If game_mode_enable = "true" Then - + CheckApp "com.NDF.taobin" GameInstalled - + DEBUGVAR GameInstalled - + If GameInstalled = "true" Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -478,7 +478,7 @@ ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://game.au.taobin.local:26969"\r\n" - + If TelephoneNumber = "0899999999" Then ; Coupon or customer not input phone number. Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") @@ -488,7 +488,7 @@ EndIf DEBUGVAR ACCString - + Var LangString = "LANG: "EN"\r\n" ; reset @@ -503,10 +503,10 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -523,7 +523,7 @@ EndIf EndIf EndIf - + DEBUGVAR Game01Enable @@ -555,11 +555,11 @@ - ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable - ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable If Game01Enable = 1 Then - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 75 Then If Game01Enable = 1 Then @@ -594,9 +594,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -610,11 +610,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -636,31 +636,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -674,11 +674,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -700,27 +700,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + If Timeout < 2 Then If GameInstalled = "true" Then If Game01Enable = 0 Then @@ -760,22 +760,22 @@ ; EndIf ;EndIf - + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav" @@ -796,13 +796,13 @@ EndIf EndIf EndIf - + ; run test; - ;If CountDownBrewing = 40 Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;If CountDownBrewing = 40 Then + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If CountDownBrewing = 0 Then - ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf Var ShowCountDownBrewing = CountDownBrewing @@ -810,9 +810,9 @@ If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -839,19 +839,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -863,11 +863,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -887,9 +887,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -925,7 +925,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -943,13 +943,13 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -989,7 +989,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -1000,19 +1000,19 @@ ;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 357." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -1046,13 +1046,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -1061,12 +1061,12 @@ Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -1085,12 +1085,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -1100,7 +1100,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -1109,7 +1109,7 @@ If AddData = 1 Then - Var Cid = 26 + Var Cid = 26 If NewCollectPointFlag = 1 Then If Seeker.redeemDiscount = "2_dollar" Then @@ -1122,27 +1122,27 @@ Var Seeker.redeemDiscount = "" EndIf - + AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -1165,7 +1165,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL @@ -1173,24 +1173,24 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL EndIf - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1204,7 +1204,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1213,7 +1213,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1242,17 +1242,17 @@ EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then ;CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1262,9 +1262,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1280,9 +1280,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1290,7 +1290,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1305,34 +1305,34 @@ Var ChangeOK = 3 EndIf - - - - - - + + + + + + ;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml" - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml" ;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" - + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf @@ -1351,26 +1351,26 @@ Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else - If SelectMenuBetweenBrewEnable2 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable2 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1378,15 +1378,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1398,9 +1398,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1410,7 +1410,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1430,7 +1430,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1442,12 +1442,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1455,7 +1455,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1465,9 +1465,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1516,29 +1516,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1546,7 +1546,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1560,7 +1560,7 @@ If EnableGetMoreStrawFileName2 = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1571,11 +1571,11 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + If NoLangObjectShow = "Enable" Then Var bg_strawProblem_ST = "Enable" Else @@ -1585,7 +1585,7 @@ EndIf DEBUGVAR bg_lidProblem_ST2 - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1598,7 +1598,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If NoLangObjectShow = "Enable" Then If GetLidButtonCountDown = 1 Then @@ -1610,9 +1610,9 @@ EndIf Var bg_lidProblem_ST = "Invisible" - + If LanguageObjectShow = "Enable" Then - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState2 = "Invisible" Var bg_lidProblem_ST2 = "Enable" @@ -1630,7 +1630,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1654,28 +1654,28 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + ;If MachineStage = "drink-success" Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then - ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1688,12 +1688,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1807,18 +1807,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1900,7 +1900,7 @@ ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") - + @@ -1929,7 +1929,7 @@ 440 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1954,16 +1954,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + ;==================================================================== @@ -1994,7 +1994,7 @@ Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -2016,16 +2016,16 @@ bg_strawProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" - + __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -2042,16 +2042,16 @@ bg_lidProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -2068,7 +2068,7 @@ "No" Var( DirImageDoing + "/bn_get_lid.png" ) Var( DirImageDoing + "/bp_get_lid.png" ) - + If GetLidButtonState2 = "Enable" Then Machine Lid diff --git a/inter/hkg/xml/page_brewing3.lxml b/inter/hkg/xml/page_brewing3.lxml index ae899bd7..acce5f25 100644 --- a/inter/hkg/xml/page_brewing3.lxml +++ b/inter/hkg/xml/page_brewing3.lxml @@ -19,7 +19,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -51,8 +51,8 @@ WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -65,7 +65,7 @@ Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" - + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" @@ -76,12 +76,12 @@ Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - - + + Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" - + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" @@ -90,9 +90,9 @@ Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" - Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + - Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -108,7 +108,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -131,7 +131,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -141,7 +141,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -154,7 +154,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -170,9 +170,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -181,12 +181,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -200,19 +200,19 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -229,7 +229,7 @@ DEBUGVAR TxReference - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else @@ -237,13 +237,13 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -254,7 +254,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -280,7 +280,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -297,31 +297,31 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Enable" + Var SelectMenuBetweenBrewEnable1Blink = "Enable" Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" DEBUGVAR NeedUpgrade @@ -330,7 +330,7 @@ ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 - + ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 @@ -347,16 +347,16 @@ Var bg_strawProblem_ST2 = "Invisible" - If bg_lidProblem_ST2 = "Invisible" Then + If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf - - + + If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" @@ -369,7 +369,7 @@ DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -394,7 +394,7 @@ Var VideoPlayFile = DirImageDoing + "/tao_adv1.png" Var PictureFile = brew_txt1 EndIf - + Var CampaignEnable = 0 @@ -409,19 +409,19 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker - + DEBUGVAR Game01Enable DEBUGVAR BREW_CNT - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Invisible" @@ -445,7 +445,7 @@ EndIf CashlessReq SUCCESS - + Var XPosiShowCountDownBrew = 768 @@ -458,9 +458,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -474,11 +474,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -500,31 +500,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -536,11 +536,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -561,27 +561,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + DEBUGVAR MachineState_Result DEBUGVAR BREW_COUNT_DOWN_FROM_APP @@ -603,16 +603,16 @@ DEBUGVAR BREW_CNT - + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - - + + PlayLong PlaySoundLag EndIf EndIf @@ -628,7 +628,7 @@ EndIf EndIf EndIf - + Var ShowCountDownBrewing = CountDownBrewing ; percent @@ -644,16 +644,16 @@ DEBUGVAR XPercent Var XPercent = XPercent / InitCNT EndIf - + DEBUGVAR XPercent EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -680,19 +680,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -704,11 +704,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -728,9 +728,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -766,7 +766,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -784,13 +784,13 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -830,7 +830,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -844,7 +844,7 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate @@ -879,13 +879,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -894,12 +894,12 @@ Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -915,12 +915,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -930,7 +930,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -948,24 +948,24 @@ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -988,7 +988,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL @@ -996,24 +996,24 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL EndIf - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1027,7 +1027,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1036,7 +1036,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1060,17 +1060,17 @@ EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then ;CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1080,9 +1080,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1098,9 +1098,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1108,7 +1108,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1123,21 +1123,21 @@ Var ChangeOK = 3 EndIf - - - + + + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 1087." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then ;Var SetPercent100 = 1 Var MachineState_Result = 1 @@ -1157,26 +1157,26 @@ Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else - If SelectMenuBetweenBrewEnable2 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable2 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1184,15 +1184,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1204,9 +1204,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1216,7 +1216,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1236,7 +1236,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1248,12 +1248,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1261,7 +1261,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1271,9 +1271,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1322,29 +1322,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1352,7 +1352,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1366,7 +1366,7 @@ If EnableGetMoreStrawFileName2 = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1377,11 +1377,11 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + If NoLangObjectShow = "Enable" Then Var bg_strawProblem_ST = "Enable" Else @@ -1391,7 +1391,7 @@ EndIf DEBUGVAR bg_lidProblem_ST2 - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1404,7 +1404,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If NoLangObjectShow = "Enable" Then If GetLidButtonCountDown = 1 Then @@ -1416,9 +1416,9 @@ EndIf Var bg_lidProblem_ST = "Invisible" - + If LanguageObjectShow = "Enable" Then - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState2 = "Invisible" Var bg_lidProblem_ST2 = "Enable" @@ -1436,7 +1436,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1460,21 +1460,21 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + ;If MachineStage = "drink-success" Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then - ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then @@ -1482,7 +1482,7 @@ ;Var SetPercent100 = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1495,12 +1495,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1636,18 +1636,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1729,7 +1729,7 @@ ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") - + @@ -1758,7 +1758,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1783,16 +1783,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + ;==================================================================== @@ -1823,7 +1823,7 @@ Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1835,7 +1835,7 @@ Else Var EnableGetMoreStrawFileName2 = "Invisible" EndIf - + 50 20 @@ -1852,16 +1852,16 @@ bg_strawProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" - + __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -1878,16 +1878,16 @@ bg_lidProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -1904,7 +1904,7 @@ "No" Var( DirImageDoing + "/bn_get_lid.png" ) Var( DirImageDoing + "/bp_get_lid.png" ) - + If GetLidButtonState2 = "Enable" Then Machine Lid diff --git a/inter/mys/xml/page_brewing3.lxml b/inter/mys/xml/page_brewing3.lxml index d4e8cdd2..5ceb3788 100644 --- a/inter/mys/xml/page_brewing3.lxml +++ b/inter/mys/xml/page_brewing3.lxml @@ -19,7 +19,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -52,8 +52,8 @@ WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -66,7 +66,7 @@ Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" - + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" @@ -77,14 +77,14 @@ Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav" @@ -93,7 +93,7 @@ Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" - + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" @@ -102,9 +102,9 @@ Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" - Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + - Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -120,7 +120,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -143,7 +143,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -153,7 +153,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -166,7 +166,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -182,9 +182,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -193,12 +193,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -212,19 +212,19 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -242,7 +242,7 @@ DEBUGVAR Seeker.VendingCampaign - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else @@ -250,13 +250,13 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -267,7 +267,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -293,7 +293,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -310,28 +310,28 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf DEBUGVAR NeedUpgrade @@ -340,7 +340,7 @@ ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 - + ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 @@ -357,16 +357,16 @@ Var bg_strawProblem_ST2 = "Invisible" - If bg_lidProblem_ST2 = "Invisible" Then + If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf - - + + If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" @@ -379,7 +379,7 @@ DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -418,14 +418,14 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + ; echo 1 > /mnt/sdcard/game_enable READ_FILE "/mnt/sdcard/game_enable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_enable DEBUGVAR game_mode_enable - + If GameEnableFromTrickerEv = 1 Then Var game_mode_enable = "true" EndIf @@ -444,13 +444,13 @@ DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker If game_mode_enable = "true" Then - - + + DEBUGVAR GameInstalled - + If GameInstalled = "true" Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -475,7 +475,7 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://game.my.taobin.local:26969"\r\n" - + If TelephoneNumber = "0899999999" Then ; Coupon or customer not input phone number. Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") @@ -485,7 +485,7 @@ EndIf DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -504,10 +504,10 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -524,7 +524,7 @@ EndIf EndIf EndIf - + DEBUGVAR Game01Enable @@ -556,11 +556,11 @@ - ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable - ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable If Game01Enable = 1 Then - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 75 Then If Game01Enable = 1 Then @@ -584,7 +584,7 @@ EndIf EndIf - + Var XPosiShowCountDownBrew = 768 @@ -597,9 +597,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -613,11 +613,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -639,31 +639,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -677,11 +677,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -703,27 +703,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + If Timeout < 2 Then If Game01Enable = 0 Then If game_mode_enable = "true" Then @@ -732,7 +732,7 @@ Var Game01Enable = 1 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Enable" - + EndIf EndIf EndIf @@ -762,22 +762,22 @@ ; EndIf ;EndIf - + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav" @@ -798,13 +798,13 @@ EndIf EndIf EndIf - + ; run test; - ;If CountDownBrewing = 40 Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;If CountDownBrewing = 40 Then + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If CountDownBrewing = 0 Then - ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf Var ShowCountDownBrewing = CountDownBrewing @@ -812,9 +812,9 @@ If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -841,19 +841,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -865,11 +865,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -889,9 +889,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -927,7 +927,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -945,13 +945,13 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -991,7 +991,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -1002,19 +1002,19 @@ ;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 357." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -1048,13 +1048,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -1063,12 +1063,12 @@ Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -1087,12 +1087,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -1102,7 +1102,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -1114,24 +1114,24 @@ Var Cid = 26 AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -1154,7 +1154,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + CashlessReq SUCCESS ;CashlessReq FAIL @@ -1162,24 +1162,24 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + CashlessReq SUCCESS ;CashlessReq FAIL EndIf - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1193,7 +1193,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1202,7 +1202,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1220,17 +1220,17 @@ EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1240,9 +1240,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1258,9 +1258,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1268,7 +1268,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1283,34 +1283,34 @@ Var ChangeOK = 3 EndIf - - - - - - + + + + + + ;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml" - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml" ;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" - + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf @@ -1329,26 +1329,26 @@ Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else - If SelectMenuBetweenBrewEnable2 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable2 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1356,15 +1356,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1376,9 +1376,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1388,7 +1388,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1408,7 +1408,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1420,12 +1420,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1433,7 +1433,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1443,9 +1443,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1494,29 +1494,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1524,7 +1524,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1538,7 +1538,7 @@ If EnableGetMoreStrawFileName2 = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1549,11 +1549,11 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + If NoLangObjectShow = "Enable" Then Var bg_strawProblem_ST = "Enable" Else @@ -1563,7 +1563,7 @@ EndIf DEBUGVAR bg_lidProblem_ST2 - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1576,7 +1576,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If NoLangObjectShow = "Enable" Then If GetLidButtonCountDown = 1 Then @@ -1588,9 +1588,9 @@ EndIf Var bg_lidProblem_ST = "Invisible" - + If LanguageObjectShow = "Enable" Then - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState2 = "Invisible" Var bg_lidProblem_ST2 = "Enable" @@ -1608,7 +1608,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1632,28 +1632,28 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + ;If MachineStage = "drink-success" Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then - ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1666,12 +1666,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1792,18 +1792,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1885,7 +1885,7 @@ ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") - + @@ -1914,7 +1914,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1939,16 +1939,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + ;==================================================================== @@ -1979,7 +1979,7 @@ Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1991,7 +1991,7 @@ Else Var EnableGetMoreStrawFileName2 = "Invisible" EndIf - + 50 20 @@ -2008,16 +2008,16 @@ bg_strawProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" - + __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -2034,16 +2034,16 @@ bg_lidProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -2060,7 +2060,7 @@ "No" Var( DirImageDoing + "/bn_get_lid.png" ) Var( DirImageDoing + "/bp_get_lid.png" ) - + If GetLidButtonState2 = "Enable" Then Machine Lid diff --git a/inter/sgp/xml/page_brewing3.lxml b/inter/sgp/xml/page_brewing3.lxml index 826bcbe5..34359cb9 100644 --- a/inter/sgp/xml/page_brewing3.lxml +++ b/inter/sgp/xml/page_brewing3.lxml @@ -24,7 +24,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -62,8 +62,8 @@ WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -75,7 +75,7 @@ Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" - + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" @@ -99,12 +99,12 @@ Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - - + + Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" - + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" @@ -113,9 +113,9 @@ Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" - Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + - Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -131,7 +131,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -154,7 +154,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -164,7 +164,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -177,7 +177,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -193,9 +193,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -204,12 +204,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -223,19 +223,19 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -252,7 +252,7 @@ DEBUGVAR TxReference - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" @@ -265,13 +265,13 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -282,7 +282,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -308,7 +308,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -325,31 +325,31 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Enable" + Var SelectMenuBetweenBrewEnable1Blink = "Enable" Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" DEBUGVAR NeedUpgrade @@ -358,7 +358,7 @@ ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 - + ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 @@ -375,16 +375,16 @@ Var bg_strawProblem_ST2 = "Invisible" - If bg_lidProblem_ST2 = "Invisible" Then + If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf - - + + If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" @@ -397,7 +397,7 @@ DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -422,7 +422,7 @@ Var VideoPlayFile = DirImageDoing + "/tao_adv1.png" Var PictureFile = brew_txt1 EndIf - + Var CampaignEnable = 0 @@ -437,19 +437,19 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker - + DEBUGVAR Game01Enable DEBUGVAR BREW_CNT - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Invisible" @@ -477,7 +477,7 @@ EndIf CashlessReq SUCCESS - + Var XPosiShowCountDownBrew = 768 @@ -490,9 +490,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -506,11 +506,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -532,31 +532,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -568,11 +568,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -593,27 +593,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + DEBUGVAR MachineState_Result DEBUGVAR BREW_COUNT_DOWN_FROM_APP @@ -635,16 +635,16 @@ DEBUGVAR BREW_CNT - + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - - + + PlayLong PlaySoundLag EndIf EndIf @@ -660,7 +660,7 @@ EndIf EndIf EndIf - + Var ShowCountDownBrewing = CountDownBrewing ; percent @@ -676,16 +676,16 @@ DEBUGVAR XPercent Var XPercent = XPercent / InitCNT EndIf - + DEBUGVAR XPercent EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -712,19 +712,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -736,11 +736,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -760,9 +760,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -798,7 +798,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -816,13 +816,13 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -862,7 +862,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -876,7 +876,7 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate @@ -911,13 +911,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -926,12 +926,12 @@ Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -947,12 +947,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -962,7 +962,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -980,24 +980,24 @@ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -1020,7 +1020,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL @@ -1028,24 +1028,24 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL EndIf - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1059,7 +1059,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1068,7 +1068,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1092,17 +1092,17 @@ EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then ;CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1112,9 +1112,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1130,9 +1130,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1140,7 +1140,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1155,21 +1155,21 @@ Var ChangeOK = 3 EndIf - - - + + + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 1087." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then ;Var SetPercent100 = 1 Var MachineState_Result = 1 @@ -1189,26 +1189,26 @@ Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else - If SelectMenuBetweenBrewEnable2 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable2 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1216,15 +1216,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1236,9 +1236,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1248,7 +1248,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1268,7 +1268,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1280,12 +1280,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1293,7 +1293,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1303,9 +1303,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1354,29 +1354,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1384,7 +1384,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1398,7 +1398,7 @@ If EnableGetMoreStrawFileName2 = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1409,11 +1409,11 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + If NoLangObjectShow = "Enable" Then Var bg_strawProblem_ST = "Enable" Else @@ -1423,7 +1423,7 @@ EndIf DEBUGVAR bg_lidProblem_ST2 - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1436,7 +1436,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If NoLangObjectShow = "Enable" Then If GetLidButtonCountDown = 1 Then @@ -1448,9 +1448,9 @@ EndIf Var bg_lidProblem_ST = "Invisible" - + If LanguageObjectShow = "Enable" Then - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState2 = "Invisible" Var bg_lidProblem_ST2 = "Enable" @@ -1468,7 +1468,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1492,21 +1492,21 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + ;If MachineStage = "drink-success" Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then - ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then @@ -1514,7 +1514,7 @@ ;Var SetPercent100 = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1527,12 +1527,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1668,18 +1668,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1761,7 +1761,7 @@ ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") - + @@ -1790,7 +1790,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1815,16 +1815,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + ;==================================================================== @@ -1855,7 +1855,7 @@ Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1867,7 +1867,7 @@ Else Var EnableGetMoreStrawFileName2 = "Invisible" EndIf - + 50 20 @@ -1884,16 +1884,16 @@ bg_strawProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด" - + __CMD "straw-alert-disable" 0 strawStr "-" __CMD "send-error-code" 1231 "-" "-" Var bg_strawProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -1910,16 +1910,16 @@ bg_lidProblem_ST2 Var( DirImageDoing + "/bn_send_report.png" ) Var( DirImageDoing + "/bn_send_report.png" ) - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST2 = "Invisible" Refresh - + 0 12 @@ -1936,7 +1936,7 @@ "No" Var( DirImageDoing + "/bn_get_lid.png" ) Var( DirImageDoing + "/bp_get_lid.png" ) - + If GetLidButtonState2 = "Enable" Then Machine Lid diff --git a/inter/sgp/xml/page_brewing3_blue.lxml b/inter/sgp/xml/page_brewing3_blue.lxml index ce3f1553..743e524e 100644 --- a/inter/sgp/xml/page_brewing3_blue.lxml +++ b/inter/sgp/xml/page_brewing3_blue.lxml @@ -20,7 +20,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -58,8 +58,8 @@ WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--" - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = DirImageDoing + "/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -71,7 +71,7 @@ Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png" Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png" - + Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png" @@ -95,12 +95,12 @@ Var XStraw = 274 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - - + + Play PlaySoundLag Var IMG_CNT = DirImageDoing + "/img2.png" - + Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png" Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png" @@ -109,9 +109,9 @@ Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png" Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png" - Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png" + - Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png" Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png" @@ -127,7 +127,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -150,7 +150,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -160,7 +160,7 @@ Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -173,7 +173,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -189,9 +189,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -200,12 +200,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -219,19 +219,19 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -248,7 +248,7 @@ DEBUGVAR TxReference - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" @@ -261,13 +261,13 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -278,7 +278,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -304,7 +304,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -321,31 +321,31 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Enable" + Var SelectMenuBetweenBrewEnable1Blink = "Enable" Var SelectMenuBetweenBrewEnable1 = "Enable" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" EndIf - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" DEBUGVAR NeedUpgrade @@ -354,7 +354,7 @@ ; copy stage Var bg_lidProblem_ST2 = bg_lidProblem_ST DEBUGVAR bg_lidProblem_ST2 - + ; zone Language If LanguageObjectShow = "Enable" Then Var XStraw = 350 @@ -371,16 +371,16 @@ Var bg_strawProblem_ST2 = "Invisible" - If bg_lidProblem_ST2 = "Invisible" Then + If bg_lidProblem_ST2 = "Invisible" Then Var GetLidButtonState2 = "Enable" Else Var GetLidButtonState2 = "Invisible" EndIf EndIf - - + + If NoLangObjectShow = "Enable" Then Var SelectMenuBetweenBrewEnable2 = "Invisible" @@ -393,7 +393,7 @@ DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -418,7 +418,7 @@ Var VideoPlayFile = DirImageDoing + "/tao_adv1.png" Var PictureFile = brew_txt1 EndIf - + Var CampaignEnable = 0 @@ -433,19 +433,19 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker - + DEBUGVAR Game01Enable DEBUGVAR BREW_CNT - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" - + Var ButtonGameCountDown = 0 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Invisible" @@ -473,7 +473,7 @@ EndIf CashlessReq SUCCESS - + Var XPosiShowCountDownBrew = 768 @@ -486,9 +486,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -502,11 +502,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -528,31 +528,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -564,11 +564,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -589,27 +589,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + DEBUGVAR MachineState_Result DEBUGVAR BREW_COUNT_DOWN_FROM_APP @@ -631,16 +631,16 @@ DEBUGVAR BREW_CNT - + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - - + + PlayLong PlaySoundLag EndIf EndIf @@ -656,7 +656,7 @@ EndIf EndIf EndIf - + Var ShowCountDownBrewing = CountDownBrewing ; percent @@ -672,16 +672,16 @@ DEBUGVAR XPercent Var XPercent = XPercent / InitCNT EndIf - + DEBUGVAR XPercent EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -708,19 +708,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -732,11 +732,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -756,9 +756,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -794,7 +794,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -812,13 +812,13 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -858,7 +858,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -872,7 +872,7 @@ Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate @@ -907,13 +907,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -922,12 +922,12 @@ Var DEE = PayDetail PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -943,12 +943,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -958,7 +958,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -976,24 +976,24 @@ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -1016,7 +1016,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL @@ -1024,24 +1024,24 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + ;CashlessReq SUCCESS ;CashlessReq FAIL EndIf - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1055,7 +1055,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1064,7 +1064,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1088,17 +1088,17 @@ EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then ;CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1108,9 +1108,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1126,9 +1126,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1136,7 +1136,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1151,21 +1151,21 @@ Var ChangeOK = 3 EndIf - - - + + + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 1087." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then ;Var SetPercent100 = 1 Var MachineState_Result = 1 @@ -1185,26 +1185,26 @@ Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else - If SelectMenuBetweenBrewEnable2 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable2 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1212,15 +1212,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1232,9 +1232,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1244,7 +1244,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1264,7 +1264,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1276,12 +1276,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1289,7 +1289,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1299,9 +1299,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1350,29 +1350,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1380,7 +1380,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1394,7 +1394,7 @@ If EnableGetMoreStrawFileName2 = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1405,11 +1405,11 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + If NoLangObjectShow = "Enable" Then Var bg_strawProblem_ST = "Enable" Else @@ -1419,7 +1419,7 @@ EndIf DEBUGVAR bg_lidProblem_ST2 - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1432,7 +1432,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If NoLangObjectShow = "Enable" Then If GetLidButtonCountDown = 1 Then @@ -1444,9 +1444,9 @@ EndIf Var bg_lidProblem_ST = "Invisible" - + If LanguageObjectShow = "Enable" Then - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState2 = "Invisible" Var bg_lidProblem_ST2 = "Enable" @@ -1464,7 +1464,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1488,21 +1488,21 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + ;If MachineStage = "drink-success" Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then - ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then @@ -1510,7 +1510,7 @@ ;Var SetPercent100 = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1523,12 +1523,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1664,18 +1664,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1757,7 +1757,7 @@ ButtonGameCountDownState Var( DirImageDoing + "/bn_game_cnt_down.png") Var( DirImageDoing + "/bn_game_cnt_down.png") - + @@ -1786,7 +1786,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1811,16 +1811,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + ;==================================================================== @@ -1851,7 +1851,7 @@ Var( DirImageDoing + "/bn_get_more_straw.png" ) Var( DirImageDoing + "/bp_get_more_straw.png" ) "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName2 = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1863,7 +1863,7 @@ Else Var EnableGetMoreStrawFileName2 = "Invisible" EndIf - + + + +; + + 751 + 413 + IMG_CNT + +; + + XPosiShowCountDownBrew + 470 + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + + + + Var PointState[0] = 1 + Var PointState[1] = 1 + Var PointState[2] = 1 + Var PointState[3] = 1 + Var PointState[4] = 1 + Var PointState[5] = 1 + Var PointState[6] = 1 + + Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml" + + + + If show_eng = "true" Then + Var show_eng = "false" + Else + Var show_eng = "true" + EndIf + Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml" + + + + \ No newline at end of file diff --git a/xml/event/jemila/page_collect_point_jemila_error.xml b/xml/event/jemila/page_collect_point_jemila_error.xml new file mode 100644 index 00000000..34a9d4d7 --- /dev/null +++ b/xml/event/jemila/page_collect_point_jemila_error.xml @@ -0,0 +1,240 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + + ; On open + + + Var Timeout = 0 + SAVELOG show_eng + + + DEBUGVAR CollectPointError + + Var DirImage = "ROOT/taobin_project/image/event/jemila" + Var ButtonImagePath = "ROOT/taobin_project/image/collectiing" + + If CollectPointError = "collect" Then + If show_eng = "true" Then + Var text_fail = DirImage + "/text_fail_collect_en.png" + Else + Var text_fail = DirImage + "/text_fail_collect_th.png" + EndIf + EndIf + + If CollectPointError = "random" Then + If show_eng = "true" Then + Var text_fail = DirImage + "/text_fail_send_reward_en.png" + Else + Var text_fail = DirImage + "/text_fail_send_reward_th.png" + EndIf + EndIf + + Var newPointIndex = 0 + + ; Menu 1 + If Seeker.selected_a_drink = "12-03-02-0075" Then + Var newPointIndex = 0 + EndIf + If Seeker.selected_a_drink = "12-03-03-0075" Then + Var newPointIndex = 0 + EndIf + + + ; Menu 2 + If Seeker.selected_a_drink = "12-05-02-0124" Then + Var newPointIndex = 1 + EndIf + If Seeker.selected_a_drink = "12-05-03-0124" Then + Var newPointIndex = 1 + EndIf + + + ; Menu 3 + If Seeker.selected_a_drink = "12-02-02-0068" Then + Var newPointIndex = 2 + EndIf + If Seeker.selected_a_drink = "12-02-03-0068" Then + Var newPointIndex = 2 + EndIf + + + ; Menu 4 + If Seeker.selected_a_drink = "12-05-02-0125" Then + Var newPointIndex = 3 + EndIf + + + ; Menu 5 + If Seeker.selected_a_drink = "12-01-02-0075" Then + Var newPointIndex = 4 + EndIf + If Seeker.selected_a_drink = "12-21-02-0075" Then + Var newPointIndex = 4 + EndIf + + + ; Menu 6 + If Seeker.selected_a_drink = "12-03-02-0076" Then + Var newPointIndex = 5 + EndIf + If Seeker.selected_a_drink = "12-03-03-0076" Then + Var newPointIndex = 5 + EndIf + + + ; Menu 7 + If Seeker.selected_a_drink = "12-02-02-0069" Then + Var newPointIndex = 6 + EndIf + If Seeker.selected_a_drink = "12-02-03-0069" Then + Var newPointIndex = 6 + EndIf + + + ; Menu 8 + If Seeker.selected_a_drink = "12-05-02-0126" Then + Var newPointIndex = 7 + EndIf + If Seeker.selected_a_drink = "12-05-03-0126" Then + Var newPointIndex = 7 + EndIf + + + ; Menu 9 + If Seeker.selected_a_drink = "12-05-02-0127" Then + Var newPointIndex = 8 + EndIf + If Seeker.selected_a_drink = "12-05-03-0127" Then + Var newPointIndex = 8 + EndIf + + ; Menu 10 + If Seeker.selected_a_drink = "12-02-02-0070" Then + Var newPointIndex = 8 + EndIf + If Seeker.selected_a_drink = "12-02-03-0070" Then + Var newPointIndex = 8 + EndIf + + Var CurrentPointSlot = newPointIndex + 1 + Var CurrentPointCheck = "check" + Var val3 = "X" + AddData 53 TelephoneNumber CurrentPointSlot CurrentPointCheck val3 + + + 1000 + + + Var CountDownBrewing = BREW_CNT + + Var ShowCountDownBrewing = CountDownBrewing + + Var Timeout = Timeout + 1 + If Timeout > 5 Then + 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 + + + + + + 0 + 380 + Var( DirImage + "/fail_bg.png" ) + + + + 63 + 471 + Var( DirImage + "/fail_img.png") + + + + 28 + 1492 + text_fail + + + + + + + +;include="ROOT/taobin_project/inc/video.inc" + + + +; + + 751 + 413 + IMG_CNT + +; + + XPosiShowCountDownBrew + 470 + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + + + + Open "/media/bt/xml/security_alarm.xml" + + + + If show_eng = "true" Then + Var show_eng = "false" + Else + Var show_eng = "true" + EndIf + Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml" + + + + If CollectPointError = "collect" then + Var CollectPointError = "random" + Else + Var CollectPointError = "collect" + EndIf + + Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml" + + + \ No newline at end of file diff --git a/xml/event/jemila/page_jemila_random.xml b/xml/event/jemila/page_jemila_random.xml new file mode 100644 index 00000000..fa10434f --- /dev/null +++ b/xml/event/jemila/page_jemila_random.xml @@ -0,0 +1,394 @@ + + 1080 + 1920 + SoundVolume + ; "0xeae6e1" + + + Var Timeout = 0 + + Var DirImage = "ROOT/taobin_project/image/event/jemila" + + Var MaxRandomIndex = 0 + Var SelectNumber = 0 + + Var ShakeCount = 0 + + Var SelectingState = "Enable" + Var SelectedState = "Invisible" + + Var SelectedRandomImg = "" + Var SelectedRandomX = 0 + Var SelectedRandomY = 0 + + If JemilaDewyglowOutOfStock = 0 Then + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "jemila_dewyglow" + Var MaxRandomIndex = MaxRandomIndex + 1 + EndIf + + If ColorChangingBlushOutOfStock = 0 Then + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "color_changing_blush" + Var MaxRandomIndex = MaxRandomIndex + 1 + EndIf + + If CuraMDRandomOutOfStock = 0 Then + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + Var rewardList[MaxRandomIndex] = "cura_md_random" + Var MaxRandomIndex = MaxRandomIndex + 1 + EndIf + + + + + + 1000 + + DEBUGVAR Timeout + + Var CountDownBrewing = BREW_CNT + + Var ShowCountDownBrewing = CountDownBrewing + + If Timeout > 15 Then + SAVELOG "Timeout 15 second auto random for you" + Function 2 + EndIf + + If SelectedState = "Enable" Then + If Timeout > 4 Then + Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random_result.xml" + EndIf + EndIf + + Var Timeout = Timeout + 1 + + TimerReset + Refresh + + + +;include="ROOT/taobin_project/inc/video.inc" + + + ; Background + + 0 + 380 + Var( DirImage + "/random_bg.png") + + + + 247 + 698 + SelectingState + Var( DirImage + "/random_select_effect.png") + + + + 368 + 625 + SelectingState + Var( DirImage + "/random_select_img_1.png") + + Var SelectedRandomImg = DirImage + "/random_open_img_1.png" + Var SelectedRandomX = 163 + Var SelectedRandomY = 662 + Function 2 + + + + + 58 + 1163 + SelectingState + Var( DirImage + "/random_select_img_2.png") + + Var SelectedRandomImg = DirImage + "/random_open_img_2.png" + Var SelectedRandomX = 279 + Var SelectedRandomY = 653 + Function 2 + + + + + 668 + 1151 + SelectingState + Var( DirImage + "/random_select_img_3.png") + + Var SelectedRandomImg = DirImage + "/random_open_img_3.png" + Var SelectedRandomX = 108 + Var SelectedRandomY = 712 + Function 2 + + + + + SelectedRandomX + SelectedRandomY + SelectedState + SelectedRandomImg + + + + ; Random coupon + Var randResultInt = 0 + Var CodeType = "" + + DEBUGVAR MaxRandomIndex + Random2 0 MaxRandomIndex randResultInt + DEBUGVAR randResultInt + Var randResultStr = rewardList[randResultInt] + + If randResultStr = "jemila_dewyglow" Then + Var CodeType = "147" + EndIf + + if randResultStr = "color_changing_blush" Then + Var CodeType = "148" + EndIf + + If randResultStr = "cura_md_random" Then + Var CodeType = "149" + EndIf + + Var SelectingState = "Invisible" + Var SelectedState = "Enable" + + DEBUGVAR randResultInt + DEBUGVAR randResultStr + DEBUGVAR CodeType + + Var Timeout = 0 + Refresh + + + + ; + + 751 + 413 + IMG_CNT + + ; + + XPosiShowCountDownBrew + 470 + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + + + + OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml" + + + + Var show_eng = "false" + Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml" + + + + Var show_eng = "true" + Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml" + + + + Function 2 + + + \ No newline at end of file diff --git a/xml/event/jemila/page_jemila_random_result.xml b/xml/event/jemila/page_jemila_random_result.xml new file mode 100644 index 00000000..9692e13f --- /dev/null +++ b/xml/event/jemila/page_jemila_random_result.xml @@ -0,0 +1,147 @@ + + "Enable" + 1080 + 1920 + SoundVolume + ; "0xeae6e1" + + + Var Timeout = 0 + + Var DirImage = "ROOT/taobin_project/image/event/jemila" + + Var RewardBg = DirImage + "/reward_bg.png" + + If CodeType = "147" Then + If show_eng = "true" Then + Var RewardText = DirImage + "/reward_1_name_en.png" + Else + Var RewardText = DirImage + "/reward_1_name_th.png" + EndIf + Var RewardImage = DirImage + "/reward_1.png" + Var RewardText_X = 157 + Var RewardText_Y = 638 + Var RewardImage_X = 110 + Var RewardImage_Y = 871 + EndIf + + If CodeType = "148" Then + If show_eng = "true" Then + Var RewardText = DirImage + "/reward_2_name_en.png" + Var RewardText_X = 120 + Var RewardText_Y = 638 + Else + Var RewardText = DirImage + "/reward_2_name_th.png" + Var RewardText_X = 237 + Var RewardText_Y = 638 + EndIf + Var RewardImage = DirImage + "/reward_2.png" + Var RewardImage_X = 240 + Var RewardImage_Y = 834 + EndIf + + If CodeType = "149" Then + If show_eng = "true" Then + Var RewardText = DirImage + "/reward_3_name_en.png" + Else + Var RewardText = DirImage + "/reward_3_name_th.png" + EndIf + Var RewardImage = DirImage + "/reward_3.png" + Var RewardText_X = 362 + Var RewardText_Y = 638 + Var RewardImage_X = 200 + Var RewardImage_Y = 875 + EndIf + + Var CodeReward = CodeType + Var var2 = "X" + Var var3 = "X" + Var PhoneNum = TelephoneNumber + AddData 54 TelephoneNumber CodeReward var2 var3 + + + + 1000 + + DEBUGVAR Timeout + + Var CountDownBrewing = BREW_CNT + + Var ShowCountDownBrewing = CountDownBrewing + + If Timeout = 5 Then + If Seeker.CodeChannel = 1 Then + If Seeker.CollectPointMain = 1 Then + GETACCEXT Param1 23 + Open "ROOT/taobin_project/xml/page_collect_point_2.xml" + Else + Open "ROOT/taobin_project/xml/page_lid_straw.xml" + EndIf + Else + GETACCEXT Param1 23 + Open "ROOT/taobin_project/xml/page_collect_point_2.xml" + EndIf + EndIf + + Var Timeout = Timeout + 1 + + TimerReset + Refresh + + + +;include="ROOT/taobin_project/inc/video.inc" + + +; Background + + 0 + 380 + RewardBg + + + + RewardImage_X + RewardImage_Y + RewardImage + + + + RewardText_X + RewardText_Y + RewardText + + + ; + + 751 + 413 + IMG_CNT + + ; + + XPosiShowCountDownBrew + 470 + End + 153 + 88 + RobotoBold + 0x513C2F + ShowCountDownBrewing + + + + OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml" + + + + Var show_eng = "false" + Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml" + + + + Var show_eng = "true" + Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml" + + + \ No newline at end of file diff --git a/xml/event/jemila/page_not_member.xml b/xml/event/jemila/page_not_member.xml new file mode 100644 index 00000000..44a17a40 --- /dev/null +++ b/xml/event/jemila/page_not_member.xml @@ -0,0 +1,75 @@ + + "Enable" + 1080 + 1920 + SoundVolume + ; "0xeae6e1" + + + Var Timeout = 0 + + If show_eng = "true" Then + Var RegisterLineImg = "ROOT/taobin_project/image/event/jemila/not_member_en.png" + Var CloseBtn = "ROOT/taobin_project/image/event/jemila/bn_close_en.png" + Else + Var RegisterLineImg = "ROOT/taobin_project/image/event/jemila/not_member_th.png" + Var CloseBtn = "ROOT/taobin_project/image/event/jemila/bn_close_th.png" + EndIf + + + + 1000 + + DEBUGVAR Timeout + + If Timeout > 8 Then + If Seeker.CodeChannel = 1 Then + If Seeker.CollectPointMain = 1 Then + GETACCEXT Param1 23 + Open "ROOT/taobin_project/xml/page_collect_point_2.xml" + Else + Open "ROOT/taobin_project/xml/page_lid_straw.xml" + EndIf + Else + GETACCEXT Param1 23 + Open "ROOT/taobin_project/xml/page_collect_point_2.xml" + EndIf + EndIf + + + Var Timeout = Timeout + 1 + + TimerReset + Refresh + + +;include="ROOT/taobin_project/inc/video.inc" + + + + 0 + 478 + RegisterLineImg + + + + + \ No newline at end of file diff --git a/xml/event/promotion_cocoa77.xml b/xml/event/promotion_cocoa77.xml index 5dc779eb..2e458551 100644 --- a/xml/event/promotion_cocoa77.xml +++ b/xml/event/promotion_cocoa77.xml @@ -6915,7 +6915,7 @@ Sugar, Biscof" SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -6988,7 +6988,7 @@ Sugar, Biscof" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 @@ -7170,7 +7170,7 @@ Sugar, Biscof" SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -7243,7 +7243,7 @@ Sugar, Biscof" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 diff --git a/xml/event/promotion_jemila.xml b/xml/event/promotion_jemila.xml index 10a654db..6b491cf2 100644 --- a/xml/event/promotion_jemila.xml +++ b/xml/event/promotion_jemila.xml @@ -6915,7 +6915,7 @@ Sugar, Biscof" SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -6988,7 +6988,7 @@ Sugar, Biscof" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 @@ -7170,7 +7170,7 @@ Sugar, Biscof" SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -7243,7 +7243,7 @@ Sugar, Biscof" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 diff --git a/xml/event/tricker.ev b/xml/event/tricker.ev index efbe8975..ad08ba57 100644 --- a/xml/event/tricker.ev +++ b/xml/event/tricker.ev @@ -29,7 +29,7 @@ Var Anniversary3VideoEnable = 0 Var MomDayEnable = 0 ; September / Oct -; Enable app game +; Enable app game Var GameEnableFromTrickerEv = 0 ; Enable pro Pepween @@ -164,7 +164,7 @@ If SystemDateMonthInt = 7 Then Var PassionMintPro = 1 EndIf EndIf - + If SystemDateDayInt >= 22 Then Var 7UpLuckyDrawX2Pro = 1 EndIf @@ -218,7 +218,8 @@ If BoxID = 105005 Then Var PassionMintPro = 0 Var MomCocoaPro = 0 Var MomCocoaProDiscountEnable = 0 - Var RobinsonBeautyPro = 1 + Var RobinsonBeautyPro = 0 + Var JemilaPro = 1 EndIf If BoxID = 172331 Then @@ -316,7 +317,7 @@ If taobin_nopro = "true" Then Var MomCocoaPro = 0 Var RobinsonBeautyPro = 0 Var JemilaPro = 0 - + Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00" EndIf @@ -358,6 +359,12 @@ Else EndIf +If CollagenPowderEnable = "true" Then + +Else + Var JemilaPro = 0 +EndIf + Var CurrentMainVideoTemp = 0 @@ -365,8 +372,7 @@ DEBUGVAR FreePowerup - -; Control collect promotion point behavior +; Control collect promotion point behavior Var New_Payment = 0 Var NewFlowPaymentCode = 0 diff --git a/xml/menu_new_layout_gen.py b/xml/menu_new_layout_gen.py index 4c24320a..8546a3dc 100644 --- a/xml/menu_new_layout_gen.py +++ b/xml/menu_new_layout_gen.py @@ -7,13 +7,13 @@ return price_list[product_code_3] else: return '"-"' - + def GetPrice(price_list, product_code): if product_code in price_list: return price_list[product_code] else: return '"-"' - + def GetOriginalPrice_Old(original_price_list, product_code_1, product_code_2, product_code_3): if product_code_1 in original_price_list: return original_price_list[product_code_1] @@ -23,13 +23,13 @@ return original_price_list[product_code_3] else: return '"-"' - + def GetOriginalPrice(original_price_list, product_code): if product_code in original_price_list: return original_price_list[product_code] else: return '"-"' - + def GetTricker(tricker_list, product_code_1, product_code_2, product_code_3): if product_code_1 in tricker_list: return tricker_list[product_code_1] @@ -44,7 +44,7 @@ if "v2" in param: print("Version 1 ignore ") - else: + else: menu_white_color_catalog = False menu_xml_var = "" if current_file_name == "page_catalog_group_recommend.skt": @@ -53,12 +53,12 @@ else: touch_less_gen = False button_add_string = "" - + if current_file_name == "page_catalog_group_recommend_double_pro.skt": double_pro_gen = True else: double_pro_gen = False - + if current_file_name == "page_catalog_group_recommend_triple_pro.skt": triple_pro_gen = True else: @@ -133,7 +133,7 @@ menu_white_color_catalog = True else: from_my_mint_promotion = False - + if current_file_name == "page_catalog_group_pro_bad_valentine.skt": from_bad_valentine = True # menu_white_color_catalog = True @@ -242,7 +242,7 @@ else: from_cocoa77 = False cocoa77_fix_price = False - + if current_file_name == "page_catalog_group_pro_passion_mint.skt": passion_mint = True passion_mint_fix_price = { @@ -272,6 +272,11 @@ else: from_robinson_beauty = False + if current_file_name == "page_catalog_group_pro_jemila.skt": + from_jemila = True + else: + from_jemila = False + #print ("######################################################################################################") idx_of_eng = 2 out_xml(' \r\n') @@ -289,7 +294,7 @@ out_xml(' 2 \r\n') else: out_xml(' 4 \r\n') - out_xml('\r\n') - + pd_code_available = '##-##-##-####' count = 0 count_test = 0 @@ -345,19 +350,19 @@ out_xml('\t "0xeae6e1" \r\n') out_xml('\t "0x513C2F" \r\n') out_xml('\t 150 \r\n') - + #out_xml('\t TouchLessQrStg \r\n') #out_xml('\t "Herr" \r\n') out_xml('\t TouchLessQrStg \r\n') out_xml('\t testservice \r\n') - + out_xml('\t\r\n') out_xml('\r\n') out_xml(';dummy_layout.inc\r\n') - + if double_pro_gen == True or triple_pro_gen: out_xml(';dummy_layout.inc\r\n') - + def GenListMenu(): for spl in menu_new_list: #product_code = s @@ -365,11 +370,11 @@ continue if spl[0].startswith("TAG"): - out_xml( '\t;' + spl[0] + '\r\n') + out_xml( '\t;' + spl[0] + '\r\n') continue - - out_xml( '\t; ==================> Len = ' + str(len(spl)) + '\r\n') + + out_xml( '\t; ==================> Len = ' + str(len(spl)) + '\r\n') menu_img = spl[7] out_xml( '\t; '+ spl[4] + ' ' + spl[5] + ' ' + spl[6]+ ' \r\n') out_xml( '\r\n') @@ -377,7 +382,7 @@ out_xml('\t 22 \r\n') out_xml('\t 225 \r\n') out_xml('\t 296 \r\n') - str_con = "" + str_con = "" str_con_var = "" if spl[4] != '-': str_con += spl[4] + '.Button,' @@ -385,22 +390,22 @@ str_con += spl[5] + '.Button,' if spl[6] != '-': str_con += spl[6] + '.Button,' - + if spl[4] != '-': str_con_var += spl[4] + '-' if spl[5] != '-': str_con_var += spl[5] + '-' if spl[6] != '-': str_con_var += spl[6] + '-' - + str_con_var = str_con_var.replace("-", "") if touch_less_gen == True or double_pro_gen == True or triple_pro_gen == True: str_con += "Disable=Invisible," - + str_con += "$Sum" + str_con_var out_xml( '\t Flag( '+ str_con + ') \r\n') - + pd_code_1 = spl[4] pd_stage1 = '$' + spl[4] + '.Button' if spl[4] == "-" or len(spl[4]) == 0 : @@ -412,22 +417,22 @@ if spl[5] == "-" or len(spl[5]) == 0: pd_code_2 = pd_code_available pd_stage2 = '"Disable2"' - + pd_code_3 = spl[6] pd_stage3 = '$' + spl[6] + '.Button' if spl[6] == "-" or len(spl[6]) == 0: pd_code_3 = pd_code_available pd_stage3 = '"Disable2"' - - + + out_xml( '\t\r\n') @@ -631,7 +639,7 @@ if "all" in verbose: print("len= " + str(len( spl) ) ) - + menu_color_font = None @@ -641,8 +649,8 @@ if menu_white_color_catalog == True: menu_color_font = '0xFFFFFF' desc_color_font = '0xFFFFFF' - - + + if spl[1] != "None": out_xml( '\t\r\n') out_xml( '\t 16 \r\n') @@ -667,7 +675,7 @@ out_xml( '\t "' + spl[2].replace("\\n", "\n") + '" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 16 \r\n') out_xml( '\t 164 \r\n') @@ -691,7 +699,7 @@ out_xml( '\t "' + spl[3].replace("\\n", "\n") + '" \r\n') out_xml( '\t\r\n') - if spl[4] != "TAOTIM": + if spl[4] != "TAOTIM": out_xml( '\t\r\n') out_xml( '\t 16 \r\n') out_xml( '\t 264 \r\n') @@ -707,11 +715,11 @@ if len(spl[4]) == 0 : shw = '"Invisible"' ice_tab_hot_show = False - + if spl[4] == "TAOTIM": shw = '"Invisible"' ice_tab_hot_show = False - + out_xml( '\t\r\n') out_xml( '\t 16 \r\n') out_xml( '\t 264 \r\n') @@ -733,13 +741,13 @@ out_xml( '\t 14 \r\n') out_xml( '\t220\r\n') out_xml( '\t KanitMediumTTF \r\n') - + out_xml( '\t 0x6F5F51 \r\n') out_xml( '\t 0xEAE6E1 \r\n') out_xml( '\t ' + shw + ' \r\n') - + #out_xml( '\t Var( "฿" + $' + spl[4] + '.Price ) \r\n') - + if "inter" in param: if "free" in param: out_xml( '\t "Free" \r\n') @@ -774,7 +782,7 @@ else: out_xml( '\t Var( "฿" + $' + spl[4] + '.Price ) \r\n') out_xml( '\t\r\n') - + ice_tab_ice_show = True shw = "$" + spl[5] + ".Button" @@ -789,7 +797,7 @@ if spl[4] == "TAOTIM": shw = '"Invisible"' ice_tab_ice_show = False - + out_xml( '\t\r\n') out_xml( '\t 81 \r\n') out_xml( '\t 264 \r\n') @@ -849,7 +857,7 @@ else: out_xml( '\t Var( "฿" + $' + spl[5] + '.Price ) \r\n') out_xml( '\t\r\n') - + ice_tab_blend_show = True if spl[4] == "TAOTIM": @@ -902,7 +910,7 @@ out_xml( '\t 14 \r\n') out_xml( '\t220\r\n') out_xml( '\t KanitMediumTTF \r\n') - + out_xml( '\t 0x6F5F51 \r\n') out_xml( '\t 0xEAE6E1 \r\n') out_xml( '\t ' + shw + ' \r\n') @@ -940,7 +948,7 @@ else: out_xml( '\t Var( "฿" + $' + spl[6] + '.Price ) \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 81 \r\n') out_xml( '\t 264 \r\n') @@ -958,7 +966,7 @@ out_xml( '\t\t\tEndIf\r\n') else: out_xml( '\t\t\tVar ice_tab_process_show = "Invisible"\r\n') - + out_xml( '\t\t\r\n') out_xml( '\t\tElse\r\n') out_xml( '\t\t\tVar ice_tab_process_show = "Invisible"\r\n') @@ -970,7 +978,7 @@ out_xml( '\t "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 49 \r\n') out_xml( '\t 117 \r\n') @@ -1007,7 +1015,7 @@ out_xml( '\t\r\n') out_xml( '\t "ROOT/taobin_project/image//img_menu_err2.png" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 84 \r\n') out_xml( '\t 266 \r\n') @@ -1051,7 +1059,7 @@ out_xml('\t 22 \r\n') out_xml('\t 225 \r\n') out_xml('\t 296 \r\n') - str_con = "" + str_con = "" str_con_var = "" if spl[8] != '-': str_con += spl[8] + '.Button,' @@ -1059,22 +1067,22 @@ str_con += spl[9] + '.Button,' if spl[6] != '-': str_con += spl[10] + '.Button,' - + if spl[8] != '-': str_con_var += spl[8] + '-' if spl[9] != '-': str_con_var += spl[9] + '-' if spl[10] != '-': str_con_var += spl[10] + '-' - + str_con_var = str_con_var.replace("-", "") if touch_less_gen == True or double_pro_gen == True or triple_pro_gen == True: str_con += "Disable=Invisible," - + str_con += "$Sum" + str_con_var out_xml( '\t Flag( '+ str_con + ') \r\n') - + pd_code_1 = spl[8] pd_stage1 = '$' + spl[8] + '.Button' if spl[8] == "-" or len(spl[8]) == 0 : @@ -1086,16 +1094,16 @@ if spl[9] == "-" or len(spl[9]) == 0: pd_code_2 = pd_code_available pd_stage2 = '"Disable2"' - + pd_code_3 = spl[10] pd_stage3 = '$' + spl[10] + '.Button' if spl[10] == "-" or len(spl[10]) == 0: pd_code_3 = pd_code_available pd_stage3 = '"Disable2"' - - + + out_xml( '\t\r\n') - - - + + + out_xml( '\t\r\n') out_xml( '\t 16 \r\n') out_xml( '\t 164 \r\n') @@ -1295,7 +1306,7 @@ out_xml( '\t "' + spl[2].replace("\\n", "\n") + '" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 16 \r\n') out_xml( '\t 164 \r\n') @@ -1342,7 +1353,7 @@ out_xml( '\t Var( DirImage2 + "hot.png" ) \r\n') out_xml( '\t Var( DirImage2 + "hot_db.png" ) \r\n') out_xml( '\t\r\n') - + if "inter" in param: out_xml( '\t\r\n') out_xml( '\t 50 \r\n') @@ -1361,7 +1372,7 @@ out_xml( '\t 0x6F5F51 \r\n') out_xml( '\t 0xEAE6E1 \r\n') out_xml( '\t ' + shw + ' \r\n') - + if "inter" in param: if "free" in param: out_xml( '\t "Free" \r\n') @@ -1385,7 +1396,7 @@ out_xml( '\t Var( "฿" + $' + spl[8] + '.Price ) \r\n') out_xml( '\t\r\n') - + ice_tab_ice_show = True shw = "$" + spl[9] + ".Button" @@ -1444,9 +1455,9 @@ out_xml( '\t "฿' + str(GetPrice(passion_mint_fix_price, spl[9])) + '" \r\n') else: out_xml( '\t Var( "฿" + $' + spl[9] + '.Price ) \r\n') - + out_xml( '\t\r\n') - + ice_tab_blend_show = True shw = "$" + spl[10] + ".Button" @@ -1504,9 +1515,9 @@ out_xml( '\t "฿' + str(GetPrice(passion_mint_fix_price, spl[10])) + '" \r\n') else: out_xml( '\t Var( "฿" + $' + spl[10] + '.Price ) \r\n') - + out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 81 \r\n') out_xml( '\t 264 \r\n') @@ -1524,7 +1535,7 @@ out_xml( '\t\t\tEndIf\r\n') else: out_xml( '\t\t\tVar ice_tab_process_show = "Invisible"\r\n') - + out_xml( '\t\t\r\n') out_xml( '\t\tElse\r\n') out_xml( '\t\t\tVar ice_tab_process_show = "Invisible"\r\n') @@ -1536,7 +1547,7 @@ out_xml( '\t "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 49 \r\n') out_xml( '\t 117 \r\n') @@ -1573,7 +1584,7 @@ out_xml( '\t\r\n') out_xml( '\t "ROOT/taobin_project/image//img_menu_err2.png" \r\n') out_xml( '\t\r\n') - + out_xml( '\t\r\n') out_xml( '\t 84 \r\n') out_xml( '\t 266 \r\n') @@ -1605,12 +1616,12 @@ out_xml( '\r\n') if spl[0].startswith("TAG"): - out_xml( '\t;' + spl[0] + '\r\n') + out_xml( '\t;' + spl[0] + '\r\n') count_test = count_test + 1 #if count_test > 8 : # break - + if multi_pro_gen: for i in range(1, 5): @@ -1641,8 +1652,8 @@ else: out_xml('; menu_new_list '+ str(len(menu_new_list))+'\r\n') GenListMenu() - - + + out_xml('\r\n') @@ -1661,4 +1672,4 @@ out_xml('\r\n') out_xml('\r\n') - + diff --git a/xml/page_NewBrewing3.xml b/xml/page_NewBrewing3.xml index f29e6968..366a7ba8 100644 --- a/xml/page_NewBrewing3.xml +++ b/xml/page_NewBrewing3.xml @@ -7,7 +7,7 @@ TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev" - + Var SendNotiPaySuccess = 2 Var GetMoreStrawCount = 2 @@ -24,7 +24,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -53,8 +53,8 @@ Var PrintCoinAmount = 0 - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -67,7 +67,7 @@ Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid_en.png" Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid_en.png" - + ;Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid_en.png" ;Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid_en.png" @@ -80,14 +80,14 @@ Var XStraw = 142 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav" @@ -96,7 +96,7 @@ Play PlaySoundLag Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" - + Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw.png" Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw.png" @@ -105,9 +105,9 @@ Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png" Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid.png" - Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png" + Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png" + - Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid.png" Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid.png" @@ -130,14 +130,14 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If GetFreeFromError = 1 Then Var TelephoneNumberProblem = TelephoneNumberGOTFree @@ -150,7 +150,7 @@ EndIf - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else @@ -158,7 +158,7 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" @@ -168,7 +168,7 @@ Var topup_credit_bn = DirImage + "/bn_topup_credit.png" Var topup_credit_bp = DirImage + "/bp_topup_credit.png" Var EnableTopupCreditBetweenBrew = "Invisible" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -178,7 +178,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -212,7 +212,7 @@ Var EnableTopupCreditBetweenBrew = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -229,48 +229,48 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" - Var EnableTopupCreditBetweenBrew = "Invisible" - EndIf - - If SELLSTATUS = "DEACTIVE" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" - EndIf + EndIf + + If SELLSTATUS = "DEACTIVE" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf DEBUGVAR NeedUpgrade DEBUGVAR NeedReboot DEBUGVAR SELLSTATUS - + DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -310,14 +310,14 @@ DEBUGVAR SelectMenuBetweenBrewEnable2 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + ; echo 1 > /mnt/sdcard/game_enable READ_FILE "/mnt/sdcard/game_enable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_enable DEBUGVAR game_mode_enable - + If GameEnableFromTrickerEv = 1 Then Var game_mode_enable = "true" EndIf @@ -336,13 +336,13 @@ DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker If game_mode_enable = "true" Then - - + + DEBUGVAR GameInstalled - + If GameInstalled = "true" Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -367,7 +367,7 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + If TelephoneNumber = "0899999999" Then ; Coupon or customer not input phone number. Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") @@ -377,7 +377,7 @@ EndIf DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -391,7 +391,7 @@ APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString - + ; Var Game01Enable = 1 @@ -400,10 +400,10 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -417,14 +417,14 @@ APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString - + ; Var Game01Enable = 1 EndIf EndIf EndIf - + DEBUGVAR Game01Enable @@ -456,11 +456,11 @@ - ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable - ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable If Game01Enable = 1 Then - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 75 Then If Game01Enable = 1 Then @@ -489,18 +489,18 @@ Var adver_brewing_play_index = 2 Var adver_brewing_count_down = 10 Var brew_vdo1 = "ROOT/taobin_project/image/page_doing/tao_adv1.png" - + TRY "ROOT/taobin_project/video/script3_first_brewing.ev" Var VideoPlayFile = brew_vdo1 Var PictureFile = brew_txt1 - - + + EndIf - + Var XPosiShowCountDownBrew = 768 @@ -513,9 +513,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData @@ -528,11 +528,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -554,12 +554,12 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Else EndIf @@ -568,7 +568,7 @@ If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData @@ -581,11 +581,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -607,12 +607,12 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Else EndIf @@ -620,11 +620,11 @@ 1000 - + + - Var Timeout = Timeout + 1 - + If Timeout < 2 Then If Game01Enable = 0 Then If game_mode_enable = "true" Then @@ -633,7 +633,7 @@ Var Game01Enable = 1 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Enable" - + EndIf EndIf EndIf @@ -649,24 +649,28 @@ EndIf Var CountDownBrewing = BREW_CNT - - + + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - + + If FromJemilaPro = 1 Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a" + EndIf + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav" @@ -687,13 +691,13 @@ EndIf EndIf EndIf - + ; run test; - ;I f CountDownBrewing = 40 Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;I f CountDownBrewing = 40 Then + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;I f CountDownBrewing = 0 Then - ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf Var ShowCountDownBrewing = CountDownBrewing @@ -703,28 +707,28 @@ If EnableDoubleCupNoError = 1 Then If HURR_FOREVER = "F:1028" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1029" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1030" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1031" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -751,15 +755,15 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 2 Then - If Timeout > 10 Then + If waitAckPay = 2 Then + If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 - + Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" @@ -767,11 +771,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -792,7 +796,7 @@ ;Var Timeout = 0 EndIf SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -878,9 +882,9 @@ Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -896,21 +900,21 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 If Seeker.PayWithQR = 0 Then - + If Seeker.CreditCard = 1 Then - CashlessReq SUCCESS + CashlessReq SUCCESS EndIf - + Else EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -919,7 +923,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -931,17 +935,17 @@ If ErrTimeout = 0 Then Var ErrTimeout = 1 - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -951,15 +955,15 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -967,7 +971,7 @@ Else Change ServiceAmount3 EndIf - + EndIf EndIf @@ -977,19 +981,19 @@ Var ChangeOK = 3 EndIf - - + + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf @@ -1013,9 +1017,9 @@ If CLOSE_ORDER_NOW = "true" Then Var SelectMenuBetweenBrewEnable1 = "Invisible" Var SelectMenuBetweenBrewEnable1Text = "Invisible" - + Var EnableTopupCreditBetweenBrew = "Invisible" - + EndIf If DisableFromPowerup = "true" Then @@ -1024,18 +1028,18 @@ Var EnableTopupCreditBetweenBrew = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - + EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1043,15 +1047,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1063,9 +1067,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1075,7 +1079,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1095,7 +1099,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1107,12 +1111,12 @@ Var PictureFile = brew_txt2 Var PictureFileTextDesctionState = "Invisible" - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1Text = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Text = "Invisible" EndIf - - + + Else @@ -1120,7 +1124,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1130,9 +1134,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1181,29 +1185,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1211,7 +1215,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1224,15 +1228,15 @@ EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - - + + Var bg_strawProblem_ST = "Enable" - - + + Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableGetMoreStrawFileName = "Invisible" @@ -1241,7 +1245,7 @@ EndIf - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1254,7 +1258,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If GetLidButtonCountDown = 1 Then @@ -1269,7 +1273,7 @@ EndIf - + If ButtonGameCountDown > 0 Then If ButtonGameCountDown = 1 Then @@ -1280,7 +1284,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1304,22 +1308,22 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1332,12 +1336,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1428,18 +1432,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" ;CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1487,7 +1491,7 @@ bnGetMoreStrawFileName bpGetMoreStrawFileName "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1497,7 +1501,7 @@ If GetMoreStrawCount > 0 Then Machine Straw EndIf - + @@ -1525,7 +1529,7 @@ ButtonGameCountDownState "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" - + @@ -1554,7 +1558,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1579,16 +1583,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + diff --git a/xml/page_board.xml b/xml/page_board.xml index 04abbb37..b69cadd9 100644 --- a/xml/page_board.xml +++ b/xml/page_board.xml @@ -12,11 +12,11 @@ Var FileNumber = 1 Var img_press_main_page = "ROOT/taobin_project/image/main_page/bp_main_page_start.png" - + Var img_rest_main_page = "" Var MemberButtonFileNameRest = "" Var img_reset_topup = "" - + Var CNTDOWN_PROTECT_SCREEN_BLANK = 120 DEBUGVAR SoundVolume @@ -26,10 +26,10 @@ Var eng_enable = "true" Var thai_enable = "true" - - Var show_eng = "false" + + Var show_eng = "false" Var NextOrder = "false" - + Var Seeker = "next" Var Seeker.thankLidFlag = 0 Var Seeker.thankStrawFlag = 0 @@ -49,7 +49,7 @@ Var GetFreeFromError = 0 - + Cart "DeleteMenuID" "ALL" Var MultiPayEnable = "false" ;Var MultiPayEnable = "true" @@ -67,7 +67,7 @@ Var PaidPaymentFromNextStage = 0 Var DrinkPaid = "-" - + ; On open Var menu_back_to_main = "ROOT/taobin_project/xml/page_back_to_main.xml" @@ -92,7 +92,7 @@ Var OpunMediumTTF = "ROOT/taobin_project/font/Opun/Opun-Medium.ttf" Var OpunThinTTF = "ROOT/taobin_project/font/Opun/Opun-Thin.ttf" Var OpunBoldTTF = "ROOT/taobin_project/font/Opun/Opun-Bold.ttf" - + Var KanitSemiBoldTTF = "ROOT/taobin_project/font/Kanit/Kanit-Medium.ttf" Var BlinkStar = "ROOT/taobin_project/image/animation/blink_star.gif" @@ -127,14 +127,14 @@ Var XPosiShowCountDownBrew = 768 Var WQR = 290 Var HQR = 290 - + EndIf - + Var MinPhoneNumber = 10 Var MaxPhoneNumber = 10 - + Var TestLoopMakeDrink = 0 Var TestLoopSuccess = 0 @@ -161,13 +161,13 @@ - + ; take a look file page_board_1.xml - + If XMLProfile = "" Then CacheVarStr "get" XMLProfile Else @@ -187,13 +187,13 @@ DEBUGVAR MaterialAvailable - STRCONTAIN "9501" MaterialAvailable TaobinOnline - STRCONTAIN "9505" MaterialAvailable TermTemOnline + STRCONTAIN "9501" MaterialAvailable TaobinOnline + STRCONTAIN "9505" MaterialAvailable TermTemOnline ; App fast - STRCONTAIN "1063" MaterialAvailable AppFastEnable - STRCONTAIN "1046" MaterialAvailable WheyEnable - + STRCONTAIN "1063" MaterialAvailable AppFastEnable + STRCONTAIN "1046" MaterialAvailable WheyEnable + STRCONTAIN "1208" MaterialAvailable PromoteYuzuEnable STRCONTAIN "1058" MaterialAvailable OreoEnable @@ -208,6 +208,7 @@ STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable + STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable ;Var AppFastEnable = "false" If AppFastEnable = "true" Then @@ -238,9 +239,9 @@ Var WebAppShow = "Invisible" EndIf - + Var TaobinOnlineX = "true" - + DEBUGVAR AppFastButtonState DEBUGVAR MenuKidButtonState DEBUGVAR TaobinOnline @@ -248,14 +249,14 @@ DEBUGVAR WheyEnable ; Dtac. - - Var CAMPAIGN1 = "false" + + Var CAMPAIGN1 = "false" If TaobinOnlineX = "true" Then Var EventTurnOn = 0 ; CountDownShowButton must value 35 - Var CountDownShowButton = 35 + Var CountDownShowButton = 35 Var ShowButtonClickFull = "Invisible" If LanguageInit = "ENG" Then @@ -269,14 +270,14 @@ DEBUGVAR SystemDateMonthInt DEBUGVAR SystemDateDayInt - + EndIf If TaobinOnlineX = "false" Then If TermTemOnline = "false" Then ; TODO Machine Initial - Open "/ROOT/xml/outservice.xml" + Open "/ROOT/xml/outservice.xml" EndIf EndIf @@ -309,7 +310,7 @@ Var ShowButtonClick2 = "Enable" ; for test press button - Var ShowNetworkProblem = "Enable" + Var ShowNetworkProblem = "Enable" EndIf @@ -321,7 +322,7 @@ - + Var QRCODE99x = "" @@ -330,28 +331,28 @@ Var QRCODE99 = "https://taobin-beverage.web.app/" + QRCODE99x ;Var QRCODE99 = "https://uat-taobin-beverage.firebaseapp.com/" + QRCODE99x WEB "ENABLE" - + Else - + Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด" - - If NetworkStatus = "DOWN" Then + + If NetworkStatus = "DOWN" Then Machine NetworkDown EndIf - + Var QRCODE99 = "" WEB "DISABLE" - + EndIf - + Var ShowPrice = "Enable" @@ -393,8 +394,8 @@ ;DEBUGVAR "FlushTxRef1" ;FlushTxRef1 - - + + StopLongPlay @@ -406,10 +407,10 @@ Var led_new = "0" READ_FILE "/mnt/sdcard/coffeevending/led_new" led_new DEBUGVAR led_new - If led_new = "1" Then + If led_new = "1" Then LEDv2 LedDoorCupV2 Off 255 194 166 20 6 - + LEDv2 LedDoorLidV2 Off 255 255 255 20 6 Else @@ -419,14 +420,14 @@ EndIf - - - - + + + + Var showCart = "Invisible" - + Var LedLidBlink = "no" @@ -436,14 +437,14 @@ If JXMLVersionInt > 412 Then Var ToppingNewShow = "true" EndIf - + DEBUGVAR XMLProfile - + Machine CancelWepApp StrLen AdvertiseProfile AdvertiseProfileLen - + STRCONTAIN "taobin_notopup" XMLProfile taobin_notopup @@ -470,7 +471,7 @@ Machine MenuLayoutNew DEBUGVAR SpiralOnline - + Topping "ClearNextOrder" "-" @@ -494,7 +495,7 @@ If CameraCount = 0 Then CameraService "Start" EndIf - + If CameraCount = "" Then CameraService "Start" EndIf @@ -523,7 +524,7 @@ Machine __arm_toggle - + GetLongTimeInMinute CurrentTime DEBUGVAR LastTimeClickOrder @@ -533,8 +534,8 @@ GetLongTimeInMinute LastTimeClickOrder EndIf - Var DiffTimeInMinute = CurrentTime - LastTimeClickOrder - + Var DiffTimeInMinute = CurrentTime - LastTimeClickOrder + DEBUGVAR DiffTimeInMinute If DiffTimeInMinute > 120 Then @@ -543,16 +544,16 @@ EndIf ; zone config language - + SetLanguage LanguageInit - + Var InternationalEnable = 0 Var InternationalEnableStr = "false" Var cups_sold_text = "เสิร์ฟแล้ว ( CUPS SOLD )" Var XButtonMember = 212 Var YButtonMember = 1695 - + ; CountryName If CountryName = "" Then READ_FILE "/mnt/sdcard/coffeevending/country/short" StrCountryShort @@ -586,13 +587,13 @@ ; - + EndIf ; Zone set video main page. - ; ignore collection point - Var SettingIgnoreCollectPoint = 0 + ; ignore collection point + Var SettingIgnoreCollectPoint = 0 Var SettingVideoBrewingUseCommon = 0 Var adver_brewing_en = 1 @@ -601,7 +602,7 @@ If CountryName = "Australia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/video/script_video.ev" EndIf - + ;inter-xml-open If CountryName = "Malaysia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev" @@ -639,7 +640,7 @@ If CountryName = "Malaysia" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev" - + Var WebAppShow = "Invisible" EnableLanguage "ENG" EnableLanguage "MALAY" @@ -714,7 +715,7 @@ ;inter-page-board If CountryName = "Indonesia" Then - + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/idr/video/script_video.ev" Var TextPriceMenuSize = 14 Var show_eng_button_stage = "Invisible" @@ -745,14 +746,14 @@ If CountryName = "Australia" Then Var SettingVideoBrewingUseCommon = 1 - + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/aus/video/script_video.ev" - + Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" - + Var InternationalEnable = 1 Var show_eng = "true" ;Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main.mp4" @@ -800,12 +801,12 @@ If CountryName = "USANewYork" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/usaNY/video/script_video.ev" - + Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" - + Var InternationalEnable = 1 Var show_eng = "true" ;Var VideoMainPage = "ROOT/taobin_project/inter/usaNY/video/video_main.mp4" @@ -847,19 +848,19 @@ ;inter-page-board If CountryName = "Singapore" Then - + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/sgp/video/script_video.ev" - + Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" - + Var InternationalEnable = 1 Var show_eng = "true" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" - + Var VideoMainPage = "ROOT/taobin_project/inter/sgp/video/video_main.mp4" Var ShowNetworkProblemText = "Network error. Payment Cash only." @@ -927,27 +928,27 @@ ;Var VideoAdvert = "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" - + EndIf ;inter-page-board ; wait - + If CountryName = "UnitedArabEmirates Dubai" Then SAVELOG "UnitedArabEmirates Dubai UnitedArabEmirates Dubai UnitedArabEmirates Dubai" - + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/uae_dubai/video/script_video.ev" - - + + Var WebAppShow = "Invisible" EnableLanguage "ENG" EnableLanguage "UAE_DUBAI" SetLanguage "ENG" LanguageControl "UpdateList" "-" - + Var InternationalEnable = 1 Var show_eng = "true" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" @@ -956,7 +957,7 @@ Var CountryRootPath = "ROOT/taobin_project/inter/uae_dubai/" Var CountryShortName = "uae_dubai" - + Var TextPriceMenuSize = 12 Var TextPriceMenuY = 266 Var TextPriceMenuBlendX = 180 @@ -982,7 +983,7 @@ Var SettingDisableTaobinCredit = "true" Var SettingDisableTaobinCode = "false" - + ; Dubai disable point Var SettingIgnoreCollectPoint = 1 @@ -997,12 +998,12 @@ If CountryName = "HongKong" Then TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" - + Var WebAppShow = "Invisible" EnableLanguage "ENG" SetLanguage "ENG" LanguageControl "UpdateList" "-" - + Var InternationalEnable = 1 Var show_eng = "true" Var img_press_main_page = "ROOT/taobin_project/image/main_page_en/bp_main_page_start.png" @@ -1078,7 +1079,7 @@ If Not#LanguageResult = "false" Then LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/ui/lang.tsv" EndIf - + Var RootPath = "ROOT/taobin_project/inter/common/" Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" @@ -1105,15 +1106,15 @@ Else Var ShowNetworkProblem = "Enable" - Var ShowButtonClick2 = "Invisible" + Var ShowButtonClick2 = "Invisible" - If NetworkStatus = "DOWN" Then + If NetworkStatus = "DOWN" Then Machine NetworkDown EndIf - + Var QRCODE99 = "" WEB "DISABLE" - + EndIf If GameInstalled = "" Then @@ -1130,8 +1131,8 @@ RootLayoutVisible 3 "hide" If SELLSTATUS = "DEACTIVE" Then - Open "/ROOT/xml/offline.xml" - EndIf + Open "/ROOT/xml/offline.xml" + EndIf Var CheckCupStateDoorCupClose = "" @@ -1157,7 +1158,7 @@ Var NoWaitMachineEnable = 1 DEBUGVAR NeedUpgrade - + If NoWaitMachineEnable = 1 Then If stop_now = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" @@ -1184,7 +1185,7 @@ Var ShowNetworkProblemText = "" EndIf - Var SlientRefreshEnable = 0 + Var SlientRefreshEnable = 0 Var ShouldShowNamHomCoconutRemainReward = 0 Var ShowNamHomCoconutRemainReward = "Invisible" @@ -1263,11 +1264,11 @@ XMLSaveFileNameForResume 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_board.xml" XMLSaveFileNameForResume 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" - + Var CountDownPauseVideo2 = 2 DEBUGVAR CountDownPauseVideo2 Var TimeProfilePrice = 0 - + ;Machine NewPaymentOpenBrewingXMLEnable @@ -1277,9 +1278,9 @@ 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] @@ -1295,7 +1296,7 @@ INT ClearGelRemain INT E_GiftCard100BathRemain INT ClearGel4mlRemain - + Var SumNamHomCoconutRemainReward = SuperSetRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + BalanceEssenceTonerRemain Var SumNamHomCoconutRemainReward = SumNamHomCoconutRemainReward + CleansingGalRemain @@ -1385,26 +1386,26 @@ Var XMLProfile = "ProfileIncrease35" Var TimeProfilePrice = 0 - + Var XMLProfile = "ProfileIncrease45" Var TimeProfilePrice = 0 - + Var XMLProfile = "PromoReduced" Var TimeProfilePrice = 0 - + Var XMLProfile = "Discount90Per" CacheVarStr "put" XMLProfile - - + + @@ -1428,12 +1429,12 @@ Else If NetworkStatus = "DOWN" Then - + Var WebAppShow = "Invisible" EndIf If SELLSTATUS = "DEACTIVE" Then - Open "/ROOT/xml/offline.xml" - EndIf + Open "/ROOT/xml/offline.xml" + EndIf If NoWaitMachineEnable = 1 Then If RecoveryRunning = "true" Then @@ -1449,13 +1450,13 @@ EndIf EndIf - - + + If CLOSE_ORDER_NOW = "true" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf - + If MachineStage = "mcu-upgrade" Then TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" @@ -1480,7 +1481,7 @@ EndIf Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1 - + If NETCORE_EVENT_CNT_X = 30 Then DEBUGVAR NETCORE_EVENT_CNT_X EndIf @@ -1498,11 +1499,11 @@ EndIf Else - Var NETCORE_EVENT_CNT_X = 0 - Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT + Var NETCORE_EVENT_CNT_X = 0 + Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT EndIf - + EndIf @@ -1510,33 +1511,33 @@ TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf - + If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_remove_cup.xml" EndIf If BrewTimeoutExtend = 1 Then - DEBUGVAR BrewTimeoutExtend - DEBUGVAR DoorCupPosition + DEBUGVAR BrewTimeoutExtend + DEBUGVAR DoorCupPosition If DoorCupPosition = "bottom" Then SAVELOG "BrewTimeoutExtend = 0 Clear Error Flag" - Var BrewTimeoutExtend = 0 + Var BrewTimeoutExtend = 0 ; clear stage Else - + Var stop_now = "true" Var stop_now_from_door_cup = 1 - + TRY "ROOT/taobin_project/xml/sometime/script_open_page_show_error.ev" EndIf Else If DoorCupPosition = "Bottom" Then - Var BrewTimeoutExtend = 0 + Var BrewTimeoutExtend = 0 Else - Var BrewTimeoutExtend = 0 + Var BrewTimeoutExtend = 0 EndIf EndIf @@ -1564,18 +1565,18 @@ Var ShowButtonClick = "Invisible" Refresh EndIf - + If CountDownShowButton = 3 Then - + Var ShowButtonClick = "Enable" - Var ShowButtonClickFull = "Invisible" + Var ShowButtonClickFull = "Invisible" Refresh EndIf If CountDownPauseVideo > 0 Then DEBUGVAR CountDownPauseVideo ; ignore - + Var CountDownPauseVideo = CountDownPauseVideo - 1 Var CountDownPauseVideo2 = CountDownPauseVideo - 1 DEBUGVAR CountDownPauseVideo2 @@ -1587,12 +1588,12 @@ If CountDownPauseVideo = 1 Then - + TapScreen 860 1004 EndIf - + If CountDownPauseVideo = 0 Then Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" @@ -1603,7 +1604,7 @@ Var OpenFromPageBoard = 1 - + If InternationalEnable = 1 Then @@ -1618,12 +1619,12 @@ Else If BeerTrapEnable = "true" Then - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Else TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" EndIf EndIf - + Machine DoorClose TopView "show" @@ -1641,7 +1642,7 @@ Var CountUpReloadAll = CountUpReloadAll + 1 DEBUGVAR CountUpReloadAll - + ; Original value is 40 If EnableMultiInstance = "true" Then @@ -1667,7 +1668,7 @@ EndIf EndIf - + If CupOnArm = "true" Then @@ -1689,11 +1690,11 @@ If Seeker = "curr" Then If DoorCupPosition = "bottom" Then - ; It normal + ; It normal Var EmergencyStop = "false" Else Var EmergencyStop = "true" - + EndIf EndIf @@ -1710,15 +1711,15 @@ EndIf EndIf - + Var TimeProfilePrice = TimeProfilePrice + 1 If XMLProfilePrevious = XMLProfile Then - + Else DEBUGVAR XMLProfile DEBUGVAR XMLProfilePrevious - + If TimeProfilePrice = 5 Then PRICE "Reset" "-" PRICE "Load" "-" @@ -1740,25 +1741,25 @@ Var XMLProfilePrevious = XMLProfile EndIf - + EndIf - + Refresh TimerReset - + - + SAVELOG "EVENT END" - + If TaobinOnlineX = "true" Then Var CountDownShowButton = 35 EndIf - + If TermTemOnline = "true" Then Var CountDownShowButton = 28 EndIf - + Var CountDownPauseVideo = 6 If TaobinOnlineX = "true" Then ;TouchTapClose @@ -1766,19 +1767,19 @@ ;Open CurrentXMLFileName0 Refresh - - + + SAVELOG NetworkStatus - ;Open "/mnt/sdcard/coffeevending/xml/main.xml" + ;Open "/mnt/sdcard/coffeevending/xml/main.xml" SAVELOG NetworkStatus If SELLSTATUS = "DEACTIVE" Then - Open "/mnt/sdcard/coffeevending/xml/main.xml" + Open "/mnt/sdcard/coffeevending/xml/main.xml" EndIf @@ -1790,7 +1791,7 @@ Var web_readyOK = web_ready Var web_telnumOK = web_telnum - + Var web_app_prepar = "true" ; Handle penetrator @@ -1809,7 +1810,7 @@ EndIf Else EndIf - + @@ -1833,13 +1834,13 @@ img_press_main_page ; "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - If CocktailShow = "true" Then - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" + If CocktailShow = "true" Then + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Else - + If SpiralOnline = "true" Then OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml" @@ -1850,7 +1851,7 @@ Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml" EndIf - + EndIf EndIf @@ -1869,10 +1870,10 @@ MemberButtonFileName "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + Var NextPage = "-" - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" If InternationalEnable = 1 Then @@ -1889,10 +1890,10 @@ Else OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml" EndIf - + TopView "show" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" - + @@ -1906,10 +1907,10 @@ "ROOT/taobin_project/image/main_page/bp_main_page_topup.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + Var PayDetail="" Var NextPage = "-" - Open "ROOT/xml/service_menu.xml" + Open "ROOT/xml/service_menu.xml" @@ -1922,7 +1923,7 @@ 1310 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "click ShowButtonClickFull" @@ -1978,7 +1979,7 @@ 500 Var(RootPath + "image/main_page/bn_remove_cup.png") Var(RootPath + "image/main_page/bp_remove_cup.png") - + Machine RemoveCup Machine DoorLidOpen @@ -1994,7 +1995,7 @@ "0xFF0000" 1080 60 - + If IgnoreNetCore = "true" Then Var NextPage = "-" @@ -2017,8 +2018,8 @@ "Enable" 120 120 - - + + Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" @@ -2034,12 +2035,12 @@ Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev" TRY OpenFileXML - + ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_group_recommend.lxml" Else - If BeerTrapEnable = "true" Then - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" + If BeerTrapEnable = "true" Then + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Else TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" EndIf diff --git a/xml/page_brewing3.xml b/xml/page_brewing3.xml index 87dc090c..0da0d696 100644 --- a/xml/page_brewing3.xml +++ b/xml/page_brewing3.xml @@ -7,8 +7,8 @@ - If New_Payment = 1 Then - Open "ROOT/taobin_project/xml/page_NewBrewing3.xml" + If New_Payment = 1 Then + Open "ROOT/taobin_project/xml/page_NewBrewing3.xml" EndIf Var SendNotiPaySuccess = 2 @@ -25,7 +25,7 @@ If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" + Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" Var PayType = "newpay" @@ -53,8 +53,8 @@ Var PrintCoinAmount = 0 - If show_eng = "true" Then - + If show_eng = "true" Then + Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" @@ -67,7 +67,7 @@ Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid_en.png" Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid_en.png" - + ;Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid_en.png" ;Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid_en.png" @@ -80,14 +80,14 @@ Var XStraw = 142 Else Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" - + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav" @@ -96,7 +96,7 @@ Play PlaySoundLag Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" - + Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw.png" Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw.png" @@ -105,9 +105,9 @@ Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png" Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid.png" - Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png" + Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png" + - Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid.png" Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid.png" @@ -123,7 +123,7 @@ Var CreditReference = "" Var PayCredit = 0 - + If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = Seeker.VendingTSID @@ -148,7 +148,7 @@ Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + Else If Seeker.StoreCreditFlag = 1 Then @@ -160,7 +160,7 @@ Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf EndIf @@ -173,7 +173,7 @@ Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf @@ -189,9 +189,9 @@ Var AddData = 0 - DEBUGVAR Seeker.TNumberTaobinMember + DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.PointTaobinStr - + If Seeker.TNumberTaobinMember = "" Then @@ -200,12 +200,12 @@ Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" - EndIf + EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" - If Seeker.FromConsent = 1 Then + If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID @@ -219,13 +219,13 @@ Var AddData = 1 ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf - + Var VendingTSID = "" EndIf If Seeker.VendingCode = "MKFOO" Then Var AddData = 0 - EndIf + EndIf DEBUGVAR Seeker.CodeChannel DEBUGVAR Seeker.CollectPointMain @@ -233,7 +233,7 @@ If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree - + EndIf @@ -250,7 +250,7 @@ DEBUGVAR TxReference - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else @@ -258,7 +258,7 @@ Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf - DEBUGVAR show_eng + DEBUGVAR show_eng Var next_pic_bn = DirImage + "/bn_add_order.png" Var next_pic_bp = DirImage + "/bp_add_order.png" @@ -268,7 +268,7 @@ Var topup_credit_bn = DirImage + "/bn_topup_credit.png" Var topup_credit_bp = DirImage + "/bp_topup_credit.png" Var EnableTopupCreditBetweenBrew = "Invisible" - + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -278,7 +278,7 @@ Var Seeker.lidAction = 2 EndIf - + DEBUGVAR LastMakeDrinkResult If LastMakeDrinkResult = "success" Then @@ -312,7 +312,7 @@ Var EnableTopupCreditBetweenBrew = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then Var EnableGetMoreStrawFileName = "Enable" Var SelectMenuBetweenBrewEnable1Blink = "Enable" Else @@ -329,47 +329,47 @@ Var LidStateX = "Invisible" ; Override from config - If StrawGetMoreState = "Invisible" Then + If StrawGetMoreState = "Invisible" Then Var bg_strawProblem_ST = "Enable" Var EnableGetMoreStrawFileName = "Invisible" EndIf If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf If Seeker.CreditCard = 1 Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If NeedUpgrade = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" EndIf If NeedReboot = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" - Var SelectMenuBetweenBrewEnable1 = "Invisible" - Var EnableTopupCreditBetweenBrew = "Invisible" - EndIf - - If SELLSTATUS = "DEACTIVE" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" - EndIf + EndIf + + If SELLSTATUS = "DEACTIVE" Then + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1 = "Invisible" + Var EnableTopupCreditBetweenBrew = "Invisible" + EndIf DEBUGVAR NeedUpgrade DEBUGVAR NeedReboot DEBUGVAR SELLSTATUS - + DEBUGVAR bg_lidProblem_ST - If bg_lidProblem_ST = "Invisible" Then + If bg_lidProblem_ST = "Invisible" Then Var GetLidButtonState = "Enable" ;Var XStraw = 265 EndIf @@ -403,14 +403,14 @@ DEBUGVAR SelectMenuBetweenBrewEnable1 Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1 - + ; echo 1 > /mnt/sdcard/game_enable READ_FILE "/mnt/sdcard/game_enable" game_mode_str STRCONTAIN "1" game_mode_str game_mode_enable DEBUGVAR game_mode_enable - + If GameEnableFromTrickerEv = 1 Then Var game_mode_enable = "true" EndIf @@ -429,13 +429,13 @@ DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameOverrideDisable - + DEBUGVAR Seeker If game_mode_enable = "true" Then - - + + DEBUGVAR GameInstalled - + If GameInstalled = "true" Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -460,7 +460,7 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + If TelephoneNumber = "0899999999" Then ; Coupon or customer not input phone number. Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") @@ -470,7 +470,7 @@ EndIf DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -484,7 +484,7 @@ APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString - + ; Var Game01Enable = 1 @@ -493,10 +493,10 @@ WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" "" ;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n" APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n" - + Var ACCString !assigned SprintFmt("ACC: ""\r\n", "") DEBUGVAR ACCString - + If show_eng = "true" Then Var LangString = "LANG: "EN"\r\n" Else @@ -510,14 +510,14 @@ APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString - + ; Var Game01Enable = 1 EndIf EndIf EndIf - + DEBUGVAR Game01Enable @@ -549,11 +549,11 @@ - ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable - ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable + ; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable If Game01Enable = 1 Then - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 75 Then If Game01Enable = 1 Then @@ -577,7 +577,7 @@ EndIf EndIf - + If InternationalEnable = 1 Then @@ -591,14 +591,14 @@ Var adver_brewing_play_index = 2 Var adver_brewing_count_down = 10 Var brew_vdo1 = "ROOT/taobin_project/image/page_doing/tao_adv1.png" - + TRY "ROOT/taobin_project/video/script3_first_brewing.ev" Var VideoPlayFile = brew_vdo1 Var PictureFile = brew_txt1 - - + + EndIf @@ -615,9 +615,9 @@ Var ChangeOK = 2 EndIf - + If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -631,11 +631,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -658,31 +658,31 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 147." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then SAVELOG "waitAckPay = 1" - Open "ROOT/taobin_project/xml/page_drinkok.xml" - + Open "ROOT/taobin_project/xml/page_drinkok.xml" + EndIf If ActionOKCase = 1 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -696,11 +696,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -723,27 +723,27 @@ Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" - - Else + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + + Else SAVELOG "back_to_main from line > 173." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + Else - + EndIf 1000 - + + - Var Timeout = Timeout + 1 - + If Timeout < 2 Then If Game01Enable = 0 Then If game_mode_enable = "true" Then @@ -752,7 +752,7 @@ Var Game01Enable = 1 Var ButtonGameCountDownState = "Invisible" Var ButtonGamePressToPlayState = "Enable" - + EndIf EndIf EndIf @@ -768,24 +768,28 @@ EndIf Var CountDownBrewing = BREW_CNT - - + + If SelectMenuBetweenBrewEnable1 = "Enable" Then If Timeout = 5 Then - If show_eng = "true" Then + If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" - + + If FromJemilaPro = 1 Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a" + EndIf + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then - - If SoundBackToSchoolType = 1 Then + + If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf - If SoundBackToSchoolType = 2 Then + If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav" @@ -806,13 +810,13 @@ EndIf EndIf EndIf - + ; run test; - ;I f CountDownBrewing = 40 Then - ; Open "ROOT/taobin_project/xml/page_drinkok.xml" + ;I f CountDownBrewing = 40 Then + ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;I f CountDownBrewing = 0 Then - ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" + ; ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf Var ShowCountDownBrewing = CountDownBrewing @@ -822,28 +826,28 @@ If EnableDoubleCupNoError = 1 Then If HURR_FOREVER = "F:1028" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1029" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1030" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf If HURR_FOREVER = "F:1031" Then Var SavePayDetail = HURR_FOREVER - Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" + Open "ROOT/taobin_project/xml/page_pickup_cup_from_error.xml" EndIf EndIf If Timeout > 540 Then SAVELOG "back_to_main from line > 217." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf - + If BREW_CNT = 0 Then If CountUpWhenBREW_CNT > 56 Then @@ -870,19 +874,19 @@ Var ChangeTimeout = ChangeTimeout + 1 EndIf - If waitAckPay = 1 Then + If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" SAVELOG "TIMEOUT=60" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - If waitAckPay = 2 Then + If waitAckPay = 2 Then If Timeout > 10 Then - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 @@ -894,11 +898,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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" @@ -919,9 +923,9 @@ GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf - + SAVELOG "back_to_main from line > 309." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf @@ -957,7 +961,7 @@ Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -979,9 +983,9 @@ Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -1021,7 +1025,7 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS @@ -1032,19 +1036,19 @@ ;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var SessionID2 = "" - + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - ;If Seeker.CodeChannel = 0 Then + ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 357." - ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + ; Open "ROOT/taobin_project/xml/page_drinkfail2.xml" ;EndIf Var waitAckPay = 2 @@ -1078,13 +1082,13 @@ EndIf Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + EndIf @@ -1093,12 +1097,12 @@ Var DEE = PayDetail Var PayDetail2 = Seeker.PayDetail2 PAYEXT SVT ACC VendingTSIDTmp DEE - + Var ActionOKCase = 1 SAVELOG "ActionOKCase = change OK 3" - If Seeker.CodeChannel = 0 Then + If Seeker.CodeChannel = 0 Then SAVELOG "back_to_main from line > 391." - Open "ROOT/taobin_project/xml/page_drinkfail2.xml" + Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf Var waitAckPay = 2 @@ -1117,12 +1121,12 @@ If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask - If waitAckPay = 0 Then + If waitAckPay = 0 Then - Var waitAckPay = 0 + Var waitAckPay = 0 Var Timeout = 0 - Var ProcessText = "" + Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" @@ -1132,7 +1136,7 @@ Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf - + Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber @@ -1156,24 +1160,24 @@ AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - + Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "2/" + HURR_FOREVER - Var PayDetail = PayDetail + "/" + Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel - + ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then - Var Seeker.CodeChannel = 1 + Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 @@ -1196,7 +1200,7 @@ Var SessionID2 = SessionID2 + "/" If Seeker.CreditCard = 1 Then - + CashlessReq SUCCESS ;CashlessReq FAIL @@ -1204,24 +1208,24 @@ Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else - + If Seeker.CreditCard = 1 Then - + CashlessReq SUCCESS ;CashlessReq FAIL EndIf Var PayDetail2 = Seeker.PayDetail2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate - + EndIf - + Else ;no wait ack pay - Var waitAckPay = 0 + Var waitAckPay = 0 Var SVT = "coffee" Var ACC = "0899999999" @@ -1236,7 +1240,7 @@ PAYEXT SVT ACC VendingTSIDTmp DEE EndIf - + EndIf __CMD "clear-stock-data" 0 "-" "-" @@ -1245,7 +1249,7 @@ Var ServiceSuccess = "yes" If waitAckPay = 0 Then SAVELOG "waitAckPay=0" - Open "ROOT/taobin_project/xml/page_drinkok.xml" + Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf @@ -1268,22 +1272,22 @@ Var PreviousSeeker.UseGetDrink5Bath = 0 EndIf EndIf - + AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore EndIf - If Seeker.PayWithQR = 0 Then + If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then CashlessReq FAIL - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var CreditCardVoid = 1 Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 @@ -1293,9 +1297,9 @@ Else Change ServiceAmount2 EndIf - + EndIf - + EndIf Else @@ -1311,9 +1315,9 @@ EndIf If CoinAmount > 0 Then - + If ChangeFlag = 0 Then - Var ChangeFlag = 1 + Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then @@ -1321,7 +1325,7 @@ Else Change ServiceAmount3 EndIf - + EndIf Else Var ChangeOK = 2 @@ -1336,19 +1340,19 @@ Var ChangeOK = 3 EndIf - - + + EndIf EndIf - + If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 EndIf EndIf - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf @@ -1373,7 +1377,7 @@ Var SelectMenuBetweenBrewEnable1 = "Invisible" Var SelectMenuBetweenBrewEnable1Text = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible" - + EndIf If DisableFromPowerup = "true" Then @@ -1382,17 +1386,17 @@ Var EnableTopupCreditBetweenBrew = "Invisible" EndIf - If SelectMenuBetweenBrewEnable1 = "Enable" Then - If SelectMenuBetweenBrewEnable1Blink = "Enable" Then + If SelectMenuBetweenBrewEnable1 = "Enable" Then + If SelectMenuBetweenBrewEnable1Blink = "Enable" Then Var SelectMenuBetweenBrewEnable1Blink = "Invisible" Else Var SelectMenuBetweenBrewEnable1Blink = "Enable" EndIf - + Else Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf - + DEBUGVAR CountUpBrewing ; animation video loop @@ -1400,15 +1404,15 @@ If adver_brewing_playing = 1 Then - + DEBUGVAR adver_brewing_play_index If adver_brewing_play_index = 2 Then DEBUGVAR adver_brewing_count_down If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - - + + Var PictureFile = brew_txt1 EndIf @@ -1420,9 +1424,9 @@ Var adver_brewing_count_down = 0 ; Next video follow script. - TRY "ROOT/taobin_project/video/script3_brew.ev" + TRY "ROOT/taobin_project/video/script3_brew.ev" + - EndIf EndIf @@ -1432,7 +1436,7 @@ If adver_brewing_count_down > 0 Then Var adver_brewing_count_down = adver_brewing_count_down - 1 - + If brew_vdo2 = "" Then Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4" Else @@ -1452,7 +1456,7 @@ EndIf EndIf - + Else If adver_brewing_playing = 2 Then @@ -1466,8 +1470,8 @@ EndIf - - + + Else @@ -1475,7 +1479,7 @@ ;CampaignEnable Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime - + If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else @@ -1485,9 +1489,9 @@ ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload - + Var StepVideo = SlotVideo + 2 - + ;SAVELOG StepVideo If StepVideo = 1 Then @@ -1536,29 +1540,29 @@ Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd - + DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf - EndIf + EndIf ; CampaignEnable EndIf ; AnimationOn = true - If IgnoreNetCore = "true" Then + If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then SAVELOG "CountDownBrewing=0" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf - + If RoadShow = "true" Then - Var SelectMenuBetweenBrewEnable1Blink = "Invisible" + Var SelectMenuBetweenBrewEnable1Blink = "Invisible" EndIf @@ -1566,7 +1570,7 @@ If EnableGetMoreStrawFileName = "PressForever" Then DEBUGVAR GetMoreStrawCount - If GetMoreStrawCount > 0 Then + If GetMoreStrawCount > 0 Then If EnableGetMoreStrawFileNameCountDown > 0 Then Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1 @@ -1577,18 +1581,18 @@ EndIf EndIf - + If GetMoreStrawCount <= 0 Then If StrawProblemStatus = 1 Then Var StrawProblemStatus = 2 - + Var bg_strawProblem_ST = "Enable" Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableGetMoreStrawFileName = "Invisible" EndIf EndIf - + If GetLidButtonCountDown > 0 Then Var GetLidButtonCountDown = GetLidButtonCountDown - 1 @@ -1601,7 +1605,7 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonCountDown = 0 EndIf - + If GetLidButtonCountDown = 1 Then Var GetLidButtonState = "Invisible" Var bg_lidProblem_ST = "Enable" @@ -1623,7 +1627,7 @@ EndIf - + If ButtonGameCountDownState = "Enable" Then If BREW_CNT < 85 Then If Game01Enable = 1 Then @@ -1647,22 +1651,22 @@ EndIf Var Game01Enable = 0 EndIf - + Refresh TimerReset - + - + If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf - + DEBUGVAR MachineStage If MachineStage = "drink-failed" Then @@ -1675,12 +1679,12 @@ EndIf Refresh - + ; this copy in file menu_brew2.xml and menu_lid_straw.xml - If ChangeStatus = "payout-end" Then + If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf @@ -1767,18 +1771,18 @@ SelectMenuBetweenBrewEnable1 next_pic_bn next_pic_bp - + If MachineState_Result = 0 Then - + SAVELOG "User click next button" Var Seeker = "next" Var MultiPayEnable = "false" CoinPause - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + @@ -1825,7 +1829,7 @@ bnGetMoreStrawFileName bpGetMoreStrawFileName "No" - + Var EnableGetMoreStrawFileNameCountDown = 5 Var EnableGetMoreStrawFileName = "PressForever" Var GetMoreStrawCount = GetMoreStrawCount - 1 @@ -1835,7 +1839,7 @@ If GetMoreStrawCount > 0 Then Machine Straw EndIf - + @@ -1863,7 +1867,7 @@ ButtonGameCountDownState "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" - + @@ -1892,7 +1896,7 @@ 526 1680 241 - 204 + 204 ButtonGamePressToPlayState DEBUGVAR Game01Enable @@ -1917,16 +1921,16 @@ bg_lidProblem_ST bnLidProblemReport bpLidProblemReport - + Var lidStr = "แจ้งปัญหาไม่ได้รับฝา" - + __CMD "lid-alert-disable" 0 lidStr "-" __CMD "send-error-code" 1343 "-" "-" Var bg_lidProblem_ST = "Invisible" Refresh - + diff --git a/xml/page_catalog.xml b/xml/page_catalog.xml index 14e44835..94ed7c48 100644 --- a/xml/page_catalog.xml +++ b/xml/page_catalog.xml @@ -19,12 +19,12 @@ Else Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog3.xml" - + EndIf - + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - + TopView "show" ; On open @@ -42,16 +42,16 @@ Var web_telnumOK = "" Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/" - - If CocktailShow = "true" Then - Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" + + If CocktailShow = "true" Then + Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" EndIf - + If TermTemOnline = "true" Then Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_tt_catalog.xml" EndIf - - If Seeker = "curr" Then + + If Seeker = "curr" Then Machine DoorLidClose EndIf @@ -60,11 +60,11 @@ CoinVending OFF - + ; Clear value Topping "clear" "-" - If show_eng = "true" Then + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page2_en/page2" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" @@ -74,12 +74,17 @@ Var DirImageCart = "ROOT/taobin_project/image/cart_en" Var text_unavailable = "UNAVAILABLE###size=16" - + Else Var DirImage = "ROOT/taobin_project/image/page2" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" + + If FromJemilaPro = 1 Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/taobin_sawade.m4a" + EndIf + Play PlaySoundLag Var DirImageCart = "ROOT/taobin_project/image/cart_th" @@ -116,7 +121,7 @@ ;GenHashWithTimeStamp QRCODE99x WEB "ENABLE" - + Else Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" @@ -129,7 +134,7 @@ EndIf ; 1035 is Coke. - STRCONTAIN "1035" MaterialAvailable CokeUI + STRCONTAIN "1035" MaterialAvailable CokeUI Var bnSodaAndOther = DirImage + "/bn_soda_coke.png" Var bpSodaAndOther = DirImage + "/bp_soda_coke.png" @@ -144,8 +149,8 @@ Var QRCODE99_Y = 1718 Var showCart = "Invisible" - If MultiPayEnable = "true" Then - + If MultiPayEnable = "true" Then + If CART_COUNT = 1 Then Var showCart = "Enable" Var cart_image_bn = DirImageCart + "/bn_cart1.png" @@ -154,7 +159,7 @@ Var QRCODE99_Y = 1580 EndIf - + If CART_COUNT = 2 Then Var showCart = "Enable" Var cart_image_bn = DirImageCart + "/bn_cart2.png" @@ -164,7 +169,7 @@ EndIf - + If CART_COUNT = 3 Then Open "ROOT/taobin_project/xml/page_payment_multi.xml" @@ -183,7 +188,7 @@ EndIf - + Var menu_name_eng_hot = "" Var menu_desc_eng_hot = "" Var menu_name_thai_hot = "" @@ -201,16 +206,16 @@ Var menu_desc_thai_blender = "" - - - If BoxID = 0 Then + + + If BoxID = 0 Then RebootWithCause "BoxID was zero" EndIf - + 1000 - + ;SAVELOG SoundPlaying @@ -219,21 +224,21 @@ EndIf If countDownRetrun = 0 Then - If Seeker = "next" Then - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + If Seeker = "next" Then + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf - + Refresh TimerReset - + - ;If ChangeStatus = "payout-end" Then + ;If ChangeStatus = "payout-end" Then ; Var ChangeOK = 1 ;EndIf @@ -246,15 +251,15 @@ Cart "DeleteMenuID" "ALL" Var web_readyOK = web_ready Var web_telnumOK = web_telnum - - + + Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" EndIf - + Else EndIf - + @@ -287,9 +292,9 @@ "ROOT/taobin_project/image/page2/bn_back_arrow.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - - If Seeker = "next" Then - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + + If Seeker = "next" Then + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf @@ -303,9 +308,9 @@ show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ; eng - If show_eng = "true" Then + If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" @@ -332,11 +337,11 @@ Var(DirImage + "/bp_diy.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" - + ; eng - Open "ROOT/taobin_project/xml/page_catalog_group_recommend.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_recommend.xml" @@ -348,12 +353,12 @@ Var(DirImage + "/bp_coffee.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_coffee.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_coffee.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink2.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink2.xml" EndIf @@ -366,12 +371,12 @@ Var(DirImage + "/bp_tea.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_tea.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_tea.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink3.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink3.xml" EndIf @@ -383,12 +388,12 @@ Var(DirImage + "/bp_cho_caramel.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_milk.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_milk.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink4.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink4.xml" EndIf @@ -404,12 +409,12 @@ Var(DirImage + "/bp_protein.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_whey.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_whey.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink7.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink7.xml" EndIf @@ -423,10 +428,10 @@ Var(DirImage + "/bn_kidmenu.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" - Open "ROOT/taobin_project/xml/page_catalog_group_forkid.xml" - + Open "ROOT/taobin_project/xml/page_catalog_group_forkid.xml" + @@ -438,12 +443,12 @@ Var(DirImage + "/bp_appfast.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_appfast.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_appfast.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink11.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink11.xml" EndIf @@ -456,12 +461,12 @@ bpSodaAndOther "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" If new_layout = "true" Then - Open "ROOT/taobin_project/xml/page_catalog_group_other.xml" + Open "ROOT/taobin_project/xml/page_catalog_group_other.xml" Else - Open "ROOT/taobin_project/xml/page_catalog_choose_drink6.xml" + Open "ROOT/taobin_project/xml/page_catalog_choose_drink6.xml" EndIf @@ -475,10 +480,10 @@ Var(DirImage + "/bp_main_page_member.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ; eng - Open "ROOT/taobin_project/xml/page_before_check_member.xml" - + Open "ROOT/taobin_project/xml/page_before_check_member.xml" + @@ -491,11 +496,11 @@ Var(DirImage + "/bp_main_page_topup.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ; eng Var PayDetail="" - Open "ROOT/taobin_project/xml/page_back_to_topup.xml" - + Open "ROOT/taobin_project/xml/page_back_to_topup.xml" + @@ -525,7 +530,7 @@ 200 50 SoundVolume - + Var countClick = countClick + 1 If countClick = 3 Then @@ -569,12 +574,12 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 400 - + + - Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - + + @@ -586,7 +591,7 @@ Var web_readyOK = web_ready Var web_telnumOK = web_telnum - + Var web_app_prepar = "true" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" @@ -594,7 +599,7 @@ EndIf Else EndIf - + diff --git a/xml/page_catalog_group_coffee.xml b/xml/page_catalog_group_coffee.xml index c1a7f8d8..85cfcaf2 100644 --- a/xml/page_catalog_group_coffee.xml +++ b/xml/page_catalog_group_coffee.xml @@ -39,7 +39,7 @@ Var block_index_override = 0 Var block_index_move = 0 -; menu_new_list 66 +; menu_new_list 67 ; ==================> Len = 17 ; 12-01-01-0001 - - @@ -2090,7 +2090,7 @@ ESPRESSO" SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -2163,7 +2163,7 @@ ESPRESSO" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 @@ -2343,7 +2343,7 @@ ESPRESSO" xmlpro( 12-21-01-0003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" @@ -2416,7 +2416,7 @@ ESPRESSO" KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ(อเมริกาโน)" + "อเมริกาโน" 16 @@ -2578,6 +2578,513 @@ ESPRESSO" text_unavailable center-vertical-horizontal + + ; ==================> Len = 12 + ; 12-01-01-0081 12-01-02-0081 - + + 33 + 22 + 225 + 296 + Flag( 12-01-01-0081.Button,12-01-02-0081.Button,$Sum12010100811201020081) + + + 16 + 164 + 24 + 220 + "multi2" + KanitMediumTTF + 0x322B26 + showthaiText + "กาแฟดำ" + + + 16 + 220 + 14 + 220 + KanitMediumTTF + 0x6F5F51 + showthaiText + "กาแฟ และน้ำ " + + + 16 + 164 + 22 + 220 + "multi2" + KanitMediumTTF + 0x322B26 + showengText + "STRONG COFFEE" + + + 16 + 220 + 14 + 220 + KanitMediumTTF + 0x6F5F51 + showengText + "Dark shot Espresso, Water" + + + 16 + 264 + Var( DirImage2 + "option_deactive.png" ) + + + 16 + 264 + $12-01-01-0081.Button + Var( DirImage2 + "hot.png" ) + Var( DirImage2 + "hot_db.png" ) + + + 50 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitMediumTTF + 0x6F5F51 + 0xEAE6E1 + $12-01-01-0081.Button + StringFmt( $12-01-01-0081.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 81 + 264 + Var( DirImage2 + "cold.png" ) + Var( DirImage2 + "cold_db.png" ) + $12-01-02-0081.Button + + + 115 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitMediumTTF + 0x6F5F51 + 0xEAE6E1 + $12-01-02-0081.Button + StringFmt( $12-01-02-0081.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 146 + 264 + Var( DirImage2 + "blend.png" ) + Var( DirImage2 + "blend_db.png" ) + "Invisible" + + + 180 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitRegularTTF + 0x6F5F51 + 0xEAE6E1 + "Invisible" + StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 81 + 264 + + eval( + If ICE_PROCESS_STATUS = 2 Then + + If $Sum12010100811201020081 = "Disable" Then + Var ice_tab_process_show = "Disable" + Else + Var ice_tab_process_show = "Enable" + EndIf + + Else + Var ice_tab_process_show = "Invisible" + EndIf + Var return = ice_tab_process_show + ) + + "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" + "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" + + + 49 + 117 + + eval( + If $Sum12010100811201020081 = "Disable" Then + STRCONTAIN "ERR" $12-01-01-0081.TAG tag1_is_disable + STRCONTAIN "ERR" $12-01-02-0081.TAG tag2_is_disable + STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable + Var return = "Invisible" + If tag1_is_disable = "true" Then + Var return = "Enable" + EndIf + If tag2_is_disable = "true" Then + Var return = "Enable" + EndIf + If tag3_is_disable = "true" Then + Var return = "Enable" + EndIf + Else + Var return = "Invisible" + EndIf + ) + + "ROOT/taobin_project/image//img_menu_err2.png" + + + 84 + 266 + 10 + OpunMediumTTF + 0xDE794E + ice_tab_process_show + ice_show_open + + + 48 + 116 + 32 + 128 + 64 + MITRegularTTF + 0x5A5A5A + "disable-show" + $Sum12010100811201020081 + text_unavailable + center-vertical-horizontal + + + ; 12-21-01-0081 12-21-02-0081 - + + 33 + 22 + 225 + 296 + Flag( 12-21-01-0081.Button,12-21-02-0081.Button,$Sum12210100811221020081) + + + 16 + 164 + 24 + 220 + "multi2" + KanitMediumTTF + 0x322B26 + showthaiText + "กาแฟดำ" + + + 16 + 220 + 14 + 220 + KanitMediumTTF + 0x6F5F51 + showthaiText + "กาแฟ และน้ำ " + + + 16 + 164 + 22 + 220 + "multi2" + KanitMediumTTF + 0x322B26 + showengText + "STRONG COFFEE" + + + 16 + 220 + 14 + 220 + KanitMediumTTF + 0x6F5F51 + showengText + "Dark shot Espresso, Water" + + + 16 + 264 + Var( DirImage2 + "option_deactive.png" ) + + + 16 + 264 + $12-21-01-0081.Button + Var( DirImage2 + "hot.png" ) + Var( DirImage2 + "hot_db.png" ) + + + 50 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitMediumTTF + 0x6F5F51 + 0xEAE6E1 + $12-21-01-0081.Button + StringFmt( $12-21-01-0081.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 81 + 264 + Var( DirImage2 + "cold.png" ) + Var( DirImage2 + "cold_db.png" ) + $12-21-02-0081.Button + + + 115 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitMediumTTF + 0x6F5F51 + 0xEAE6E1 + $12-21-02-0081.Button + StringFmt( $12-21-02-0081.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 146 + 264 + Var( DirImage2 + "blend.png" ) + Var( DirImage2 + "blend_db.png" ) + "Invisible" + + + 183 + TextPriceMenuY + TextPriceMenuSize + 220 + KanitMediumTTF + 0x6F5F51 + 0xEAE6E1 + "Invisible" + StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test + + + 81 + 264 + + eval( + If ICE_PROCESS_STATUS = 2 Then + + If $Sum12210100811221020081 = "Disable" Then + Var ice_tab_process_show = "Disable" + Else + Var ice_tab_process_show = "Enable" + EndIf + + Else + Var ice_tab_process_show = "Invisible" + EndIf + Var return = ice_tab_process_show + ) + + "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" + "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" + + + 49 + 117 + + eval( + If $Sum12210100811221020081 = "Disable" Then + STRCONTAIN "ERR" $12-21-01-0081.TAG tag1_is_disable + STRCONTAIN "ERR" $12-21-02-0081.TAG tag2_is_disable + STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable + Var return = "Invisible" + If tag1_is_disable = "true" Then + Var return = "Enable" + EndIf + If tag2_is_disable = "true" Then + Var return = "Enable" + EndIf + If tag3_is_disable = "true" Then + Var return = "Enable" + EndIf + Else + Var return = "Invisible" + EndIf + ) + + "ROOT/taobin_project/image//img_menu_err2.png" + + + 84 + 266 + 10 + OpunMediumTTF + 0xDE794E + ice_tab_process_show + ice_show_open + + + 48 + 116 + 32 + 128 + 64 + MITRegularTTF + 0x5A5A5A + "disable-show" + $Sum12210100811221020081 + text_unavailable + center-vertical-horizontal + ; ==================> Len = 17 ; 12-01-01-0013 - - diff --git a/xml/page_catalog_group_health.xml b/xml/page_catalog_group_health.xml index 358655d3..c8e9df3b 100644 --- a/xml/page_catalog_group_health.xml +++ b/xml/page_catalog_group_health.xml @@ -55,7 +55,7 @@ SoundVolume Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ (อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)" Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png" @@ -128,8 +128,7 @@ KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ -(อเมริกาโน)" + "อเมริกาโน" 16 @@ -310,7 +309,7 @@ xmlpro( 12-21-01-1003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") Var NameDrink = "AMERICANO" - Var NameDrinkTH = "กาแฟดำ (อเมริกาโน)" + Var NameDrinkTH = "อเมริกาโน" Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)" Var DrinkDescription = "Espresso, Water" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png" @@ -383,8 +382,7 @@ KanitMediumTTF 0x322B26 showthaiText - "กาแฟดำ -(อเมริกาโน)" + "อเมริกาโน" 16 diff --git a/xml/page_catalog_group_pro_jemila.xml b/xml/page_catalog_group_pro_jemila.xml index 9e502ec2..06cd3bc1 100644 --- a/xml/page_catalog_group_pro_jemila.xml +++ b/xml/page_catalog_group_pro_jemila.xml @@ -35,38 +35,38 @@ ; menu_new_list 10 ; ==================> Len = 12 - ; - 12-03-02-0075 - + ; - 12-03-02-0075 12-03-03-0075 33 22 225 296 - Flag( 12-03-02-0075.Button,$Sum1203020075) + Flag( 12-03-02-0075.Button,12-03-03-0075.Button,$Sum12030200751203030075) ; straw left @@ -706,23 +710,23 @@ "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" - + SAVELOG "Click straw cb" If StrawStateX = "Press" Then - ;Var StrawStateX = "Enable" + ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" - + If Seeker.strawAction = 0 Then Var Seeker.strawAction = 1 Machine Straw - + Var bg_strawProblem_ST = "Enable" ;Var bg_strawlid_ST = "Invisible" ;Var LidStateX = "Invisible" ;Var StrawStateX = "Invisible" EndIf - + EndIf Refresh @@ -736,19 +740,19 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + + - SAVELOG "Click straw cb" If StrawStateX = "Press" Then - ;Var StrawStateX = "Enable" + ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" If Seeker.strawAction = 0 Then Var Seeker.strawAction = 1 Machine Straw - + Var bg_strawProblem_ST = "Enable" ;Var bg_strawlid_ST = "Invisible" ;Var LidStateX = "Invisible" @@ -758,7 +762,7 @@ EndIf DEBUGVAR "PICHET" - + Refresh @@ -774,13 +778,13 @@ "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) - + If Seeker.thankLidFlag = 0 Then - + SAVELOG "Click LID pic" If LidStateX = "Press" Then - ;Var LidStateX = "Enable" + ;Var LidStateX = "Enable" Else Var LidStateX = "Press" If Seeker.lidAction = 0 Then @@ -789,7 +793,7 @@ Var straw_problem_ST = "Enable" EndIf EndIf - + DEBUGVAR SugarState1 Refresh @@ -807,23 +811,23 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID cb" If LidStateX = "Press" Then - ;Var LidStateX = "Enable" + ;Var LidStateX = "Enable" Else Var LidStateX = "Press" If Seeker.lidAction = 0 Then Var Seeker.lidAction = 1 Machine Lid - + EndIf EndIf Refresh - + EndIf diff --git a/xml/page_payment.xml b/xml/page_payment.xml index e2648c43..9e64d1ae 100644 --- a/xml/page_payment.xml +++ b/xml/page_payment.xml @@ -179,6 +179,10 @@ Var DirImage = "ROOT/taobin_project/image/page_payment" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3" + If FromJemilaPro = 1 Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a" + EndIf + ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then diff --git a/xml/page_topping_select7.xml b/xml/page_topping_select7.xml index 2a45caed..083a1309 100644 --- a/xml/page_topping_select7.xml +++ b/xml/page_topping_select7.xml @@ -6,9 +6,9 @@ SoundVolume OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - + Machine WakeUp - + Var TextSelfTestCntColor = "0x746253" Var UserSeletedSugar = 0 @@ -22,7 +22,7 @@ EndIf Var y_topping_bg = 912 - + Var CHECK_EventOpen_Double = CHECK_EventOpen_Double + 1 If CHECK_EventOpen_Double > 1 Then WRITE_FILE "/mnt/sdcard/xml_alert_bug" "double called" @@ -42,7 +42,7 @@ Var SaveProductCodeSelect = "-" Var UserSelectProductCode = "-" - + Var showText4 = "Invisible" Var showText7 = "Invisible" @@ -50,8 +50,8 @@ Var blendedState = "Enable" Var DisableUsingCode = "false" - Var ShowLidStraw = "Invisible" - Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Invisible" + Var ShowLidOnly = "Invisible" Var ShowCollagenOnly = "Invisible" Var blendedStateShow = "Invisible" @@ -62,7 +62,7 @@ Var ShowLidOnly = "Invisible" Var ShowNormalNextButton = "Enable" - + ; On open Var lidAndStrawOldPageIgnore = "true" Var SugarState1 = "Invisible" @@ -71,9 +71,9 @@ Var SugarState4 = "Invisible" Var SugarState5 = "Invisible" Var SugarState6 = "Invisible" - + Var AddShotEnable = "Invisible" - + Var BGSugar = "Invisible" Var ShotCoffeeBG = "Invisible" @@ -86,7 +86,7 @@ ; Customer Coffee Var CustomCoffeeEnable = "False" - Var EnableLightRoast = "Disable" + Var EnableLightRoast = "Disable" Var showCoffeeWater = "Invisible" Var showCoffeeQuantity = "Invisible" @@ -131,7 +131,7 @@ ; End Customer Coffee ; Sugar Zero Cal - + Var BGSugarHotHealthy = "Invisible" Var BGSugarColdHealthy = "Invisible" @@ -147,9 +147,9 @@ ; On open Var LidState = Lid1Status - + ;SAVELOG PreviseXMLFileName2 - + Var MenuReady = "-" Var topping1 = "1" @@ -159,8 +159,8 @@ Var BugFlag = 0 - If show_eng = "true" Then - + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/topping2_en" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" @@ -175,7 +175,7 @@ Var text_show_normal_x = 408 Var text_x_free_adjust = 100 Var text_milk_choice_price_x = 255 - If PromotionOreoToppingFreeEnable = 0 Then + If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 5 EndIf @@ -198,7 +198,7 @@ Var SugarZeroCalPrice_X = 540 Else - + Var DirImage = "ROOT/taobin_project/image/topping2" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" @@ -213,7 +213,7 @@ Var text_show_normal_x = 386 Var text_x_free_adjust = 70 Var text_milk_choice_price_x = 237 - If PromotionOreoToppingFreeEnable = 0 Then + If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 30 EndIf @@ -231,7 +231,7 @@ Var custom_coffee_level_darker_text_x = 880 Var custom_coffee_level_dark_text_x = 790 - + Var SugarZeroCalPrice_X = 482 EndIf @@ -241,17 +241,17 @@ Var bg_strawlid = DirImage + "/bg_strawlid.png" Var bg_straw_only = DirImage + "/bg_straw_only.png" Var bg_lid_only = DirImage + "/bg_lid_only.png" - + Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" - + Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png" Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png" - - + + ;Var blendedState = "Enable" ;Var ShotCoffeeBG = "Enable" ;Var showShotEnable = "Enable" @@ -261,16 +261,16 @@ Var ShiftSugarStep = 1 - + CRLFToSpace showname CRLFToSpace showdesc - + ;- Begin Var PriceDrinkNoTop = PriceDrink Var PriceDrinkTmp = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var Timeout = 0 - + ;SAVELOG PriceDrinkTmp ;- End @@ -292,19 +292,19 @@ DEBUGVAR backGroundAddExtra DEBUGVAR backGroundAddShotPremium - + DEBUGVAR MultiPayEnable DEBUGVAR CART_COUNT Var btnAddCart = "Invisible" - If MultiPayEnable = "true" Then + If MultiPayEnable = "true" Then Var btnAddCart = "Enable" If CART_COUNT = 3 Then - Var btnAddCart = "Invisible" + Var btnAddCart = "Invisible" EndIf EndIf - Var LidDeactiveButton = "Invisible" - Var StrawDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Machine DoorClose Machine DoorLidClose @@ -314,7 +314,7 @@ Var NEW_MULTI = "Invisible" Var high_light_drink_type = "Invisible" - + Var text_hot_color = "0x84776F" Var text_cold_color = "0x84776F" Var text_blender_color = "0x84776F" @@ -375,19 +375,19 @@ If hot_button_state = "Disable2" Then Var text_price_d1 = "" Else - Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormat, PreScaleConvertShow) + Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormat, PreScaleConvertShow) EndIf If cold_button_state = "Disable2" Then Var text_price_d2 = "" Else - Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormat, PreScaleConvertShow) + Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormat, PreScaleConvertShow) EndIf If blend_button_state = "Disable2" Then Var text_price_d3 = "" Else - Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormat, PreScaleConvertShow) + Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormat, PreScaleConvertShow) EndIf DEBUGVAR PD_CODE1 @@ -445,8 +445,8 @@ Var WelcomeDrinkButtonState = "Invisible" - DEBUGVAR Price5Active - DEBUGVAR EnableLiveness + DEBUGVAR Price5Active + DEBUGVAR EnableLiveness DEBUGVAR DiscountWithIdentifyState DEBUGVAR WelcomeDrinkEnable @@ -498,14 +498,14 @@ Var ShowSpecialButton = "Invisible" Var TextShowSpecialButton = "" Var OverridePrice = 100 - Var SpecialButtonOpenFileXML = "ROOT/taobin_project/xml/page_payment.xml" - + Var SpecialButtonOpenFileXML = "ROOT/taobin_project/xml/page_payment.xml" + TRY "ROOT/taobin_project/speical/call_from_topping.ev" - + 1000 - + DEBUGVAR Timeout DEBUGVAR MenuReady @@ -515,14 +515,14 @@ If CLOSE_ORDER_NOW = "true" Then ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf - + If NoWaitMachineEnable = 1 Then DEBUGVAR MachineStage DEBUGVAR ConfirmDrinkButtonState If MachineStage = "close-maintenance" Then Var ConfirmDrinkButtonState = "Enable" - + If stop_now = "true" Then SAVELOG "stop_now is true page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" @@ -537,7 +537,7 @@ SAVELOG "DEACTIVE in page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf - + If SELLSTATUS = "DEACTIVE" Then SAVELOG "DEACTIVE in page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" @@ -546,17 +546,17 @@ If SelectDrinkType = 1 Then - + If MenuReady = "YES" Then DEBUGVAR ToppingDetail - + ; echo -n true > /mnt/sdcard/coffeevending/menu_blend_free READ_FILE "/mnt/sdcard/coffeevending/menu_blend_free" menu_blend_free DEBUGVAR menu_blend_free DEBUGVAR blend_button_state DEBUGVAR DoorCupPosition - + If menu_blend_free = "true" Then If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = 0 @@ -566,7 +566,7 @@ EndIf - If Seeker = "next" Then + If Seeker = "next" Then If CupRemain > 0 Then If Only18 = "true" Then @@ -581,12 +581,12 @@ If IsMenuInProfile = "true" Then ; Check profile - + If EnableLiveness = "true" Then - DEBUGVAR EnableLiveness + DEBUGVAR EnableLiveness OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - ; full - Open "ROOT/taobin_project/xml/page_identity_verification.xml" + ; full + Open "ROOT/taobin_project/xml/page_identity_verification.xml" Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/advert.xml" ; Only IDCard @@ -595,11 +595,11 @@ Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_payment.xml" + Open "ROOT/taobin_project/xml/page_payment.xml" EndIf Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_payment.xml" + Open "ROOT/taobin_project/xml/page_payment.xml" EndIf EndIf @@ -609,12 +609,12 @@ If FromEnergyDrink1BathPro = 1 Then Open "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_consent.xml" Else - Open "ROOT/taobin_project/xml/page_payment.xml" + Open "ROOT/taobin_project/xml/page_payment.xml" EndIf EndIf EndIf - + @@ -623,12 +623,12 @@ EndIf EndIf - + Var Timeout = Timeout + 1 - + If Timeout > 40 Then Var Timeout = 0 - If Seeker = "next" Then + If Seeker = "next" Then If ChildrenFree = 1 Then Var ChildrenFree = 0 @@ -640,7 +640,7 @@ ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else If ChildrenFree = 1 Then @@ -652,12 +652,12 @@ EndIf OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + EndIf - If MultiPayEnable = "true" Then + If MultiPayEnable = "true" Then If NEW_MULTI = "Invisible" Then Var NEW_MULTI = "Enable" Else @@ -667,11 +667,11 @@ If Seeker = "curr" Then If DoorCupPosition = "bottom" Then - ; It normal + ; It normal Var EmergencyStop = "false" Else Var EmergencyStop = "true" - + EndIf EndIf @@ -683,7 +683,7 @@ ; arm-not-ready ; brew-stg - If show_eng = "true" Then + If show_eng = "true" Then If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then Var ShowTextSelfTestCountDown = "Please wait a moment (" + MACHINE_SELF_TEST_COUNT_DOWN Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")" @@ -703,7 +703,7 @@ If Seeker = "curr" Then If MenuReason = "arm-not-ready" Then - + SAVELOG "goto mode arm-not-ready" DEBUGVAR DoorCupPosition @@ -714,7 +714,7 @@ Var TextSelfTestCntColor = "0x513C2F" Var ConfirmDrinkButtonState = "Enable" - If show_eng = "true" Then + If show_eng = "true" Then Var ShowTextSelfTestCountDown = "Please take out the glass." Else Var ShowTextSelfTestCountDown = "กรุณานําแก้วออก" @@ -730,12 +730,12 @@ Var Timeout = 0 Var ConfirmDrinkButtonState = "Invisible" EndIf - + EndIf Refresh TimerReset - + 0 @@ -754,17 +754,17 @@ show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ; eng SAVELOG "Lang change!" - If show_eng = "true" Then + If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf - If show_eng = "true" Then - + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/topping2_en" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" @@ -779,7 +779,7 @@ Var text_show_normal_x = 408 Var text_x_free_adjust = 100 Var text_milk_choice_price_x = 255 - If PromotionOreoToppingFreeEnable = 0 Then + If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 5 EndIf @@ -802,7 +802,7 @@ Var SugarZeroCalPrice_X = 540 Else - + Var DirImage = "ROOT/taobin_project/image/topping2" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" @@ -817,7 +817,7 @@ Var text_show_normal_x = 386 Var text_x_free_adjust = 70 Var text_milk_choice_price_x = 237 - If PromotionOreoToppingFreeEnable = 0 Then + If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 30 EndIf @@ -837,7 +837,7 @@ Var custom_coffee_level_dark_text_x = 790 Var SugarZeroCalPrice_X = 482 - + EndIf Var text_x_free_topping = text_x_add_oreo_price + text_x_free_adjust @@ -845,36 +845,35 @@ Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" - + Var bg_strawlid = DirImage + "/bg_strawlid.png" Var bg_straw_only = DirImage + "/bg_straw_only.png" Var bg_lid_only = DirImage + "/bg_lid_only.png" - + Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" - + Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png" Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png" - + CRLFToSpace showname CRLFToSpace showdesc - - + + If SugarSoundFlag = 1 Then If SelectDrinkType = 1 Then - If show_eng = "true" Then + If show_eng = "true" Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" - - ; Play Sound #zone - - If LipitPro = 1 Then - Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav" + ; Play Sound #zone + + If FromJemilaPro = 1 Then + Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/select_level.m4a" EndIf Play PlaySoundLag @@ -897,8 +896,8 @@ EndIf Function 2 - - + + RefreshAll @@ -923,14 +922,14 @@ "ROOT/taobin_project/image/page2/bn_back_arrow.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;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 @@ -939,8 +938,8 @@ Open OpenFromXML - - + + @@ -948,7 +947,7 @@ DEBUGVAR MAT_ID_9701 DEBUGVAR MAT_ID_9601 DEBUGVAR MAT_ID_1215 - + DEBUGVAR SubMenuProductCode1 DEBUGVAR SubMenuName11 @@ -956,8 +955,8 @@ DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuName12 - - + + DEBUGVAR TOPPING1 DEBUGVAR TOPPING1_EXT_2 DEBUGVAR TOPPING2 @@ -979,7 +978,7 @@ DEBUGVAR toppingID1index7 DEBUGVAR toppingID1index8 DEBUGVAR toppingID1index9 - + DEBUGVAR toppingID2index1 DEBUGVAR toppingID2index2 DEBUGVAR toppingID2index3 @@ -1010,7 +1009,7 @@ DEBUGVAR toppingID10index1 DEBUGVAR toppingID10index2 DEBUGVAR toppingID10index3 - + DEBUGVAR MenuCodeName1 DEBUGVAR MenuCodeName1_State DEBUGVAR MenuCodeName2 @@ -1033,23 +1032,23 @@ If TOPPING6 = "Topping-Volcano" Then - + Var text_color_6 = "0x84776F" - If toppingID6price2 > 0 Then + If toppingID6price2 > 0 Then DEBUGVAR toppingID6price2 DEBUGVAR DisplayFormat Var toppingID6price2Conv !assigned StringFmt( toppingID6price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID6price2Conv Var text_price_6 = "" Var text_price_6 = toppingID6price2Conv + ")" Var text_price_6 = "(+" + text_price_6 - - + + DEBUGVAR text_price_6 DEBUGVAR text_color_6 @@ -1057,18 +1056,18 @@ Var text_price_6 = "" EndIf - + If blend_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" - Var showText8 = "Invisible" + Var showText8 = "Invisible" Else Var showOreoAddEnable = "Disable" Var showText8 = "Enable" EndIf - + Var ExtraTopping = "Enable" @@ -1076,7 +1075,7 @@ If hot_button_state = "Disable2" Then If cold_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" - Var showText8 = "Invisible" + Var showText8 = "Invisible" EndIf EndIf EndIf @@ -1087,7 +1086,7 @@ Var PriceCustomCoffeeFormat = "%.0f฿" - + If TOPPING7 = "water-level" Then Var CustomCoffeeEnable = "True" Var showCustomCoffee = "Enable" @@ -1153,7 +1152,7 @@ If toppingID9Default = "" Then Var CustomCoffeeLevelState[1] = "PressForever" Else - + If toppingID9index1 = toppingID9Default Then Var CurrentCoffeeLevelId = toppingID9index1 Var CustomCoffeeLevelState[0] = "PressForever" @@ -1232,7 +1231,7 @@ If toppingID9Default = "" Then Var CustomCoffeeLevelState[1] = "PressForever" Else - + If toppingID9index1 = toppingID9Default Then Var CurrentCoffeeLevelId = toppingID9index1 Var CustomCoffeeLevelState[0] = "PressForever" @@ -1313,7 +1312,7 @@ If toppingID8Default = "" Then Var CustomCoffeeTampingState[1] = "PressForever" Else - + If toppingID8index1 = toppingID8Default Then Var CurrentCoffeeTampingId = toppingID8index1 Var CustomCoffeeTampingState[0] = "PressForever" @@ -1335,7 +1334,7 @@ Var CustomCoffeeTampingState[1] = "Enable" Var CustomCoffeeTampingState[2] = "PressForever" EndIf - + EndIf EndIf @@ -1350,7 +1349,7 @@ EndIf ; i f cold menu disable away - + If cold_button_state = "PressForever" Then If showOreoAddEnable = "Enable" Then Var showOreoAddEnable = "Disable" @@ -1371,23 +1370,23 @@ EndIf EndIf - STRCONTAIN "9701" BrewParam IgnoreLidStraw + STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw - + Var h_block_of_sugar = 210 - - + + If IgnoreLidStraw = "true" Then - Var ShowLidStraw = "Invisible" - Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Invisible" + Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" - + Else - Var ShowLidStraw = "Enable" + Var ShowLidStraw = "Enable" If StrawState = "Enable" Then If MAT_ID_9701 = "Enable" Then Var StrawState = MAT_ID_9701 @@ -1412,44 +1411,44 @@ Var LidState = "Disable" EndIf EndIf - + EndIf - + ; Override all If Service_LidStraw = "Disable" Then - Var ShowLidStraw = "Enable" - ;Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Enable" + ;Var ShowLidOnly = "Invisible" ;Var ShowStawOnly = "Invisible" - + ;Var StrawState = "Disable" ;Var LidState = "Disable" EndIf If StrawState = "Enable" Then - Var StrawDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Else If StrawState = "Press" Then - Var StrawDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Else - Var StrawDeactiveButton = "Enable" + Var StrawDeactiveButton = "Enable" EndIf EndIf - + If LidState = "Enable" Then - Var LidDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" Else If LidState = "Press" Then - Var LidDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" Else - Var LidDeactiveButton = "Enable" + Var LidDeactiveButton = "Enable" EndIf EndIf - - - If UserSeletedSugar = 0 Then + + + If UserSeletedSugar = 0 Then If SugarModeUpdateWhenChangeDrinkType = 1 Then Var SugarModeUpdateWhenChangeDrinkType = 0 @@ -1464,11 +1463,11 @@ EndIf Var sugar_default_flag = 0 - + ; Suger 4 step cold If TOPPING1 = "Suger 4 step cold" Then Var SugarZeroCalOption = "Enable" - + Var BGSugar = "Invisible" Var ShiftSugarStep = 1 @@ -1483,12 +1482,12 @@ ; select no sugar Var SugarZeroCalCheck = "Disable" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1524,8 +1523,8 @@ ; Suger 4 step hot If TOPPING1 = "Suger 4 step hot" Then Var SugarZeroCalOption = "Enable" - - + + Var BGSugar = "Invisible" Var ShiftSugarStep = 1 @@ -1540,12 +1539,12 @@ ; select no sugar Var SugarZeroCalCheck = "Disable" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1572,17 +1571,17 @@ EndIf DEBUGVAR RecipeTag2 - ; + ; If TOPPING1 = "Sugar" Then Var SugarZeroCalOption = "Enable" - + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" @@ -1594,12 +1593,12 @@ Var SugarState1 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1630,19 +1629,19 @@ If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" EndIf - + EndIf If TOPPING1 = "Powder Sugar for Hot" Then Var SugarZeroCalOption = "Enable" - + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" @@ -1654,12 +1653,12 @@ Var SugarState1 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1690,9 +1689,9 @@ If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" EndIf - + EndIf - + If TOPPING1 = "Powder Sugar" Then Var SugarZeroCalOption = "Enable" @@ -1702,7 +1701,7 @@ Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" @@ -1717,12 +1716,12 @@ Var SugarState1 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1758,18 +1757,18 @@ DEBUGVAR toppingID1Default DEBUGVAR SugarState1 EndIf - + If TOPPING1 = "Sugar Premix 25" Then Var SugarZeroCalOption = "Enable" - + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 2 Var SugarState1 = "Disable" Var SugarState2 = "Enable" @@ -1778,12 +1777,12 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1808,7 +1807,7 @@ Var SugarState6 = "Disable" EndIf - + If sugar_default_flag = 0 Then Var SugarState2 = "PressForever" EndIf @@ -1817,7 +1816,7 @@ If TOPPING1 = "Powder Sugar Premix 50" Then Var SugarZeroCalOption = "Enable" - + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" @@ -1835,7 +1834,7 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1882,18 +1881,18 @@ EndIf Var ShiftSugarStep = 2 - + Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1914,7 +1913,7 @@ ; No 2 right steps If NoSugarStepRight2 = "true" Then - + If RecipeTag2 = "Topping6Step" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" @@ -1923,7 +1922,7 @@ EndIf EndIf - + If sugar_default_flag = 0 Then Var SugarState2 = "PressForever" EndIf @@ -1939,7 +1938,7 @@ Var ShiftSugarStep = 1 Var SugarModeUpdateWhenChangeDrinkType = 1 EndIf - + If TOPPING1 = "Suger 4 step hot" Then Var BGSugarHotHealthy = "Enable" @@ -1964,36 +1963,36 @@ EndIf - + Var ShowCollagenOnly = "Enable" Var BugFlag = 1 - + Var topping1 = toppingID1Default Var ToppingGotoPayment = "false" - + Var SugarSoundFlag = 0 If BGSugarNew = "Enable" Then Var SugarSoundFlag = 1 - + EndIf If BGSugar = "Enable" Then Var SugarSoundFlag = 1 - + EndIf - + If SugarSoundFlag = 1 Then If SelectDrinkType = 1 Then - If show_eng = "true" Then + If show_eng = "true" Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" - + ; Play Sound #zone - + If LipitPro = 1 Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav" @@ -2013,17 +2012,17 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" EndIf - + Else - EndIf - ; End of UserSeletedSugar = 0 + EndIf + ; End of UserSeletedSugar = 0 Refresh - + Var collagenShow = "true" ;-BEGIN shot layout - + If topping_price_refresh = 1 Then Var topping_price_refresh = 0 @@ -2031,34 +2030,34 @@ Var shot_h_layout = 218 If TOPPING2 = "shot coffee" Then - + Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" Var ExtraTopping = "Enable" Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID2price2Conv Var text_shot_normal_add = toppingID2price2Conv + ")" - Var text_shot_normal_add = "(+" + text_shot_normal_add - + Var text_shot_normal_add = "(+" + text_shot_normal_add + Refresh EndIf - + If TOPPING2 = "shot coffee termtem" Then - + Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" - + Var ExtraTopping = "Enable" - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1003" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2066,12 +2065,12 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1007" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2079,12 +2078,12 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1008" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2092,13 +2091,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1009" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2106,12 +2105,12 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1101" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2119,13 +2118,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1102" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2133,13 +2132,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf - + If TOPPING2 = "add-show-1103" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2147,12 +2146,12 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1104" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2160,13 +2159,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf - + If TOPPING2 = "add-show-1105" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2174,13 +2173,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1106" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2188,13 +2187,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1107" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2202,13 +2201,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1108" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2216,17 +2215,17 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If ShotCoffeePremium = "Enable" Then Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID2price2Conv Var text_price_topping = toppingID2price2Conv + ")" - Var text_price_topping = "(+" + text_price_topping + Var text_price_topping = "(+" + text_price_topping EndIf @@ -2238,7 +2237,7 @@ If toppingID2Default = "" Then Var CustomCoffeeQuantityState[1] = "PressForever" Else - + If toppingID2index1 = toppingID2Default Then Var CurrentCoffeeLevelId = toppingID2index1 Var CustomCoffeeQuantityState[0] = "PressForever" @@ -2297,26 +2296,26 @@ Var ShowCollagenOnly = "Invisible" EndIf - EndIf + EndIf ;topping_price_refresh = 0 - + If MenuCodeName1 = "OatMilk" Then Var OatMilkToppingEnable = "Enable" - + ;SubMenuPrice1 ignore. Fix by xml - Var OatMilkPrice = "(+5)" + Var OatMilkPrice = "(+5)" If MenuCodeName1_State = "Enable" Then Var OatMilkEnable = "Enable" EndIf EndIf - + SAVELOG ToppingGotoPayment If ToppingGotoPayment = "true" Then Topping "Select" SelectDrink ; Pack - + Topping "Pack" ExtendDataCurr Var Seeker.ExtendDataCurr = ExtendDataCurr @@ -2335,8 +2334,8 @@ EndIf EndIf - - + + If RoadShow = "true" Then Var PriceShowValue = "Free" Var ModeFreeEnable = 1 @@ -2377,8 +2376,8 @@ ;Var BugFlag = 1 If CartUpdate = "true" Then Var CartUpdate = "-" - - + + If CART_COUNT = 3 Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml" @@ -2388,7 +2387,7 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf @@ -2416,14 +2415,14 @@ 374 399 - eval( + eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf -) - +) + "ROOT/taobin_project/image/topping2/blender_icon.png" @@ -2470,7 +2469,7 @@ ; ;- FRAME SCORELLL ; zone scroll - + 52 881 1080 @@ -2480,12 +2479,12 @@ 1 ; Select drink type - + ; show_select_type 988 162 20 - show_select_type + show_select_type Var( DirImage + "/drink_select_type.png" ) @@ -2505,9 +2504,9 @@ Var( DirImage + "/bt_hot_selected.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + Var SelectDrinkType = 1 - + SAVELOG "Press hot" Var hot_button_state = "PressForever" @@ -2540,7 +2539,7 @@ Var high_light_drink_type = "Invisible" - + @@ -2560,9 +2559,9 @@ Var( DirImage + img_cold_sel ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + Var SelectDrinkType = 1 - + SAVELOG "Press cold" Var cold_button_state = "PressForever" @@ -2586,12 +2585,12 @@ Var blend_button_state = "Enable" EndIf EndIf - + Var BugFlag = 0 Var topping_price_refresh = 0 Topping "Load" PD_CODE2 - + @@ -2610,8 +2609,8 @@ Var( DirImage + img_smth_sel ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - - + + SAVELOG "Press blend" Var SelectDrinkType = 1 @@ -2641,7 +2640,7 @@ Var topping_price_refresh = 0 Topping "Load" PD_CODE3 - + @@ -2731,7 +2730,7 @@ EndIf EndIf ) - + ; sugar layout "Enable" @@ -2751,7 +2750,7 @@ Var( DirImage + "/bu_sugarlevel1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -2761,7 +2760,7 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -2803,7 +2802,7 @@ Var( DirImage + "/bu_sugarlevel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -2873,7 +2872,7 @@ Var( DirImage + "/bu_sugarlevel3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -2902,7 +2901,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" @@ -2940,7 +2939,7 @@ Var( DirImage + "/bu_sugarlevel4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -2969,7 +2968,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" @@ -3023,7 +3022,7 @@ Var( DirImage + "/bu_sugarlevel5.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR5" If SelectDrinkType = 0 Then @@ -3052,7 +3051,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" @@ -3106,7 +3105,7 @@ Var( DirImage + "/bu_sugarlevel6.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR6" If SelectDrinkType = 0 Then @@ -3135,7 +3134,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" @@ -3213,7 +3212,7 @@ EndIf EndIf ) - + ; sugar layout BGSugarHotHealthy @@ -3232,7 +3231,7 @@ Var( DirImage + "/bp_hot_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -3242,7 +3241,7 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -3261,7 +3260,7 @@ Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - + Var UserSeletedSugar = 1 EndIf @@ -3283,7 +3282,7 @@ Var( DirImage + "/bp_hot_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -3312,7 +3311,7 @@ Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - + ;Var UserSeletedSugar = 1 EndIf @@ -3331,7 +3330,7 @@ Var( DirImage + "/bp_hot_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -3376,7 +3375,7 @@ Var( DirImage + "/bp_hot_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -3446,7 +3445,7 @@ EndIf EndIf ) - + ; sugar layout BGSugarColdHealthy @@ -3465,7 +3464,7 @@ Var( DirImage + "/bp_cold_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -3475,7 +3474,7 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -3516,7 +3515,7 @@ Var( DirImage + "/bp_cold_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -3563,7 +3562,7 @@ Var( DirImage + "/bp_cold_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -3607,7 +3606,7 @@ Var( DirImage + "/bp_cold_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -3698,9 +3697,9 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarNormalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" @@ -3708,7 +3707,7 @@ Refresh Else If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Enable" EndIf @@ -3736,13 +3735,13 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarZeroCalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" - + Refresh Else Var SugarNormalCheck = "Enable" @@ -3779,19 +3778,19 @@ Var( DirImage + "/bu_sugarlevel1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" - + Refresh Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -3809,12 +3808,12 @@ Var topping1 = toppingID1index1 EndIf - + Var UserSeletedSugar = 1 Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -3842,7 +3841,7 @@ Var( DirImage + "/bu_sugarlevel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -3883,7 +3882,7 @@ Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -3925,7 +3924,7 @@ Var( DirImage + "/bu_sugarlevel3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -3954,7 +3953,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" @@ -3973,7 +3972,7 @@ Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -3987,7 +3986,7 @@ EndIf EndIf EndIf - + Var UserSeletedSugar = 1 EndIf @@ -4006,7 +4005,7 @@ Var( DirImage + "/bu_sugarlevel4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -4035,7 +4034,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" @@ -4062,7 +4061,7 @@ Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -4085,7 +4084,7 @@ EndIf EndIf - + Var UserSeletedSugar = 1 EndIf @@ -4105,7 +4104,7 @@ Var( DirImage + "/bu_sugarlevel5.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR5" If SelectDrinkType = 0 Then @@ -4134,7 +4133,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" @@ -4168,13 +4167,13 @@ Var topping1 = toppingID1index3 EndIf - + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf - + Var UserSeletedSugar = 1 EndIf @@ -4193,7 +4192,7 @@ Var( DirImage + "/bu_sugarlevel6.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR6" If SelectDrinkType = 0 Then @@ -4222,7 +4221,7 @@ If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" @@ -4310,9 +4309,9 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarNormalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" @@ -4321,7 +4320,7 @@ Else If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Enable" EndIf @@ -4335,7 +4334,7 @@ Function 2 EndIf - + @@ -4351,9 +4350,9 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarZeroCalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" @@ -4392,7 +4391,7 @@ Var( DirImage + "/bp_hot_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -4403,7 +4402,7 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -4422,7 +4421,7 @@ Var SugarNormalCheck = "PressForever" If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -4432,9 +4431,9 @@ DEBUGVAR topping1 - - + + @@ -4447,7 +4446,7 @@ Var( DirImage + "/bp_hot_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -4498,7 +4497,7 @@ Var( DirImage + "/bp_hot_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -4520,10 +4519,10 @@ EndIf - + Var topping1 = toppingID1index3 EndIf - + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then @@ -4548,7 +4547,7 @@ Var( DirImage + "/bp_hot_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -4623,9 +4622,9 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarNormalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" @@ -4633,10 +4632,10 @@ Refresh Else - + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Enable" EndIf @@ -4665,13 +4664,13 @@ Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarZeroCalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" - + Refresh Else Var SugarNormalCheck = "Enable" @@ -4684,7 +4683,7 @@ Function 2 EndIf - + @@ -4708,7 +4707,7 @@ Var( DirImage + "/bp_cold_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -4720,7 +4719,7 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" @@ -4739,7 +4738,7 @@ Var SugarNormalCheck = "PressForever" If SugarZeroCalCheck = "Disable2" Then - + Else Var SugarZeroCalCheck = "Disable" EndIf @@ -4750,9 +4749,9 @@ DEBUGVAR topping1 - - + + @@ -4765,7 +4764,7 @@ Var( DirImage + "/bp_cold_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType DEBUGVAR UserSeletedSugar @@ -4815,7 +4814,7 @@ Var( DirImage + "/bp_cold_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -4839,8 +4838,8 @@ Var topping1 = toppingID1index3 EndIf - - + + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" @@ -4863,7 +4862,7 @@ Var( DirImage + "/bp_cold_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -4887,13 +4886,13 @@ Var topping1 = toppingID1index4 EndIf - + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf - + ;Var UserSeletedSugar = 1 EndIf @@ -4921,15 +4920,15 @@ ; ; ; -; -;-BEGIN -; +; +;-BEGIN +; ;-BEGIN Lid straw 986 240 20 - ShowLidStraw + ShowLidStraw bg_strawlid @@ -4943,10 +4942,10 @@ "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" - + SAVELOG "Click straw cb" If StrawState = "Press" Then - Var StrawState = "Enable" + Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 @@ -4968,10 +4967,10 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + SAVELOG "Click straw cb" If StrawState = "Press" Then - Var StrawState = "Enable" + Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 @@ -4996,20 +4995,20 @@ "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) - + SAVELOG "Click LID pic" If LidState = "Press" Then - Var LidState = "Enable" + Var LidState = "Enable" Var Seeker.thankLidFlag = 0 - + Else Var LidState = "Press" Var Seeker.thankLidFlag = 1 - + EndIf - + DEBUGVAR SugarState1 Refresh @@ -5025,10 +5024,10 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + SAVELOG "Click LID cb" If LidState = "Press" Then - Var LidState = "Enable" + Var LidState = "Enable" Var Seeker.thankLidFlag = 0 @@ -5100,9 +5099,9 @@ "ROOT/taobin_project/image/topping2/bp_cereal.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " OatMilkEnable " - + If OatMilkEnable = "Press" Then Var OatMilkEnable = "Enable" @@ -5112,11 +5111,11 @@ Function 2 - + -; +; -; +; -; +; -; +; @@ -6279,7 +6278,7 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;Var Seeker = "curr" @@ -6287,27 +6286,27 @@ Var StatementCheckMenu = "ProductCodeCheck=" + UserSelectProductCode - + __CMD "statement" 0 StatementCheckMenu "-" ;If HalfPrice = "true" Then ; ; Discount 50 ; DEBUGVAR HalfPrice ; __CMD "invoke-discount-50" UserSelectProductCode "-" "-" - ; + ; ;Else - ; Var PriceDrink = PriceDrinkTmp + ; Var PriceDrink = PriceDrinkTmp ;EndIf DEBUGVAR PriceDrinkTmp - + ;Var Seeker.PriceDrink = PriceDrinkTmp - + Var PriceDrink = PriceDrinkTmp Var PromotionPriceDrink = PriceDrink DEBUGVAR PriceDrink - + SAVELOG "USER press next ( topping ) - new" If SugarState1 = "PressForever" Then @@ -6398,7 +6397,7 @@ Else Var topping7 = 0 EndIf - + If showCoffeeQuantity = "Enable" Then If CustomCoffeeQuantityState[0] = "PressForever" Then Var topping2 = toppingID2index1 @@ -6508,14 +6507,14 @@ If StrawState = "Press" Then - Machine StrawOrder + Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then - Machine LidOrder + Machine LidOrder Var LedLidBlink = "true" - Var bg_lidProblem_ST = "Enable" + Var bg_lidProblem_ST = "Enable" Else If LidState = "Disable" Then Var bg_lidProblem_ST = "Disable" @@ -6523,37 +6522,37 @@ Var bg_lidProblem_ST = "Invisible" EndIf EndIf - + If SelectDrinkType = 0 Then - + Else Var StrawState = "Enable" Var LidState = "Enable" EndIf - ; - + ; + DEBUGVAR PromotionIDCurrentOrder - - + + Var SelectDrink = UserSelectProductCode - + Var Seeker.selected_a_drink = UserSelectProductCode DEBUGVAR Seeker.selected_a_drink - ; Set drink + ; Set drink If Seeker = "curr" Then - + ;include="ROOT/taobin_project/inc/select_drink_current.inc" - + Else Topping "SetNextOrder" UserSelectProductCode Topping "__select" UserSelectProductCode - ; Set option toppinng and pack + ; Set option toppinng and pack Topping "__select1-id" topping1 Topping "__select2-id" topping2 Topping "__select3-id" topping3 @@ -6582,7 +6581,7 @@ EndIf DEBUGVAR Seeker - DEBUGVAR Seeker.ExtendData + DEBUGVAR Seeker.ExtendData Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname @@ -6591,7 +6590,7 @@ DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType - + GetLongTimeInMinute LastTimeClickOrder If CART_COUNT = 0 Then @@ -6599,7 +6598,7 @@ Else - + If SelectDrinkType = 1 Then EndIf EndIf @@ -6608,7 +6607,7 @@ Var high_light_drink_type = "Enable" EndIf Else - + If CART1_STATUS = "EMPTY" Then Cart "AddMenuID" 1 Else @@ -6628,7 +6627,7 @@ Var LastTimeClickOrder = 0 - + @@ -6685,16 +6684,16 @@ Var( DirImage + "/bp_price5baht.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;Var Seeker = "curr" - + DEBUGVAR PriceDrinkTmp - + ;Var Seeker.PriceDrink = PriceDrinkTmp - + Var PriceDrink = PriceDrinkTmp - + SAVELOG "USER press next ( topping ) - new" If SugarState1 = "PressForever" Then @@ -6788,14 +6787,14 @@ If StrawState = "Press" Then - Machine StrawOrder + Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then - Machine LidOrder + Machine LidOrder Var LedLidBlink = "true" - Var bg_lidProblem_ST = "Enable" + Var bg_lidProblem_ST = "Enable" Else If LidState = "Disable" Then Var bg_lidProblem_ST = "Disable" @@ -6803,29 +6802,29 @@ Var bg_lidProblem_ST = "Invisible" EndIf EndIf - + If SelectDrinkType = 0 Then - + Else Var StrawState = "Enable" Var LidState = "Enable" EndIf - ; - + ; + Var PromotionIDCurrentOrder = 0 Var SelectDrink = UserSelectProductCode - + Var Seeker.selected_a_drink = UserSelectProductCode DEBUGVAR Seeker.selected_a_drink - ; Set drink + ; Set drink If Seeker = "curr" Then Topping "Select" UserSelectProductCode - ; Set option toppinng and pack + ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 @@ -6839,7 +6838,7 @@ Topping "__select" UserSelectProductCode - ; Set option toppinng and pack + ; Set option toppinng and pack Topping "__select1-id" topping1 Topping "__select2-id" topping2 Topping "__select3-id" topping3 @@ -6857,7 +6856,7 @@ EndIf DEBUGVAR Seeker - DEBUGVAR Seeker.ExtendData + DEBUGVAR Seeker.ExtendData Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname @@ -6866,14 +6865,14 @@ DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType - + GetLongTimeInMinute LastTimeClickOrder If CART_COUNT = 0 Then If UserSelectProductCode = "-" Then Else - + If SelectDrinkType = 1 Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_identity_verification.xml" @@ -6884,7 +6883,7 @@ Var high_light_drink_type = "Enable" EndIf Else - + If CART1_STATUS = "EMPTY" Then Cart "AddMenuID" 1 Else @@ -6903,8 +6902,8 @@ EndIf Var LastTimeClickOrder = 0 - - + + @@ -6919,7 +6918,7 @@ ; ; ; -; +; @@ -7887,11 +7886,11 @@ 36 1080 0xFF0000 - eval( - If show_eng = "true" Then - Var return = "Please choose drink type" + eval( + If show_eng = "true" Then + Var return = "Please choose drink type" Else - Var return ="โปรดเลือกประเภทเครื่องดื่ม" + Var return ="โปรดเลือกประเภทเครื่องดื่ม" EndIf ) @@ -7923,7 +7922,7 @@ Topping "Select" UserSelectProductCode - ; Set option toppinng and pack + ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3