taobin_project/xml/page_drinkok.xml
wanlop run 7669b77c77 Merged
2024-12-09 20:31:03 +07:00

823 lines
17 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> BackgroundColor </Background>
<Volume> SoundVolume </Volume>
<Sound> "ROOT/sounds/Ding-dong.wav" </Sound>
<EventOpen>
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR Seeker.PictureDrink
DEBUGVAR Seeker.showname
; Block Have
Var DrinkOKStringVersion = "DKT3"
DEBUGVAR DrinkOKStringVersion
WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "0"
Var buttonRemoveCup = "Invisible"
Var TextBottomShow = "Enable"
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
Var bg_strawlid_ST = "Enable"
Var bg_strawProblem_ST = "Invisible"
;Var bg_strawProblem_Y = 1470
Var bg_strawProblem = DirImage2 + "/bg_strawProblem.png"
Var straw_problem_flag = 0
If Seeker.strawAction = 1 Then
Machine Straw
;Var bg_strawlid = DirImage2 + "/bg_strawProblem.png"
Var bg_strawProblem_ST = "Enable"
If Seeker.lidAction = 0 Then
Else
;Var bg_strawProblem_Y = 1680
Var bg_strawlid_ST = "Invisible"
Var LidStateX = "Invisible"
Var StrawStateX = "Invisible"
EndIf
EndIf
If Seeker.lidAction = 1 Then
Machine Lid
EndIf
Var ExtendData = Seeker.ExtendData
; On open
Var LidState = "Enable"
Var StarwState = "Enable"
Var videoEnd = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/complete_en/"
Else
Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/complete_mmr/"
EndIf
Var text_bottom = DirImage + "text_bottom.png"
If InternationalEnable = 1 Then
If LanguageShow = "UAE_DUBAI" Then
Var text_bottom = CountryRootPath + "/image/complete_en/text_bottom.png"
EndIf
EndIf
If UsePepsiTheme = 1 Then
If CountryName = "UnitedArabEmirates Dubai" Then
If LanguageShow = "UAE_DUBAI" Then
Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName
Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png"
Else
Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName
Var text_bottom = text_bottom + "/image/complete_en/text_bottom_en.png"
EndIf
Else
Var text_bottom = "ROOT/taobin_project/inter/whatthecup/" + CountryShortName
Var text_bottom = text_bottom + "/image/complete_en/text_bottom.png"
EndIf
EndIf
DEBUGVAR text_bottom
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + "24"
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var Timeout = 0
Var Timeout2 = 0
StopLongPlay
;Var show_eng = "false"
Var sendPayMultiFlag = 0
Var next_pic = ""
Var next_name = ""
Var nextCount = ""
Var next_pic_bg = ""
Var BlinkImg = 0
Var txtDrinkOKState = "Invisible"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png"
Else
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
EndIf
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_ENG
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_ENG
EndIf
EndIf
EndIf
Else
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png"
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_THAI
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_THAI
EndIf
EndIf
EndIf
EndIf
Var MultiGo = 1
If CART_COUNT = 0 Then
Var sendPayMultiFlag = 1
Else
If CART_INDEX = CART_COUNT Then
If ChangeAmountSum > 0 Then
Change ChangeAmountSum
Var MultiGo = 0
EndIf
EndIf
EndIf
Var bg_strawlid_ST = "Invisible"
Var bg_strawProblem_ST = "Invisible"
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
LED LedDoorCup 1 255 255 255 255
Var DelayButton = 0
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount <= 0 Then
If StrawProblemStatus = 1 Then
Var bg_strawProblem_ST = "Enable"
EndIf
EndIf
Var TimeDelayDefault = 1200
DEBUGVAR Seeker
DEBUGVAR Seeker.BuyMomCocoaProFlag
If Seeker.BuyMomCocoaProFlag = 1 Then
Var dummyPhone = "0899999999"
Var param1 = "1"
Var param2 = ""
Var param3 = ""
AddData 50 dummyPhone param1 param2 param3
EndIf
DEBUGVAR Seeker.BuyOreo11ProFlag
If Seeker.BuyOreo11ProFlag = 1 Then
Var dummyPhone = "0899999999"
Var param1 = "2"
Var param2 = ""
Var param3 = ""
AddData 50 dummyPhone param1 param2 param3
EndIf
SAVELOG "drinkok.xml version 4"
Var DrinkNameOnArm[DrinkArmCupID] = Seeker.showname
Var DrinkImageOnArm[DrinkArmCupID] = Seeker.PictureDrink
DEBUGVAR DrinkArmCupID
DEBUGVAR DrinkImageOnArm[DrinkArmCupID]
DEBUGVAR DrinkNameOnArm[DrinkArmCupID]
Var TextDoorJamStage = "Invisible"
Var CountUpDoorJamAlert = 0
Var BlinkUpDoorJamAlert = 0
Var EnableDoorJamAlert = 0
</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout>
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineStage
DEBUGVAR CupOnArm
DEBUGVAR buttonRemoveCup
DEBUGVAR CART_COUNT
DEBUGVAR HaveCup
DEBUGVAR CHECKCUP
DEBUGVAR CupChecking
DEBUGVAR MaybeHaveCup
DEBUGVAR NextOrder
DEBUGVAR DoorCupPosition
Var Timeout = Timeout + 1
If Timeout = 2 Then
;Var SlientRefreshEnable = 1
;Var SlientRefreshIndex = 2
EndIf
If BrewTimeoutExtend = 1 Then
DEBUGVAR BrewTimeoutExtend
EndIf
; 420 sec
; to be obsolete
If Timeout > 840 Then
Var CountForRetryStuck = 1
Open "ROOT/taobin_project/xml/page_drink_stuck.xml"
EndIf
If Timeout = 2 Then
RefreshAll
EndIf
If Timeout > 30 Then
Var MultiGo = 1
EndIf
If BlinkImg = 1 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 2
Else
If BlinkImg = 2 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
EndIf
EndIf
; Do not change
;
If MachineStage = "show-menu" Then
Var Seeker.TNumberTaobinMember = ""
If NextOrder = "true" Then
; next order set. Havecup and checkup value must false. Certain cup not on any arm.
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
Else
Machine DoorClose
EndIf
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
;
; this stage for remove cup
If MachineStage = "remove-cup" Then
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by remove to take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
Else
Machine DoorClose
EndIf
EndIf
EndIf
If Timeout = 5 Then
If show_eng = "true" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"
If CountryName = "Malaysia" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
If CountryName = "Australia" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
If CountryName = "UnitedArabEmirates Dubai" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
If CountryName = "Singapore" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
If CountryName = "HongKong" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
Play PlaySoundStraw
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a"
EndIf
Play PlaySoundLag
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup with close-maintenance"
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
If txtDrinkOKState = "Enable" Then
Var TextBottomShow = "Invisible"
Else
;Var TextBottomShow = "Enable"
EndIf
If EnableDoorJamAlert = 1 Then
Var BlinkUpDoorJamAlert = BlinkUpDoorJamAlert + 1
If DOOR_CUP_OPEN_ERROR = "true" Then
Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1
EndIf
If DOOR_CUP_CLOSE_ERROR = "true" Then
Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1
EndIf
If CountUpDoorJamAlert > 0 Then
DEBUGVAR CountUpDoorJamAlert
EndIf
If CountUpDoorJamAlert > 8 Then
DEBUGVAR DOOR_CUP_OPEN_ERROR
DEBUGVAR DOOR_CUP_CLOSE_ERROR
Var TextBottomShow = "Invisible"
;Var TextDoorJamStage = "Enable"
If BlinkUpDoorJamAlert > 1 Then
Var TextDoorJamStage = "Enable"
Var BlinkUpDoorJamAlert = 0
Else
Var TextDoorJamStage = "Invisible"
EndIf
EndIf
If CountUpDoorJamAlert > 50 Then
Var CountUpDoorJamAlert = 1
Var TextBottomShow = "Enable"
Var TextDoorJamStage = "Invisible"
EndIf
If show_eng = "true" Then
Var TextDoorJamString = " Door Error. "
Else
Var TextDoorJamString = " ประตูมีปัญหา "
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var MultiGo = 1
EndIf
</EventChangeStatus>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
<Image>
<X> 757 </X>
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
</Image>
<Image>
<X> 125 </X>
<Y> 1700 </Y>
<Height> 300 </Height>
<Width> 320 </Width>
<Filename> Seeker.PictureDrink </Filename>
</Image>
<Text>
<X> 300 </X>
<Y> 1750 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Size> 48 </Size>
<Color> HeadlineColor </Color>
<Value>
eval(
STRCONTAIN "size" Seeker.showname SizeFromSheet
If SizeFromSheet = "true" Then
SPLIT Seeker.showname "###" 1 PureName
Var return = PureName
Else
Var return = Seeker.showname
EndIf
)
</Value>
</Text>
<Image>
<X> 0 </X>
<Y> 1418 </Y>
<State> TextBottomShow </State>
<Filename> text_bottom </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1418 </Y>
<Size> 87 </Size>
<Align> Center </Align>
<Color> 0xEF4D2C </Color>
<Font> KanitLightTTF </Font>
<State> TextDoorJamStage </State>
<Value> TextDoorJamString </Value>
</Text>
<Text>
<X> 757 </X>
<Y> 448 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Color> 0x513C2F </Color>
<Value> nextCount </Value>
</Text>
<Text>
<X> 757 </X>
<Y> 538 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Color> 0x513C2F </Color>
<Value> next_name </Value>
</Text>
<Image>
<X> 823 </X>
<Y> 600 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> next_pic </Filename>
</Image>
<Image>
<X> 77 </X>
<Y> 1378 </Y>
<State> txtDrinkOKState </State>
<Filename> Var( DirImage + "/txtDrinkOK.png" ) </Filename>
</Image>
;<Button>
;<X> 160 </X>
;<Y> 1673 </Y>
;<State> buttonRemoveCup </State>
;;<Color> "0x00BDFF" </Color>
;<Interval> 500 </Interval>
;<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
;<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
;<EventClick>
; ;Var buttonRemoveCup = "Invisible"
; Machine RemoveCup
; Machine DoorLidOpen
; Refresh
;</EventClick>
;</Button>
;500
;1180
<Button>
<X> 10 </X>
<Y> 1680 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 699 </X>
<Y> 1788 </Y>
<State>bg_strawProblem_ST</State>
<Filename> bnStrawProblemReport </Filename>
<FilenamePress> bpStrawProblemReport </FilenamePress>
<EventClick>
Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
__CMD "straw-alert-disable" 0 strawStr "-"
__CMD "send-error-code" 1231 "-" "-"
Var bg_strawProblem_ST = "Invisible"
Refresh
</EventClick>
</Button>
; straw left
<Button>
<X> 50 </X>
<Y> 1752 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<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>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;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
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 1759 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<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>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;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
DEBUGVAR "PICHET"
Refresh
</EventClick>
</Button>
; LID left
<Button>
<X> 50 </X>
<Y> 1828 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<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>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
If Seeker.lidAction = 0 Then
Var Seeker.lidAction = 1
Machine Lid
Var straw_problem_ST = "Enable"
EndIf
EndIf
DEBUGVAR SugarState1
Refresh
EndIf
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 1835 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<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>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
If Seeker.lidAction = 0 Then
Var Seeker.lidAction = 1
Machine Lid
EndIf
EndIf
Refresh
EndIf
</EventClick>
</Button>
<Text>
<X> 1 </X>
<Y> 1 </Y>
<Font> KanitTTF </Font>
<Size> 22 </Size>
<Width> 1080 </Width>
<Align> end </Align>
<Color> 0xFF0000 </Color>
<Value> DrinkOKStringVersion </Value>
</Text>
<EventUnitTest1>
Var Timeout2 = 0
__CMD "UpdateCupOnArm" UserSelectProductCode "-" "-"
</EventUnitTest1>
<EventUnitTest2>
Open "ROOT/xml/page_drinkok.xml"
</EventUnitTest2>
</Popup>