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

- add led v4 animations - extend timeout page test color - add elock

Browse source 
button for newui
This commit is contained in:
Pakin 2025-07-03 14:55:55 +07:00
parent 3b1cda6b64
commit 05543413ec
26 changed files with 705 additions and 406 deletions
Download patch file Download diff file Expand all files Collapse all files

10
xml/page_NewBrewing3.xml
View file

@ -644,7 +644,7 @@
__CMD "SetErrorCodeHandleByXML" 1031 "-" "-"
Var IndexCharWhenTImeZero = 0
Var ArrayCharWhenTImeZero[0] = "- "
Var ArrayCharWhenTImeZero[1] = "\ "
Var ArrayCharWhenTImeZero[2] = "| "
@ -851,6 +851,10 @@
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
If BREW_CNT = 0 Then
If CountUpWhenBREW_CNT > 56 Then
Var CountUpWhenBREW_CNT = 0
@ -865,9 +869,9 @@
Var CountUpWhenBREW_CNT = CountUpWhenBREW_CNT + 1
Var ShowCountDownBrewing = ArrayCharWhenTImeZero[IndexCharWhenTImeZero]
Var IndexCharWhenTImeZero = IndexCharWhenTImeZero + 1
If IndexCharWhenTImeZero > 3 Then
Var IndexCharWhenTImeZero = 0

6
xml/page_NewBrewing3Conti.xml
View file

@ -308,10 +308,14 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
If CountDownBrewing = 0 Then
Var ShowCountDownBrewing = ArrayCharWhenTImeZero[IndexCharWhenTImeZero]
Var IndexCharWhenTImeZero = IndexCharWhenTImeZero + 1
If IndexCharWhenTImeZero > 3 Then
Var IndexCharWhenTImeZero = 0

35
xml/page_board.xml
View file

@ -195,7 +195,11 @@
CacheVarStr "put" SpiralOnline
EndIf
If FrontDoorVersionInt = "" Then
__CMD "mcu-version" "-" "-" "-"
EndIf
If BoxID = 105005 Then
Var XMLProfile = "Plus5AndInclude20Percent-taobin_notopup-taobin_nopro-taobin_notopping"
Var XMLProfile = "DiscountFromBO-MachineShedule"
@ -1145,7 +1149,7 @@
Var LanguageShow = "MTC"
SetLanguage "MTC"
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"
@ -1863,6 +1867,15 @@
Var buttonRemoveCupOnArm = "Invisible"
Var CountDownFailErrorHappendClear = 8
If FrontDoorVersionInt > 19999 Then
LEDv2 LedV4All On 100 20 0 255 10
SAVELOG "LEDv4.SlowBrinkVertical"
; turn-off-horizontal
TRY "ROOT/taobin_project/xml/process/temp_ledv4_offall_horizontal.ev"
EndIf
</EventOpen>
<EventActionOk>
@ -2638,9 +2651,19 @@ PRICE "Reset" "-"
EndIf
Else
If InternationalEnable = 1 Then
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/temp_ledv4_blinkall_horizontal.ev"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
Else
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/temp_ledv4_blinkall_horizontal.ev"
EndIf
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
EndIf
@ -2745,9 +2768,17 @@ PRICE "Reset" "-"
EndIf
Else
If InternationalEnable = 1 Then
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/temp_ledv4_blinkall_horizontal.ev"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
Else
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/temp_ledv4_blinkall_horizontal.ev"
EndIf
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
EndIf
EndIf

32
xml/page_brewing3.xml
View file

@ -55,15 +55,15 @@
Var DirImageDoing = "ROOT/taobin_project/image/page_doing"
;inter-image
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImageDoing = "ROOT/taobin_project/inter/hkg/image/page_doing/"
EndIf
@ -133,8 +133,8 @@
Var XStraw = 142
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
;for test
Var IMG_CNT = DirImageDoing + "/img2_en.png"
;Var IMG_CNT = DirImageDoing + "/img2_mmr.png"
@ -161,7 +161,7 @@
Var XStraw = 142
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
;for test
Var IMG_CNT = DirImageDoing + "/img2_en.png"
@ -335,12 +335,12 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
EndIf
@ -565,11 +565,11 @@
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
@ -599,10 +599,10 @@
Else
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
@ -901,10 +901,10 @@
PlayLong PlaySoundLag
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3"
EndIf
EndIf
@ -931,6 +931,10 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
LEDv2 LED_POS On 100 20 0 LED_TIMES LED_DIM_TIMES
EndIf
DEBUGVAR EnableDoubleCupNoError
DEBUGVAR HURR_FOREVER
If EnableDoubleCupNoError = 1 Then

330
xml/page_brewing3Conti.xml
View file

@ -6,12 +6,12 @@
<Volume> SoundVolume </Volume>
<EventOpen>
RootLayoutVisible 3 "hide"
Var waitAckPay = 0
Var waitAckPay = 0
Var ChangeFlag = 0
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml"
Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml"
EndIf
@ -19,7 +19,7 @@
If CountryName = "Thailand" Then
;do not thing
Else
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
Open Brewing3ContiXMLFile
@ -39,7 +39,7 @@
;Var PayCredit = 0
;inter-image
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"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
@ -49,13 +49,13 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_msc"
EndIf
@ -85,12 +85,12 @@
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrew = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Enable"
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
If Seeker.thankLidFlag = 1 Then
@ -98,8 +98,8 @@
Var LidStateX = "Invisible"
EndIf
Var TimeoutWaitPay = 10
Var TimeoutWaitPay = 10
Var PayReference = ""
Var PayType = "newpay"
Var MachineState_Result = 0
@ -122,11 +122,11 @@
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR Seeker.CodeNumber
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.xml
Var countClick2 = 0
@ -136,7 +136,7 @@
Var AddData = 0
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinMember = "" Then
@ -146,12 +146,12 @@
Var VendingTSIDTmp1 = VendingTSIDTmp
Else
Var VendingTSIDTmp1 = ""
EndIf
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSIDTmp1
@ -165,13 +165,13 @@
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var VendingTSIDTmp1 = ""
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
@ -218,12 +218,12 @@
Var LidStateX = "Invisible"
If Seeker.CreditCard = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If MachineState_Result > 0 Then
Var EnableTopupCreditBetweenBrew = "Invisible"
If MachineState_Result > 0 Then
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
Var CreditCardVoid = 0
@ -238,9 +238,9 @@
If CreditCardVoid = 1 Then
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
@ -253,11 +253,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 + "/"
@ -279,31 +279,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
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
@ -316,11 +316,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 + "/"
@ -342,23 +342,23 @@
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
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var Timeout = Timeout + 1
@ -384,23 +384,29 @@
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
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
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
LEDv2 LED_POS On 100 20 0 LED_TIMES LED_DIM_TIMES
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 Timeout > 480 Then
Var MachineState_Result = 2
@ -410,25 +416,25 @@
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 1 Then
If waitAckPay = 1 Then
If Timeout > 60 Then
Var VendingTSIDTmp1 = ""
SAVELOG "waitAckPay = 1 tineout > 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 > TimeoutWaitPay 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"
@ -436,11 +442,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 + "/"
@ -460,9 +466,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
@ -491,7 +497,7 @@
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -507,18 +513,18 @@
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail2 = Seeker.PayDetail2
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
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -547,7 +553,7 @@
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -556,23 +562,23 @@
;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 = ""
Var PayDetail2 = Seeker.PayDetail2
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
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -596,7 +602,7 @@
EndIf
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
@ -609,18 +615,18 @@
Var DEE = PayDetail
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
Var ActionOKCase = 1
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
Var TimeoutWaitPay = 45
Var TimeoutWaitPay = 45
Var Timeout = 5
@ -637,13 +643,13 @@
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 0
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
Var ProcessText = ""
Var ProcessText = ""
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
@ -653,7 +659,7 @@
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
@ -681,18 +687,18 @@
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 = "C48"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
@ -715,7 +721,7 @@
Var SessionID2 = SessionID2 + "/"
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
@ -723,26 +729,26 @@
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"
@ -754,12 +760,12 @@
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
EndIf
EndIf
__CMD "clear-stock-data" 0 "-" "-"
@ -768,8 +774,8 @@
If waitAckPay = 0 Then
SAVELOG "waitAckPay = 0 Timeout"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
@ -797,18 +803,18 @@
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
@ -818,9 +824,9 @@
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
@ -835,9 +841,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
@ -845,7 +851,7 @@
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
@ -859,23 +865,23 @@
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
@ -910,13 +916,13 @@
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
Else
Var EnableSelectMenuBetweenBrewBlink = "Enable"
EndIf
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
@ -927,7 +933,7 @@
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
@ -937,9 +943,9 @@
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
@ -988,7 +994,7 @@
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
@ -997,7 +1003,7 @@
EndIf
If IgnoreNetCore = "true" Then
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
SAVELOG "CountDownBrewing = 0"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
@ -1023,24 +1029,24 @@
Var ButtonGamePressToPlayState = "Invisible"
Var Game01Enable = 0
EndIf
;include="ROOT/taobin_project/inc/timeout_lid_and_straw_step.inc"
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
<EventMachine>
</EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
@ -1133,9 +1139,9 @@
<State>EnableSelectMenuBetweenBrew</State>
<Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress>
<EventClick>
<EventClick>
If MachineState_Result = 0 Then
SAVELOG "User click next button"
Var Seeker = "next"
@ -1143,9 +1149,9 @@
CoinPause
Var PayCredit = 0
Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</EventClick>
</Button>
<Button>
@ -1154,7 +1160,7 @@
<State>EnableTopupCreditBetweenBrew</State>
<Filename> topup_credit_bn </Filename>
<FilenamePress> topup_credit_bp </FilenamePress>
<EventClick>
<EventClick>
If MachineState_Result = 0 Then
If NextOrder = "true" Then
@ -1172,20 +1178,20 @@
CoinPause
Var PayCredit = 0
EndIf
SAVELOG "User click topup-credit button"
Var Seeker = "topupCredit"
If TelephoneNumber = "" Then
Open "ROOT/taobin_project/xml/page_topup_credit.xml"
Else
If TelephoneNumber = "" Then
Open "ROOT/taobin_project/xml/page_topup_credit.xml"
Else
Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml"
EndIf
EndIf
</EventClick>
</EventClick>
</Button>
@ -1203,7 +1209,7 @@
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<EventClick>
DEBUGVAR Game01Enable
@ -1221,9 +1227,9 @@
<Y> 500 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
<EventClick>
</EventClick>
</EventClick>
</Button>
; straw left
@ -1235,14 +1241,14 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
@ -1256,10 +1262,10 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
@ -1279,18 +1285,18 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
DEBUGVAR SugarState1
Refresh
@ -1308,19 +1314,19 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
Refresh
EndIf
</EventClick>
@ -1333,7 +1339,7 @@
<State> ButtonGameCountDownState </State>
<Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress>
<EventClick>
<EventClick>
</EventClick>
<Text>

42
xml/page_collect_point_1-2.xml
View file

@ -8,27 +8,27 @@
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If PromotionIDCurrentOrder = 2 Then
Var img_popup6 = "/img_popupOreo1.png"
EndIf
If PromotionIDCurrentOrder = 3 Then
Var img_popup6 = "/img_popupSongkarn1.png"
@ -37,29 +37,33 @@
If PromotionIDCurrentOrder = 5 Then
Var img_popup6 = "/img_popupPepsi1.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
DEBUGVAR Timeout
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_collect_point_1-3.xml"
EndIf
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
@ -88,13 +92,13 @@
<FilenameDisable> Var( DirImage + "/bd_confirm.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Open "ROOT/taobin_project/xml/page_collect_point_1-3.xml"
</EventClick>
</Button>
@ -132,10 +136,10 @@
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then

175
xml/page_collect_point_1-3.xml
View file

@ -18,7 +18,7 @@
Var TimeOutPlay = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -51,7 +51,7 @@
Var CampaingRef1 = ""
Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2
@ -60,14 +60,14 @@
Var ParamCP = ParamCP + CampaingRef1
If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then
If show_eng = "true" Then
If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -78,7 +78,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -90,13 +90,13 @@
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
@ -106,7 +106,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -116,13 +116,13 @@
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
@ -133,7 +133,7 @@
Var text_x = "/text_4.png"
EndIf
If PromotionIDCurrentOrder = 3 Then
Var text_x = "/text_3.png"
@ -146,24 +146,27 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then
Var ShowTextNumber = "Invisible"
Else
; Add
Var TimeOutPlay = TimeOutPlay + 1
If TimeOutPlay > 10 Then
Var TimeOutPlay = 0
If show_eng = "true" Then
If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -172,18 +175,18 @@
;
EndIf
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 30 Then
SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If Timeout = 18 Then
@ -201,7 +204,7 @@
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
@ -229,13 +232,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -245,9 +248,9 @@
TimerReset
Refresh
</EventClick>
</Button>
@ -259,13 +262,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -284,13 +287,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -309,13 +312,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -334,13 +337,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -359,13 +362,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -384,13 +387,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -409,13 +412,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -434,13 +437,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -449,7 +452,7 @@
TimerReset
Refresh
</EventClick>
</Button>
@ -460,13 +463,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -485,24 +488,24 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -526,13 +529,13 @@
<FilenamePress> Var( DirImage + "/bp_negative2.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
@ -547,18 +550,18 @@
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
If Tel_Confirm_Flag = 1 Then
Var Tel2DFlag = 0
TRY "ROOT/taobin_project/xml/verify_number.ev"
@ -569,7 +572,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -580,19 +583,19 @@
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
If show_eng = "true" Then
GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
@ -605,7 +608,7 @@
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
@ -676,11 +679,11 @@
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then

4
xml/page_collect_point_1.xml
View file

@ -253,6 +253,10 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then

4
xml/page_collect_point_2.xml
View file

@ -76,6 +76,10 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1
If Timeout > 30 Then

115
xml/page_collect_point_3.xml
View file

@ -35,7 +35,7 @@
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -53,13 +53,13 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1580
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1570
@ -69,7 +69,7 @@
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
@ -77,11 +77,11 @@
Var CoffeePointTmp = 30
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 30
Var pImageStr = "/taobinPoint.png"
Var pImageStr = "/taobinPoint.png"
Var pImageStr = "ROOT/taobin_project/image/display_point" + pImageStr
@ -97,7 +97,7 @@
Var TaobinExpireDay = ""
@ -105,14 +105,14 @@
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
@ -179,7 +179,7 @@
Var TaobinExpireYear = TaobinExpireYear + 0
Else
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
@ -248,7 +248,7 @@
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
@ -389,17 +389,17 @@
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If TaobinLevel = "1" Then
Var PointMaskState = "Enable"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
Var TaobinLevelDesc3 = "You have coupons "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
@ -434,7 +434,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
@ -455,7 +455,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -519,7 +519,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -528,7 +528,7 @@
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
@ -561,7 +561,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ပျံသန်းသောလိပ်အဆင့်အထိ။ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "ပိုစုဆောင်းပါ။ " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " လိပ်ခွံ "
@ -582,7 +582,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ဆရာလိပ်အဆင့်အထိ။ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -651,7 +651,7 @@
EndIf
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
@ -907,31 +907,31 @@
Var CheckCouponState = "Disable"
EndIf
Var PointEndDate = ""
GetDateEndOfMonth PointEndDate
DEBUGVAR PointEndDate
Var TextEndDateX = 172
Var xPointEndDate = 570
If show_eng = "true" Then
If show_eng = "true" Then
Var xPointEndDate = 618
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 490
Var TextEndDateX = 190
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var xPointEndDate = 618
EndIf
Var Point2XState = "Invisible"
Var Point2XImage = ""
If Point2X = 1 Then
Var Point2XState = "Enable"
If Point2X = 1 Then
Var Point2XState = "Enable"
If Seeker.CampaignPayChanel = "kbank" Then
Var Point2XImage = "/text9.png"
EndIf
@ -941,7 +941,7 @@
If Seeker.CampaignPayChanel = "dolfin" Then
Var Point2XImage = "/text11.png"
EndIf
EndIf
;inter-from-consent
@ -952,29 +952,33 @@
;inter-from-consent
If CountryName = "Indonesia" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
;inter-from-consent
If CountryName = "Australia" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
;inter-from-consent
If CountryName = "Singapore" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1
If Timeout > 5 Then
@ -983,36 +987,36 @@
If CoffeePoint > 29 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Var CouponPage = 1
Var CouponInfo1 = Ext1a
Var CouponInfo2 = Ext1b
Var CouponInfo3 = Ext1c
@ -1023,14 +1027,14 @@
Var CouponInfo8 = Ext1h
Var CouponInfo9 = Ext1i
Var CouponInfo10 = Ext1j
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2
Var CheckCoupons = 2
Else
If CheckCoupons = 2 Then
If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b
@ -1051,15 +1055,15 @@
Else
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
EndIf
EndIf
</EventActionOk>
@ -1147,10 +1151,10 @@
<FilenamePress> Var( DirImage + "/bp_close.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If CoffeePoint > 29 Then
@ -1158,7 +1162,7 @@
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -1176,7 +1180,7 @@
<FilenameDisable> Var( DirImage + "/bp_check.png" )</FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
@ -1184,7 +1188,7 @@
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 15
Var CheckCoupons = 1
</EventClick>
</Button>
@ -1570,4 +1574,3 @@
</Popup>

22
xml/page_collect_point_3_28.xml
View file

@ -42,12 +42,12 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr/"
Var TextEndDateY = 1570
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc/"
Var TextEndDateY = 1570
EndIf
@ -227,7 +227,7 @@
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
@ -506,7 +506,7 @@
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
@ -539,7 +539,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ပျံသန်းသောလိပ်အဆင့်အထိ။ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "ပိုစုဆောင်းပါ။ " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " လိပ်ခွံ "
@ -560,7 +560,7 @@
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ဆရာလိပ်အဆင့်အထိ။ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
@ -934,15 +934,15 @@
Var xPointEndDate = 575
Var yPointEndDate = 1563
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 520
Var yPointEndDate = 1568
Var xDescEndDate = 265
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var xPointEndDate = 420
Var yPointEndDate = 1563
Var TaobinLevelDesc3X = 410
@ -958,6 +958,10 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1

4
xml/page_collect_point_3_28_lucky_draw_campaign.xml
View file

@ -1057,6 +1057,10 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1

10
xml/page_display_get_free.xml
View file

@ -25,11 +25,11 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr"
EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_msc"
EndIf
@ -94,7 +94,9 @@
Var ShowCountDownBrewing = CountDownBrewing
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
EndIf
Var Timeout = Timeout + 1
If Timeout > 5 Then

5
xml/page_drinkok.xml
View file

@ -318,6 +318,11 @@
Var ShowNameMysteryName = Seeker.shownameMystery
EndIf
If FrontDoorVersionInt > 19999 Then
LEDv4Playlist "reset" "-" "-"
TRY "ROOT/taobin_project/xml/process/temp_ledv4_page_drinkok.ev"
EndIf
</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout>

90
xml/page_test_color.xml
View file

@ -225,6 +225,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If RedButtonState = "Enable" Then
Var RedButtonState = "Press"
@ -264,6 +265,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If BlueButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Press"
@ -301,6 +303,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If OrangeButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -338,6 +341,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If IndigoButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -375,6 +379,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If YellowButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -412,6 +417,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If VioletButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -449,6 +455,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If GreenButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -485,6 +492,7 @@
<Volume> SoundVolume </Volume>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If WhiteButtonState = "Enable" Then
Var RedButtonState = "Enable"
Var BlueButtonState = "Enable"
@ -511,49 +519,6 @@
</EventClick>
</Button>
<Button>
<X> 680 </X>
<Y> LEDv4VerticalY </Y>
<State> LEDv4Toggle[42] </State>
<Filename> bn_toggle_off </Filename>
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
If LEDv4Toggle[42] = "Enable" Then
Var LEDv4Toggle[42] = "Press"
If CurrentColor = "Red" Then
LEDv2 LedV4#142 On 255 0 0 255 0
EndIf
If CurrentColor = "Orange" Then
LEDv2 LedV4#142 On 255 127 0 255 0
EndIf
If CurrentColor = "Yellow" Then
LEDv2 LedV4#142 On 255 255 0 255 0
EndIf
If CurrentColor = "Green" Then
LEDv2 LedV4#142 On 0 255 0 255 0
EndIf
If CurrentColor = "Blue" Then
LEDv2 LedV4#142 On 0 0 255 255 0
EndIf
If CurrentColor = "Indigo" Then
LEDv2 LedV4#142 On 75 0 130 255 0
EndIf
If CurrentColor = "Violet" Then
LEDv2 LedV4#142 On 145 0 211 255 0
EndIf
If CurrentColor = "White" Then
LEDv2 LedV4#142 On 255 255 255 255 0
EndIf
Else
Var LEDv4Toggle[42] = "Enable"
LEDv2 LedV4#142 Off 0 0 0 1 0
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 680 </X>
<Y> LEDv4VerticalY2 </Y>
@ -562,6 +527,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[41] = "Enable" Then
Var LEDv4Toggle[41] = "Press"
If CurrentColor = "Red" Then
@ -605,6 +571,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[40] = "Enable" Then
Var LEDv4Toggle[40] = "Press"
If CurrentColor = "Red" Then
@ -648,6 +615,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[39] = "Enable" Then
Var LEDv4Toggle[39] = "Press"
If CurrentColor = "Red" Then
@ -691,6 +659,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[38] = "Enable" Then
Var LEDv4Toggle[38] = "Press"
If CurrentColor = "Red" Then
@ -734,6 +703,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[37] = "Enable" Then
Var LEDv4Toggle[37] = "Press"
If CurrentColor = "Red" Then
@ -777,6 +747,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[36] = "Enable" Then
Var LEDv4Toggle[36] = "Press"
If CurrentColor = "Red" Then
@ -820,6 +791,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[35] = "Enable" Then
Var LEDv4Toggle[35] = "Press"
If CurrentColor = "Red" Then
@ -863,6 +835,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[34] = "Enable" Then
Var LEDv4Toggle[34] = "Press"
If CurrentColor = "Red" Then
@ -906,6 +879,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[33] = "Enable" Then
Var LEDv4Toggle[33] = "Press"
If CurrentColor = "Red" Then
@ -949,6 +923,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[32] = "Enable" Then
Var LEDv4Toggle[32] = "Press"
If CurrentColor = "Red" Then
@ -992,6 +967,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[31] = "Enable" Then
Var LEDv4Toggle[31] = "Press"
If CurrentColor = "Red" Then
@ -1035,6 +1011,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[30] = "Enable" Then
Var LEDv4Toggle[30] = "Press"
If CurrentColor = "Red" Then
@ -1078,6 +1055,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[29] = "Enable" Then
Var LEDv4Toggle[29] = "Press"
If CurrentColor = "Red" Then
@ -1121,6 +1099,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[28] = "Enable" Then
Var LEDv4Toggle[28] = "Press"
If CurrentColor = "Red" Then
@ -1164,6 +1143,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[27] = "Enable" Then
Var LEDv4Toggle[27] = "Press"
If CurrentColor = "Red" Then
@ -1207,6 +1187,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[26] = "Enable" Then
Var LEDv4Toggle[26] = "Press"
If CurrentColor = "Red" Then
@ -1250,6 +1231,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[25] = "Enable" Then
Var LEDv4Toggle[25] = "Press"
If CurrentColor = "Red" Then
@ -1293,6 +1275,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[24] = "Enable" Then
Var LEDv4Toggle[24] = "Press"
If CurrentColor = "Red" Then
@ -1336,6 +1319,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[23] = "Enable" Then
Var LEDv4Toggle[23] = "Press"
If CurrentColor = "Red" Then
@ -1379,6 +1363,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[22] = "Enable" Then
Var LEDv4Toggle[22] = "Press"
If CurrentColor = "Red" Then
@ -1422,6 +1407,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[21] = "Enable" Then
Var LEDv4Toggle[21] = "Press"
If CurrentColor = "Red" Then
@ -1465,6 +1451,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[20] = "Enable" Then
Var LEDv4Toggle[20] = "Press"
If CurrentColor = "Red" Then
@ -1508,6 +1495,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[19] = "Enable" Then
Var LEDv4Toggle[19] = "Press"
If CurrentColor = "Red" Then
@ -1552,6 +1540,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[18] = "Enable" Then
Var LEDv4Toggle[18] = "Press"
If CurrentColor = "Red" Then
@ -1595,6 +1584,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[17] = "Enable" Then
Var LEDv4Toggle[17] = "Press"
If CurrentColor = "Red" Then
@ -1638,6 +1628,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[16] = "Enable" Then
Var LEDv4Toggle[16] = "Press"
If CurrentColor = "Red" Then
@ -1681,6 +1672,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[15] = "Enable" Then
Var LEDv4Toggle[15] = "Press"
If CurrentColor = "Red" Then
@ -1725,6 +1717,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[14] = "Enable" Then
Var LEDv4Toggle[14] = "Press"
If CurrentColor = "Red" Then
@ -1772,6 +1765,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[3] = "Enable" Then
Var LEDv4Toggle[3] = "Press"
If CurrentColor = "Red" Then
@ -1815,6 +1809,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[4] = "Enable" Then
Var LEDv4Toggle[4] = "Press"
If CurrentColor = "Red" Then
@ -1858,6 +1853,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[5] = "Enable" Then
Var LEDv4Toggle[5] = "Press"
If CurrentColor = "Red" Then
@ -1901,6 +1897,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[6] = "Enable" Then
Var LEDv4Toggle[6] = "Press"
If CurrentColor = "Red" Then
@ -1944,6 +1941,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[7] = "Enable" Then
Var LEDv4Toggle[7] = "Press"
If CurrentColor = "Red" Then
@ -1987,6 +1985,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[8] = "Enable" Then
Var LEDv4Toggle[8] = "Press"
If CurrentColor = "Red" Then
@ -2030,6 +2029,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[9] = "Enable" Then
Var LEDv4Toggle[9] = "Press"
If CurrentColor = "Red" Then
@ -2073,6 +2073,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[10] = "Enable" Then
Var LEDv4Toggle[10] = "Press"
If CurrentColor = "Red" Then
@ -2116,6 +2117,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[11] = "Enable" Then
Var LEDv4Toggle[11] = "Press"
If CurrentColor = "Red" Then
@ -2159,6 +2161,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[12] = "Enable" Then
Var LEDv4Toggle[12] = "Press"
If CurrentColor = "Red" Then
@ -2202,6 +2205,7 @@
<FilenamePress> bn_toggle_on </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var Timeout = 0
If LEDv4Toggle[13] = "Enable" Then
Var LEDv4Toggle[13] = "Press"
If CurrentColor = "Red" Then

11
xml/page_thankyou.xml
View file

@ -206,12 +206,23 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/script_thankyou.ev"
SAVELOG "============================================== Thankyou.xml ====================================="
Var TimeoutThankyou = 0
Var StartLEDBrewingAnimation = 0
Var LEDv4CountDownValue = 9999999
If FrontDoorVersionInt > 19999 Then
TRY "ROOT/taobin_project/xml/process/temp_ledv4_page_thankyou.ev"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Var TimeoutThankyou = TimeoutThankyou + 1
If TimeoutThankyou = TimeoutToNext Then

8
xml/page_thankyouConti.xml
View file

@ -16,6 +16,9 @@
Var CountUpBrewing = 0
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
@ -343,6 +346,9 @@
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Var MachineState_Result = 0
If FailErrorHappend = 1 Then
@ -409,6 +415,8 @@
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
;include=ROOT/taobin_project/inc/remove_cup_step.inc

7
xml/page_thankyouMore.xml
View file

@ -12,6 +12,8 @@
Var CountUpBrewing = 0
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
@ -133,11 +135,16 @@
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
TRY "ROOT/taobin_project/xml/process/ledv4_process.ev"
Refresh
TimerReset
</EventTimeout>

43
xml/process/ledv4_process.ev Normal file
View file

@ -0,0 +1,43 @@
DEBUGVAR FrontDoorVersionInt
If FrontDoorVersionInt > 19999 Then
DEBUGVAR StartLEDBrewingAnimation
If StartLEDBrewingAnimation = 0 Then
LEDv4Playlist "new" Seeker.selected_a_drink CountDownBrewing
Var StartLEDBrewingAnimation = 1
EndIf
DEBUGVAR StartLEDBrewingAnimation
DEBUGVAR LEDv4CountDownValue
DEBUGVAR LEDv4PlaylistStatus
If CountDownBrewing < LEDv4CountDownValue Then
If LEDv4PlaylistStatus = "Ready" Then
LEDv4Playlist "play" "-" "-"
Else
;
If LEDv4PlaylistStatus = "Running" Then
Else
LEDv4Playlist "pause" "processEv" "_notReady"
EndIf
EndIf
Else
If CountDownBrewing = LEDv4CountDownValue Then
If LEDv4PlaylistStatus = "Ready" Then
LEDv4Playlist "play" "-" "-"
Else
If LEDv4PlaylistStatus = "Running" Then
Else
LEDv4Playlist "pause" "processEv" "_notReady"
EndIf
EndIf
Else
; pause
LEDv4Playlist "pause" processEv" "_GetCntDownExcMax"
EndIf
EndIf
EndIf

16
xml/process/temp_ledv4_blinkall_horizontal.ev Normal file
View file

@ -0,0 +1,16 @@
If FrontDoorVersionInt > 19999 Then
LEDv2 LedV4#103 On 200 20 0 255 10
LEDv2 LedV4#104 On 200 20 0 255 10
LEDv2 LedV4#105 On 200 20 0 255 10
LEDv2 LedV4#106 On 200 20 0 255 10
LEDv2 LedV4#107 On 200 20 0 255 10
LEDv2 LedV4#108 On 200 20 0 255 10
LEDv2 LedV4#109 On 200 20 0 255 10
LEDv2 LedV4#110 On 200 20 0 255 10
LEDv2 LedV4#111 On 200 20 0 255 10
LEDv2 LedV4#112 On 200 20 0 255 10
LEDv2 LedV4#113 On 200 20 0 255 10
SAVELOG "LEDv4.SlowBrinkHorizontal"
EndIf

16
xml/process/temp_ledv4_offall_horizontal.ev Normal file
View file

@ -0,0 +1,16 @@
DEBUGVAR "AllOffv4"
If FrontDoorVersionInt > 19999 Then
LEDv2 LedV4#103 Off 0 0 0 1 0
LEDv2 LedV4#104 Off 0 0 0 1 0
LEDv2 LedV4#105 Off 0 0 0 1 0
LEDv2 LedV4#106 Off 0 0 0 1 0
LEDv2 LedV4#107 Off 0 0 0 1 0
LEDv2 LedV4#108 Off 0 0 0 1 0
LEDv2 LedV4#109 Off 0 0 0 1 0
LEDv2 LedV4#110 Off 0 0 0 1 0
LEDv2 LedV4#111 Off 0 0 0 1 0
LEDv2 LedV4#112 Off 0 0 0 1 0
LEDv2 LedV4#113 Off 0 0 0 1 0
SAVELOG "LEDv4.AllOffHorizontal"
EndIf

19
xml/process/temp_ledv4_page_drinkok.ev Normal file
View file

@ -0,0 +1,19 @@
If FrontDoorVersionInt > 19999 Then
LEDv2 LedV4All On 100 20 0 255 0
LEDv2 LedV4#103 On 200 20 0 255 10
LEDv2 LedV4#104 On 200 20 0 255 10
LEDv2 LedV4#105 On 200 20 0 255 10
LEDv2 LedV4#106 On 200 20 0 255 10
LEDv2 LedV4#107 On 200 20 0 255 10
LEDv2 LedV4#108 On 200 20 0 255 10
LEDv2 LedV4#109 On 200 20 0 255 10
LEDv2 LedV4#110 On 200 20 0 255 10
LEDv2 LedV4#111 On 200 20 0 255 10
LEDv2 LedV4#112 On 200 20 0 255 10
LEDv2 LedV4#113 On 200 20 0 255 10
SAVELOG "LEDv4.PageDrinkOk"
EndIf

23
xml/process/temp_ledv4_page_thankyou.ev Normal file
View file

@ -0,0 +1,23 @@
If FrontDoorVersionInt > 19999 Then
LEDv2 LedV4Top Blink 100 20 0 4 10
LEDv2 LedV4Mid Blink 100 20 0 4 10
LEDv2 LedV4Bottom On 100 20 0 255 0
LEDv2 LedV4#103 Blink 200 20 0 4 10
LEDv2 LedV4#104 Blink 200 20 0 4 10
LEDv2 LedV4#105 Blink 200 20 0 4 10
LEDv2 LedV4#106 Blink 200 20 0 4 10
LEDv2 LedV4#107 Blink 200 20 0 4 10
LEDv2 LedV4#108 Blink 200 20 0 4 10
LEDv2 LedV4#109 Blink 200 20 0 4 10
LEDv2 LedV4#110 Blink 200 20 0 4 10
LEDv2 LedV4#111 Blink 200 20 0 4 10
LEDv2 LedV4#112 Blink 200 20 0 4 10
LEDv2 LedV4#113 Blink 200 20 0 4 10
SAVELOG "LEDv4.PageThankYou"
Var
EndIf

22
xml/vending_info.xml
View file

@ -186,7 +186,10 @@
Var CountTouchButton = 0
DEBUGVAR FrontDoorVersionInt
If FrontDoorVersionInt = "" Then
__CMD "mcu-version" "-" "-" "-"
EndIf
; front_more_than_20000
If FrontDoorVersionInt > 19999 Then
Var EnableTestRGB = "Enable"
@ -194,6 +197,8 @@
Var EnableTestRGB = "Invisible"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -306,6 +311,17 @@
Var GPRSStr = GPRSStr + GPRSState
DEBUGVAR FrontDoorVersionInt
If FrontDoorVersionInt = "" Then
__CMD "mcu-version" "-" "-" "-"
EndIf
; front_more_than_20000
If FrontDoorVersionInt > 19999 Then
Var EnableTestRGB = "Enable"
Else
Var EnableTestRGB = "Invisible"
EndIf
@ -465,8 +481,8 @@
ReloadAll
EndIf
Var ReloadAllPressButton = ReloadAllPressButton + 1
</EventClick>
</Image>

17
xml/vending_info2.xml
View file

@ -184,10 +184,9 @@
Var sleepmodeEnable = "false"
Var AlphaState = "Invisible"
Var LoginReadyState = "Enable"
If NewUiBSM = "" Then
Var NewUiBSM = "Offline"
EndIf
Var NewUiBSM = "Offline"
If EnableBrewIPC = "" Then
Var EnableBrewIPC = "false"
@ -195,7 +194,7 @@
If EnableBrewIPC = "true" Then
StartBrewNewUiLoginService
StartBrewIPCService
EndIf
@ -206,6 +205,15 @@
DEBUGVAR Timeout
DEBUGVAR WhileRetryCounter
DEBUGVAR NewUiBSM
DEBUGVAR LoginReadyState
If NewUiBSM = "Online" Then
Var LoginReadyState = "Enable"
Else
If EnableBrewIPC = "true" Then
Var LoginReadyState = "Invisible"
EndIf
EndIf
If WaitPopup = "Enable" Then
Var AlphaState = "Enable"
@ -575,6 +583,7 @@
<FilenamePress> "ROOT/taobin_project/image/new_vending_info/get_acc_btn.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<State> LoginReadyState </State>
<EventClick>
DEBUGVAR ShowVersionAll

45
xml/vending_tasks_pre_main.xml
View file

@ -14,6 +14,14 @@
Var EnableCheckin = "Enable"
Var EnableTestCoinBank = "Enable"
If EnableBrewIPC = "true" Then
Var EnableElockFromXML = "Enable"
Var EnableElockByCMD = "Invisible"
Else
Var EnableElockFromXML = "Invisible"
Var EnableElockByCMD = "Enable"
EndIf
Var Timeout = 0
If InternationalEnable = 1 Then
@ -224,6 +232,43 @@
</EventOnClick>
</Button>
</Block>
<Block>
<MarginLeft> 0 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 560 </Width>
<Height> 142 </Height>
<State> EnableElockFromXML </State>
<Button>
<Filename> "ROOT/taobin_project/image/new_vending_info/unlock_elock.png" </Filename>
<EventOnClick>
UnlockElock
;StatusLog "UnlockElock"
SAVELOG "Unlock Elock by xml"
</EventOnClick>
</Button>
</Block>
<Block>
<MarginLeft> 0 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 560 </Width>
<Height> 142 </Height>
<State> EnableElockByCMD </State>
<Button>
<Filename> "ROOT/taobin_project/image/new_vending_info/unlock_elock.png" </Filename>
<EventOnClick>
__CMD "UnlockElock" "-" "-" "-"
;StatusLog "UnlockElock"
SAVELOG "Unlock Elock by xml cmd"
</EventOnClick>
</Button>
</Block>
</FrameScroll>